Recherche date et copie de cellules correspondantes

Résolu
Sigdemon Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -  
Sigdemon Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

10 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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+
0
Sigdemon Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
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

0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

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

A+
0
Sigdemon Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
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?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

Faudrait votre fichier ou a defaut le code du module1

A+
0
Sigdemon Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
Je vous ai mi les 2 fichiers, je vous laisse refaire les chemins d'acces.
https://www.cjoint.com/?3ADlTq6ABFv
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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+
0
Sigdemon Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
J'ai corrigé les noms d'onglets et toujours le même défaut.
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
Sigdemon Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,
Je vous remerci, tout fonctionne à la perfection.
0