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

  • Initiateur de la discussion Initiateur de la discussion Jujube
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
1 K
Retour