NamedRange.SelectionChange, événement

Article
08/10/2011

Se produit lorsque la sélection à l'intérieur du contrôle NamedRange change.

Espace de noms : Microsoft.Office.Tools.Excel
Assembly : Microsoft.Office.Tools.Excel (dans Microsoft.Office.Tools.Excel.dll)

Syntaxe

'Déclaration
Event SelectionChange As DocEvents_SelectionChangeEventHandler

event DocEvents_SelectionChangeEventHandler SelectionChange

Notes

Cet événement est déclenché lorsque la sélection passe au contrôle NamedRange ou change dans le contrôle.

Exemples

L'exemple de code suivant illustre un gestionnaire de l'événement SelectionChange qui affiche l'adresse d'une cellule qui est sélectionnée dans NamedRange.

Cette version est destinée à une personnalisation au niveau du document.

    Private selectionChangeRange As Microsoft.Office.Tools.Excel.NamedRange

    Private Sub DisplaySelectionChange()
        selectionChangeRange = Me.Controls.AddNamedRange( _
            Me.Range("A1", "E5"), "selectionChangeRange")
        AddHandler Me.selectionChangeRange.SelectionChange, _
            AddressOf selectionChangeRange_SelectionChange
    End Sub


    Sub selectionChangeRange_SelectionChange(ByVal Target As _
        Microsoft.Office.Interop.Excel.Range)
        Dim selectedRange As String = Target.Address(, , _
            Excel.XlReferenceStyle.xlA1, , )

        MessageBox.Show(Me.Name & ": " & selectedRange & _
            " raised the SelectionChange event.")
    End Sub

Microsoft.Office.Tools.Excel.NamedRange selectionChangeRange;
private void DisplaySelectionChange()
{
    selectionChangeRange = this.Controls.AddNamedRange(
        this.Range["A1", "E5"], "selectionChangeRange");
    this.selectionChangeRange.SelectionChange += new 
        Microsoft.Office.Interop.Excel.
        DocEvents_SelectionChangeEventHandler(
        selectionChangeRange_SelectionChange);
}

void selectionChangeRange_SelectionChange(
    Microsoft.Office.Interop.Excel.Range Target)
{
    string selectedRange = Target.get_Address(missing, missing,
        Excel.XlReferenceStyle.xlA1, missing, missing);

    MessageBox.Show(this.Name + ": " + selectedRange + 
        " raised the SelectionChange event.");
}

Cette version est destinée à un complément d'application.

Private selectionChangeRange As NamedRange

Private Sub DisplaySelectionChange()

    Dim NativeWorksheet As Microsoft.Office.Interop.Excel.Worksheet =
        Globals.ThisAddIn.Application.ActiveSheet

    Dim vstoWorksheet As Microsoft.Office.Tools.Excel.Worksheet =
            Globals.Factory.GetVstoObject(NativeWorksheet)

    selectionChangeRange = vstoWorksheet.Controls.AddNamedRange( _
        vstoWorksheet.Range("A1", "E5"), "selectionChangeRange")
    AddHandler Me.selectionChangeRange.SelectionChange, _
        AddressOf selectionChangeRange_SelectionChange
End Sub


Sub selectionChangeRange_SelectionChange(ByVal Target As  _
    Microsoft.Office.Interop.Excel.Range)
    Dim selectedRange As String = Target.Address(, , _
        Excel.XlReferenceStyle.xlA1, , )

    System.Windows.Forms.MessageBox.Show( _
        Me.Application.ActiveWorkbook.Worksheets(1).Name & _
        ": " & selectedRange & " raised the SelectionChange event.")
End Sub

NamedRange selectionChangeRange;
private void DisplaySelectionChange()
{
    Worksheet vstoWorksheet =
        Globals.Factory.GetVstoObject(this.Application.ActiveWorkbook.Worksheets[1]);
    selectionChangeRange = vstoWorksheet.Controls.AddNamedRange(
        vstoWorksheet.Range["A1", "E5"], "selectionChangeRange");
    this.selectionChangeRange.SelectionChange += new
        Excel.DocEvents_SelectionChangeEventHandler(
        selectionChangeRange_SelectionChange);
}

void selectionChangeRange_SelectionChange(
    Microsoft.Office.Interop.Excel.Range Target)
{
    string selectedRange = Target.get_Address(missing, missing,
        Excel.XlReferenceStyle.xlA1, missing, missing);

    Excel.Worksheet nativeWorksheet = (Excel.Worksheet)
        this.Application.ActiveWorkbook.Worksheets[1];
    System.Windows.Forms.MessageBox.Show(
        nativeWorksheet.Name + ": " + selectedRange +
        " raised the SelectionChange event.");
}

Sécurité .NET Framework

Confiance totale accordée à l'appelant immédiat. Ce membre ne peut pas être utilisé par du code d'un niveau de confiance partiel. Pour plus d'informations, consultez Utilisation de bibliothèques à partir de code d'un niveau de confiance partiel.

Voir aussi

Référence

NamedRange Interface

Microsoft.Office.Tools.Excel, espace de noms

Partager via