Bonjour à toutes et à tous,
Encore besoin de votre aide.
Pour trouver d'éventuels doublons dans ma feuille, je cherche à faire par macro l'opération suivante :
Objectif : quand on clique sur une cellule de E3 à E32, la macro doit s'exécuter et copier la cellule "cliquée" dans la box de recherche
Voici la macro :
Sub Doublons()
If [("E3:E38")] > "" Then
Selection.Copy
Application.Dialogs(xlDialogFormulaFind).Show
Exit Sub
End If
End Sub
ça fonctionne mais ça ne colle pas dans la box et comme on a plus "la main" quand la texbox est affichée, je ne peux pas copier la cellule dedans.
Moins que novice en VB, j'ai tenté un tas de trucs et chercher une éventuelle solution que je n'ai pas trouvé.
Encore une fois, votre aide me serait précieux et je vous adresse mes remerciements.
Amicalement,
Lionel,
Encore besoin de votre aide.
Pour trouver d'éventuels doublons dans ma feuille, je cherche à faire par macro l'opération suivante :
Objectif : quand on clique sur une cellule de E3 à E32, la macro doit s'exécuter et copier la cellule "cliquée" dans la box de recherche
Voici la macro :
Sub Doublons()
If [("E3:E38")] > "" Then
Selection.Copy
Application.Dialogs(xlDialogFormulaFind).Show
Exit Sub
End If
End Sub
ça fonctionne mais ça ne colle pas dans la box et comme on a plus "la main" quand la texbox est affichée, je ne peux pas copier la cellule dedans.
Moins que novice en VB, j'ai tenté un tas de trucs et chercher une éventuelle solution que je n'ai pas trouvé.
Encore une fois, votre aide me serait précieux et je vous adresse mes remerciements.
Amicalement,
Lionel,
Pièces jointes
Dernière édition: