RESOLU - Macro copier cellule sélectionnée dans texbox rechercher

mapomme

XLDnaute Barbatruc

Supporter XLD

• 20 Août 2015

• #2

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 20 Août 2015

• #3

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,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 21 Août 2015

• #4

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,

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 21 Août 2015

• #5

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 21 Août 2015

• #6

Re : RESOLU - Macro copier cellule sélectionnée dans texbox rechercher

Bonjour tototiti2008,
Bonjour Mapomme ... à toutes et à tous,

C'est bien ça, ça marche très bien.
Je vous remercie de votre gentillesse et en plus, j'ai réussi à comprendre tout le code LOl

Petite remarque :
Je trouve que pour un XLDnaute MEGA Barbatruc, écrire "peut-être" est de la fausse modestie LOL 🙂

Un grand merci à tous,
Bonne journée,
Amicalement,
Lionel,

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 21 Août 2015

• #7

Re : RESOLU - Macro copier cellule sélectionnée dans texbox rechercher

Re,

Je trouve que pour un XLDnaute MEGA Barbatruc, écrire "peut-être" est de la fausse modestie LOL 🙂

Cliquez pour agrandir...

Je me suis planté plus souvent qu'à mon tour, crois moi
Et le titre "MEGA Barbatruc" n'est que lié au nombre de messages 🙂

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 21 Août 2015

• #8

Re : RESOLU - Macro copier cellule sélectionnée dans texbox rechercher

J'étais certain de la réponse LOL

Ce n'est qu'en se trompant qu'on évolue.
Bien sûr je taquinais.
Amicalement,
Lionel,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 21 Août 2015

• #9

Re : RESOLU - Macro copier cellule sélectionnée dans texbox rechercher

Re-Bonjour,

Je viens de m'apercevoir d'un problème sur la macro et je n'arrive pas à trouver la solutionj :

Quand je sélectionne plusieurs cellules avec le même clic n'importe où dans la feuille, la macro s'exécute et signale un message d'erreur.

Même résultat si je sélectionne des cellules fusionnées.

Que peut-il donc bien se passer ?
Je joins à nouveau le fichier.

Auriez-vous une solution car je n'y comprends rien ?

Encore Merci,
Amicalement,
Lionel,

 

Pièces jointes

• Recherche qd clic et copie.xlsm

  14.7 KB · Affichages: 20

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 21 Août 2015

• #10

Re : RESOLU - Macro copier cellule sélectionnée dans texbox rechercher

Re,

Modifie la 1ère ligne

Code:

  If Not Intersect(Target, Range("E3:E32")) Is Nothing And Target(1, 1) <> "" Then _

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 21 Août 2015

• #11

Re : RESOLU - Macro copier cellule sélectionnée dans texbox rechercher

Bonjour à tous ,

Je viens de m'apercevoir d'un problème sur la macro et je n'arrive pas à trouver la solutionj :

Quand je sélectionne plusieurs cellules avec le même clic n'importe où dans la feuille, la macro s'exécute et signale un message d'erreur

Cliquez pour agrandir...

peut être rajouter cette instruction au début de la procédure :

Code:

If Target.Count > 1 Then Exit Sub

bon après midi
@+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 21 Août 2015

• #12

Re : RESOLU - Macro copier cellule sélectionnée dans texbox rechercher

Bonjour Pierrot93,

Merci pour ta réponse et ça marche.
Mais pourquoi ? : Count >1 (compter >1)

Bonne journée,
Amicalement,
Lionel,

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 21 Août 2015

• #13

Re : RESOLU - Macro copier cellule sélectionnée dans texbox rechercher

Re,

si il y a plus d'une cellule de selectionné on sort de la procédure sans rien faire...

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 21 Août 2015

• #14

Re : RESOLU - Macro copier cellule sélectionnée dans texbox rechercher

OK .... Merci pour toutes vos réponses.

 

Vote positif 0 Vote négatif