rechercher une valeur à l'aide d'une macro

[dudu33]

Bonjour le forum.

Voila , est il possible de recherche une valeur dans une colonne à l'aide d'une macro.

Ex:
Feuil1
Col A
A
B
C
D
E
F
G

Feuil2
on a dans la cellue A2 une valeur prenons A par exemple (mais on peut avoir une autre valeur comme B,C,D etc..)

J'aimerai que lorsque je clique sur un bouton que cela me selectionne la ligne correspondante dans ma feuil1. Est ce possible?

Merci d'avance pour votre aide.
Je reste à votre disposition pour tous renseignement supplémentaire


dudu33

 

[Hervé]

Bonjour dudu

une proposition parmi d'autres possibles :

Sub Bouton1_QuandClic()
With Columns('A') 'recherche en colonne A
        If Not .Find('B') Is Nothing Then .Find('B').Select 'recherche la valeur B
End With
End Sub

salut

 

[dudu33]

Tout d'abord merci Hervé

Chez moi ca ne fonctionne pas.

J'ai mis
Feuil2.select
B = range('A2')

Mais ca ne me selectionne rien du tout

As tu une explication?

Merci

 

[Hervé]

re dudu

le code que je t'ai donné recherche la baleur B (la lettre B ) dans la colonne A.

si tu veux rechercher une variable, enlève les guillemets :

Sub Bouton1_QuandClic()
Dim B As String

B = Sheets('feuil2').Range('a2')
With Columns('A') 'recherche en colonne A
If Not .Find( B ) Is Nothing Then .Find( B ).Select 'recherche la valeur B
End With
End Sub


salut

Message édité par: hervé, à: 16/02/2006 14:51

Message édité par: hervé, à: 16/02/2006 14:51

 

[dudu33]

Bonjour

Le code d'hervé fonctionne à merveille

Sub Bouton1_QuandClic() 
Dim B As String 

B = Sheets('feuil2').Range('a2') 
With Columns('A') 'recherche en colonne A 
If Not .Find( B ) Is Nothing Then .Find( B ).Select 'recherche la valeur B 
End With 
End Sub

dudu33