RESOLU : colonne et ligne en VBA

[tany]

Bonjour à tous,

suivant le choix en A1 j'aimerai en VBA (par le command button) récupérer la colonne et la ligne
de la correspondance dans la liste C1:C9
dans mon exemple le choix est "juy" donc colonne 3 et ligne 9
mais je ne vois pas quelle commande mettre en action.
merci à l'avance de vos lumières

 

[Robert]

Re : colonne et ligne en VBA

Bonjour Tany, bonjour le forum,

Essaie comme ça :

Private Sub CommandButton1_Click()
Dim R As Range 'déclare la variable R (Recherche)

Set R = Columns(3).Find(Range("A1").Value, , xlValues, xlWhole) 'définit l recherche R (Recherche la valeur entière de A1 dans la colonne 3)
'si au moins une occurrence existe affiche dans le message l'adresse de la première occurrence trouvée
If Not R Is Nothing Then MsgBox "Ligne : " & R.Row & Chr(13) & "Colonne : " & R.Column
End Sub

Tu peux te passer du bouton avec la macro événementielle Change à placer dans le composant Feuil1(Feuil1) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range 'déclare la variable R (Recherche)

If Target.Address <> "$A$1" Then Exit Sub 'si le changement a lieu ailleurs qu'en A1, sort de la procédure
Set R = Columns(3).Find(Range("A1").Value, , xlValues, xlWhole) 'définit l recherche R (Recherche la valeur entière de A1 dans la colonne 3)
'si au moins une occurrence existe affiche dans le message l'adresse de la première occurrence trouvée
If Not R Is Nothing Then MsgBox "Ligne : " & R.Row & Chr(13) & "Colonne : " & R.Column
End Sub

 

[tany]

Re : RESOLU : colonne et ligne en VBA

Merci beaucoup Robert les deux solutions me seront utiles impec
Tany