wilbur11 XLDnaute Junior 22 Novembre 2010 #1 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. Pièces jointes Classeur1.xls 17 KB · Affichages: 58 Classeur1.xls 17 KB · Affichages: 60 Classeur1.xls 17 KB · Affichages: 58
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.
S Softmama XLDnaute Accro 23 Novembre 2010 #2 Re : recherche cellule + deplacement Bonsoir wilbur11 Vois si la PJ te va : VB: Private Sub Worksheet_Change(ByVal Target As Range) If Target = Range("A13") Then Rows(1).Find(Target, , xlValues, xlWhole).Select End If End Sub Dernière édition: 8 Décembre 2010 Vote positif 0 Vote négatif
Re : recherche cellule + deplacement Bonsoir wilbur11 Vois si la PJ te va : VB: 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 XLDnaute Junior 23 Novembre 2010 #3 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 Vote positif 0 Vote négatif
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 XLDnaute Barbatruc 23 Novembre 2010 #4 Re : recherche cellule + deplacement Bonsoir wilbur11, Softmama, Essaie en remplaçant juste la deuxième ligne: Code: 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 Vote positif 0 Vote négatif
Re : recherche cellule + deplacement Bonsoir wilbur11, Softmama, Essaie en remplaçant juste la deuxième ligne: Code: 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 XLDnaute Junior 23 Novembre 2010 #5 Re : recherche cellule + deplacement Merci beaucoup pour votre aide Vote positif 0 Vote négatif