Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Récupérer le numéro de ligne d'un range

Jujube

XLDnaute Nouveau
Ma question est sans doute très bête, mais j'aimerais savoir que si je clique sur une ligne queconque dans un range de cellules, de quelle façon en VBA je peux savoir sur quelle ligne du Range1 ou du Range2 que j'ai cliqué.
 

Pièces jointes

  • Book1.xls
    30.5 KB · Affichages: 12
Solution
Bonjour,

Ceci à coller dans le module de la feuille
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("D7:D16")) Is Nothing Then
        MsgBox "Ligne " & Target.Row - 6 & " de la plage 1 sélectionnée"
    ElseIf Not Intersect(Target, Range("F7:F16")) Is Nothing Then
        MsgBox "Ligne " & Target.Row - 6 & " de la plage 2 sélectionnée"
    End If
End Sub

Question: Vous avez excel 2016, pourquoi enregistrez-vous votre fichier en Xls au lieu de Xlsm?

Cdlt

Rouge

XLDnaute Impliqué
Bonjour,

Ceci à coller dans le module de la feuille
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("D7:D16")) Is Nothing Then
        MsgBox "Ligne " & Target.Row - 6 & " de la plage 1 sélectionnée"
    ElseIf Not Intersect(Target, Range("F7:F16")) Is Nothing Then
        MsgBox "Ligne " & Target.Row - 6 & " de la plage 2 sélectionnée"
    End If
End Sub

Question: Vous avez excel 2016, pourquoi enregistrez-vous votre fichier en Xls au lieu de Xlsm?

Cdlt
 

Phil69970

XLDnaute Barbatruc
Bonjour Jujube, rouge, le forum

Une variante :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim OuSuisJe As Range
Set OuSuisJe = Selection
With OuSuisJe
    MsgBox "J'ai cliqué sur la cellule " & .Address(0, 0), , "Ou suis je ?"
End With
End Sub

@Phil69970
 

Discussions similaires

Réponses
26
Affichages
444
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…