recherche cellule + deplacement

[wilbur11]

Bonjour,

Après lecture de plusieur discussion, je me suis tanné et voici ma question.

Je cherche un moteur de recherche intuitif qui va trouver ma recherche et déplacer mon curseur dessus la bonne cellule.

Voir en pièce jointe mon exemple.

 

[Softmama]

Re : recherche cellule + deplacement

Bonsoir wilbur11

Vois si la PJ te va :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A13") Then
    Rows(1).Find(Target, , xlValues, xlWhole).Select
End If
End Sub

 

[wilbur11]

Re : recherche cellule + deplacement

Oui ca peux faire.

Par contre, quand je l'utilise des que je travail et que je veux effacer une cellule il me donne un erreur de VB "erreur d'execussion 13 imcompatibilité de type"

J'utilise excel 2003 est-ce pour ca? Y a t-il une solution?

Merci

 

[mth]

Re : recherche cellule + deplacement

Bonsoir wilbur11, Softmama,

Essaie en remplaçant juste la deuxième ligne:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$13" Then
    Rows(1).Find(Target, , xlValues, xlWhole).Select
End If
End Sub

Bien à toi,

mth

 

[wilbur11]

Re : recherche cellule + deplacement

Merci beaucoup pour votre aide