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 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 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:

Vba récupérer le numéro de ligne de la cellule active
Aller à la ligne dans une cellule excel - Guide
Numero prive - Guide
Partage de photos en ligne - Guide
Site de vente en ligne particulier - Guide
Recuperer message whatsapp supprimé - Guide

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
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

jamnor
28 mars 2019 à 10:38

merci pour votre réponse, mais comment je peux faire ça?

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
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/

@+

jamnor
28 mars 2019 à 11:18

le voilà et merci pour votre vite interaction
https://www.cjoint.com/c/ICCkqMioMVb

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
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

jamal
30 mars 2019 à 21:56

grand merci

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?