Fonction Récupérer le numéro de ligne sélectionnée

Résolu/Fermé
jamnor - 27 mars 2019 à 15:45
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 16 avril 2019 à 16:01
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.
A voir également:

1 réponse

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
27 mars 2019 à 15:59
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

0
merci pour votre réponse, mais comment je peux faire ça?
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
28 mars 2019 à 10:48
Mettre un classeur exemple avec les explications des actions a faire sur ce site ensuite coller le lien ici

https://www.cjoint.com/

@+
0
le voilà et merci pour votre vite interaction
https://www.cjoint.com/c/ICCkqMioMVb
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 28 mars 2019 à 12:53
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
0
grand merci
0