Recherche date et copie de cellules correspondantes

Résolu/Fermé
Sigdemon Messages postés 6 Date d'inscription mercredi 28 janvier 2015 Statut Membre Dernière intervention 30 janvier 2015 - 28 janv. 2015 à 08:39
Sigdemon Messages postés 6 Date d'inscription mercredi 28 janvier 2015 Statut Membre Dernière intervention 30 janvier 2015 - 30 janv. 2015 à 05:34
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
28 janv. 2015 à 14:01
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 mercredi 28 janvier 2015 Statut Membre Dernière intervention 30 janvier 2015
29 janv. 2015 à 06:56
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
29 janv. 2015 à 10:43
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 mercredi 28 janvier 2015 Statut Membre Dernière intervention 30 janvier 2015
Modifié par Sigdemon le 29/01/2015 à 11:24
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 29/01/2015 à 11:28
Re,

Faudrait votre fichier ou a defaut le code du module1

A+
0
Sigdemon Messages postés 6 Date d'inscription mercredi 28 janvier 2015 Statut Membre Dernière intervention 30 janvier 2015
29 janv. 2015 à 11:36
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
29 janv. 2015 à 12:05
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 mercredi 28 janvier 2015 Statut Membre Dernière intervention 30 janvier 2015
29 janv. 2015 à 12:50
J'ai corrigé les noms d'onglets et toujours le même défaut.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
29 janv. 2015 à 14:13
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 mercredi 28 janvier 2015 Statut Membre Dernière intervention 30 janvier 2015
30 janv. 2015 à 05:34
Bonjour,
Je vous remerci, tout fonctionne à la perfection.
0