Recherche date et copie de cellules correspondantes Résolu/Fermé

Question

Bonjour,
Je cherche en vain à réaliser la macro suivante:
J'ai 2 classeurs dont voici un screen (pour des question de taille j'ai masqué les colonnes ne nous interessants pas).





Le but est d'entré, à la main, une date dans le classeur 2 en cellule D3 et la macro rechercherais cette date dans la colonne A du classeur 1.
Elle copierai ensuite les valeurs des cellules H,K,N,R,U et X de la ligne trouvé pour les coller dans les cellule C,D,E,G,H et I du classeur 2.

Le classeur 1 contient 4 feuilles, la recherche devrait ce faire pour les 4 feuilles sachant que la première remplira la ligne 13 du classeur 2, la seconde la ligne 14 etc... 

J'essayai de faire quelque chose moi même en trouvant des bouts de codes à imbriquer, mais je n'ai pas trouvé mon bonheure, et ne sachant pas ou peu coder, je vient solicité une petit aide.

Merci d'avance à ceux voulant bien m'aider.
Cordialement

f894009 · Answer

Bonjour,

un exemple de programmation, adaptez le nom et le chemin du ficher base de donnees dans le code Module1

https://www.cjoint.com/c/EACokKBzOgu

A+

Sigdemon · Answer

Bonjour,

Merci beaucoup d'une réponse aussi rapide à ma demande.
J'ai testé le fichier en remettant les le nom et le chemin, la aucun soucis,
J'ai l'erreur suivante "91 variable objet ou variable de bloc with non définie"

La ligne possant problème est celle ci

lig = .Columns("A").Find(RDate, .Cells(lig, 1), , xlWhole).Row

f894009 · Answer

Bonjour,

Quand vous avez l'erreur, click sur debugage et passez le curseur souris sur RDate pour voir sa valeur

A+

Sigdemon · Answer

Je l'ai fait ce matin, j'ai la date recherchée.
Remarque peut être inutile, mais mes date sont au format jj/mm/aa dans mes fichier et sur Rdate elle s'affiche en jj/mm/aaaa, ca peut venir de la?

f894009 · Answer

Re,

Faudrait votre fichier ou a defaut le code du module1

A+

Sigdemon · Answer

Je vous ai mi les 2 fichiers, je vous laisse refaire les chemins d'acces.
https://www.cjoint.com/?3ADlTq6ABFv

f894009 · Answer

Re,

avec "mon" programme et votre fichier graissage, le probleme est au niveau des noms d'onglet, pas d'erreur 91. Il y a un espace entre 120 et la lettre g pour les trois derniers onglets et pas le 40 et g du premier onglet a tester, donc attention car meme probleme avec votre xlsm.

Votre fichier xlsm et mon fichier test pas de probleme (hors noms onglet)

Je cherche

A+

Sigdemon · Answer

J'ai corrigé les noms d'onglets et toujours le même défaut.

f894009 · Answer

Re,

Ai change la methode de recherche ligne de la date recherchee !!!!!!

regardez les noms d'onglet dans le code pour avoir les memes.

https://www.cjoint.com/c/EADowTWkg4k

Sigdemon · Answer

Bonjour,
Je vous remerci, tout fonctionne à la perfection.

Recherche date et copie de cellules correspondantes

10 réponses

Discussions similaires