VBA Trouve l'occurence et copie paste

[sonskriverez]

Bjr le forum

J'ai 2 feuilles avec un nombre de lignes aléatoires, je voudrais rechercher dans la feuille "Base" le contenu de la cellule A2 de la feuille "Travail".
Si celui-ci est trouvé alors copier / coller le contenu de la cellule de la colonne E correspondante dans cellule B2

Merci de votre aide

 

[Efgé]

Re : VBA Trouve l'occurence et copie paste

Bonjour sonskriverez

Sujet déja traité a de multiples reprises...
Deux propositions, une formule et une macro.
Cordialement

 

[Efgé]

Re : VBA Trouve l'occurence et copie paste

Re
Et une version par formule, sans plages nommées grâce aux tableaux, pour faire plaisir à Misange ;-).
Cordialement

 

[sonskriverez]

Re : VBA Trouve l'occurence et copie paste

Bjr Efgé

Merci de te pencher sur mon pbl. Je prends la version macro car elle va s'inclure dans un ensemble en VBA

Par contre dans mon fichier de prod, le contenu de la feuille de travail à rechercher est en D2,
dans la feuille "Base" il faut recherché l'occurence en T et il faut copier le contenu de V dans la colonne B de "Travail".

J'ai essayé de modifier ton code mais j'avoue que c'est trop fort pour moi

merci de ton aide

 

[Efgé]

Re : VBA Trouve l'occurence et copie paste

Re
Pourrais tu mettre un classeur réellement représentatif de ta demande avec des explications un poil plus claires ?
Cordialement

 

[sonskriverez]

Re : VBA Trouve l'occurence et copie paste

Effectivement en me relisant c'est pas clair, misère.

J'ai remis un fichier exemple, avec toutes les colonnes et une explication qui j'espere est plus claire.

 

[Efgé]

Re : VBA Trouve l'occurence et copie paste

Re
Le code modifié
Cordialement

 

[sonskriverez]

Re : VBA Trouve l'occurence et copie paste

cela fonctionne trés bien, mais je me suis planté dans mes colonnes (quelle tâche) je suis désolé de te faire perdre ton temps, mais comme je ne comprends pas comment tu adresse les colonnes dans ton code j'ai refait un exemple avec cette fois les bonne colonnes.
En fait les colonnes de "Base" sont bonnes et c'est dans "Travail" que j'ai fait un oublie de 2 colonnes

 

[sonskriverez]

Re : VBA Trouve l'occurence et copie paste

Bjr Efgé

le matin mon cerveau fonctionne mieux et j'ai modifié cette ligne :

Set Rng = .Range(.Cells(2, 4), .Cells(.Rows.Count, 4).End(3)(1, 2))

et cela fonctionne

c'est vraiment super rapide, merci beaucoup

 

[sonskriverez]

Re : VBA Trouve l'occurence et copie paste

Encore une question désolé mais je ne trouve pas

Si je veux coller le résultat dans une autre colonne, par exemple la colonne BD (la 56), quel paramètre je dois changer dans le code ?

Merci

 

[Efgé]

Re : VBA Trouve l'occurence et copie paste

Bonjour sonskriverez, le fil, le forum

Voici le code commenté.
Cordialement

 

[Efgé]

Re : VBA Trouve l'occurence et copie paste

Re
Une version, commentée, qui permet de mettre "En clair" la cellule de destination des résultats (première cellule en haut, exemple dans le fichier $C$2)

Sheets("Travail").Range("$C$2").Resize(UBound(T, 1), 1) = T

Plus clair, je ne vois pas

Cordialement

 

[sonskriverez]

Re : VBA Trouve l'occurence et copie paste

Bjr Efgé

C'est génial, dépanner c'est déjà géant mais en plus expliqué c'est vraiment le top.

Encore merci