Copie de données à partir d'une liste déroulante

[Renaud22]

Bonjour à tous,

J'aimerais qu'on m'aide à concevoir des instructions VBA afin de copier des données d'une feuille à d'autres feuilles.

Dans le fichier "Exemple.xlsm", ci-joint, je dispose d'une feuille "MODEL" qui peut être dupliquée un nombre "X" de fois. La feuille "CODIFICATION" contient les données. Dans la feuille "MODEL", à partir de la valeur entrée dans la liste déroulante en D33 et si la valeur dans la cellule A33 est égale à "F" alors les données associées au FABRICANT sont copiées automatiquement dans les cellules C44, C45, C46, C47, H47, C48, C50 & C51. Si la valeur dans la cellule A33 n'est égale à "F" alors rien n'est copié dans les cellules C44, C45, C46, C47, H47, C48, C50 & C51.

La longueur de la liste déroulante et des données associées est variable (F261 @ N__).

J'ai conçu deux exemples afin de mieux visualiser le résultat final.

Merci par avance pour votre précieuse collaboration,

Sincères salutations,

Renaud22

 

[thebenoit59]

Re : Copie de données à partir d'une liste déroulante

Bonjour Renaud22, le forum.
J'ai mis le code dans un nouveau module. A toi de voir si tu souhaites le mettre dans un Worksheet_Change.

 

[Renaud22]

Re : Copie de données à partir d'une liste déroulante

Bonjour thebenoit59,

Merci beaucoup d'avoir répondu à ma demande.

Je ne suis pas très bon en programmation. J'ai copié votre code VBA dans la feuille "MODEL" (voir fichier Exemple 2.xlsm ci-joint) et à partir de cette feuille MODEL, j'ai créé la feuille "EXEMPLE3". Lorsque j'insère une valeur en D33 à l'aide de la liste déroulante, il ne se passe rien. Aucune valeur n'est copiée. La feuille "MODEL" ne sert qu'à créer d'autres feuilles. Le code VBA doit fonctionner sur la nouvelle feuille active créée à partir de la feuille "MODEL" mais avec un nom différent de "MODEL".

Au plaisir de vous relire,

Salutations,

Renaud22

 

[thebenoit59]

Re : Copie de données à partir d'une liste déroulante

D'accord, je comprends mieux, le code est intégré dans Model maintenant.
De plus j'ai corrigé une erreur dans mon précédent post.
Tiens moi au courant de ton avancement.

PS : il faudrait nettoyer un peu ton code quand tu pourras 😛

 

[Renaud22]

Re : Copie de données à partir d'une liste déroulante

Merci beaucoup thebenoit59 pour votre aide.

Votre code fonctionne très bien. C'est exactement ce que je voulais.

Sincères salutations,

Renaud22


P.S. J'ai beaucoup de code dans ce fichier car le véritable fichier que j'utilise est beaucoup plus complexe.