Re : Macro copier cellule sélectionnée dans texbox rechercher
Bonsoir arthour973,
Un essai avec le code suivant:
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("E3:E32")) Is Nothing Then _
Application.Dialogs(xlDialogFormulaFind).Show _
Intersect(Target, Range("E3:E32"))(1, 1).Value
End Sub
Re : Macro copier cellule sélectionnée dans texbox rechercher
Bonsoir Mapomme,
ça reste encore de la magie pour moi LOL
ça marche super,
Je vous remercie. Grâce à vous, mon travail devient plus facile
Bonne fin de journée ... à toutes et à tous,
Amicalement,
Lionel,
Re : Macro copier cellule sélectionnée dans texbox rechercher
Bonjour Mapomme ... à toutes et à tous,
Je revient sur le sujet car j'ai un petit souci.
Ta macro fonctionne très bien ..... même trop bien car voici mon petit souci :
Rappel : quand on clic sur l'une des cellule de la plage, la macro s'exécute = pas de pbl
Ce que j'aimerai :
C'est que quand la cellule de la plage sur laquelle on clique est VIDE, je souhaiterais que la macro ne s'exécute pas.
Bien sur, j'ai essayé avec condition "si" mais je n'arrive pas à intégrer le code.
Un grand merci pour votre aide.
Amicalement,
Lionel,
Re : RESOLU - Macro copier cellule sélectionnée dans texbox rechercher
Bonjour arthour, Bonjour tapomme,
peut-être
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("E3:E32")) Is Nothing and target<>"" Then _
Application.Dialogs(xlDialogFormulaFind).Show _
Intersect(Target, Range("E3:E32"))(1, 1).Value
End Sub