Fonction Récupérer le numéro de ligne sélectionnée [Résolu/Fermé]

Signaler
-
Messages postés
6823
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
1 juillet 2020
-
salut
je suis débutant avec VBA Excel, et j'aimerais savoir comment récupérer le numéro de ligne sélectionnée entièrement, puis le mettre dans une cellule et désactiver un bouton de commande existant sur ma feuille.
merci d'avance.

1 réponse

Messages postés
6823
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
1 juillet 2020
528
Bonjour,

avec la méthode intersect, a mettre dans le module de la feuille concernée et remplacer Target. Address par Target.Row

https://forum.excel-pratique.com/viewtopic.php?t=1314

le voilà et merci pour votre vite interaction
https://www.cjoint.com/c/ICCkqMioMVb
Messages postés
6823
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
1 juillet 2020
528
Il faut cocher accepter les macros:

https://www.cjoint.com/c/ICCk07M7qDQ

j'ai oublié de mettre les actions a faire suivant les lignes jaunes ou blanches:

Option Explicit
Dim ligne As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
On Error Resume Next
ligne = Target.Row
If Rows(ligne & ":" & ligne).Select Then
CommandButton1.Enabled = True
End If
Else
CommandButton1.Enabled = False
End If
End Sub
Private Sub CommandButton1_Click()
If Range("j" & ligne).Value = "" Then
MsgBox "ligne jaune" 'mettre l'action a faire
Else
MsgBox "ligne blanche" 'mettre l'action a faire
End If
End Sub


a mettre à la place du code existant dans le module de la feuille1

@+ Le Pivert
grand merci
merci encore, mais hune fois cliqué, le msg "erreur de compilation" "variable indefini" s'affiche. comment reglé ça?
Messages postés
6823
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
1 juillet 2020
528
Exemple à télécharger:

https://www.cjoint.com/c/IDqoamumzvQ