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

Résolu
jamnor -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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

  1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    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
    1. jamnor
       
      merci pour votre réponse, mais comment je peux faire ça?
      0
    2. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      Mettre un classeur exemple avec les explications des actions a faire sur ce site ensuite coller le lien ici

      https://www.cjoint.com/

      @+
      0
    3. jamnor
       
      le voilà et merci pour votre vite interaction
      https://www.cjoint.com/c/ICCkqMioMVb
      0
    4. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      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
    5. jamal
       
      grand merci
      0