Fonction Récupérer le numéro de ligne sélectionnée
Résolu
jamnor
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
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.
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:
- Vba récupérer le numéro de ligne de la cellule active
- Partage de photos en ligne - Guide
- Récupérer compte yahoo sans numéro de téléphone - Guide
- Numero prive - Guide
- Récupérer un numéro de téléphone effacé - Accueil - Android
- Aller à la ligne dans une cellule excel - Guide
1 réponse
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
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
https://www.cjoint.com/
@+
https://www.cjoint.com/c/ICCkqMioMVb
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 Suba mettre à la place du code existant dans le module de la feuille1
@+ Le Pivert