VBA-Copier la valeur d'une liste dans un autre classeur

Bonjour,

Je dispose d'un fichier qui contient des listes telles que:
lorsqu'on clique sur la cellule, une fenêtre s'affiche avec les différents choix et on sélectionne la bonne valeur (la fenêtre a été définie par un userform)

Je souhaite donc créer une macro qui copie la valeur choisie dans la même cellule dans un autre classeur.

Les différents problèmes que je rencontre sont que:
- dès que la cellule est sélectionnée pour la copier, la liste de choix réapparaît
- je ne connais pas d'avance la valeur qui a été choisie si j'essaie de passer par la fenêtre "formulaR1C1"
- la cellule dans laquelle je veux coller la valeur est au même format ie elle contient cette même liste (car les deux classeurs sont identiques)

Je ne sais pas si ceci est faisable en VBA et si oui comment?!

Si jamais quelqu'un a des idées ça me serait d'une grande aide!

Merci

Bonjour,

Citation:

---

- dès que la cellule est sélectionnée pour la copier, la liste de choix réapparaît

---

Oui, c'est un problème ? pourquoi ? qu'est-ce que tu voudrais ?

Citation:

---

- je ne connais pas d'avance la valeur qui a été choisie si j'essaie de passer par la fenêtre "formulaR1C1"

---

Je ne comprends pas. Tu devrais publier ton code.

Citation:

---

- la cellule dans laquelle je veux coller la valeur est au même format ie elle contient cette même liste (car les deux classeurs sont identiques)

---

C'est un problème ?

Bonjour,

je ne peux pas mettre mon code en ligne pour raison de confidentialité.

Cependant je peux essayer de m'expliquer autrement.

J'ai un fichier Source qui contient un tableau. Certaines cases de ce tableau sont des cellules avec des listes de choix. Quand on clique sur une de ces cellules une fenêtre s'ouvre avec la liste des valeurs qu'on peut choisir (en PJ une impression écran de la fenêtre).

Par exemple pour la cellule "Status" on me propose "unknown" ou "identified" ou "open" ou "closed". Je choisis par exemple "open".

Ensuite j'ai un second classeur Cible qui est fait exactement de la même façon. Je voudrais copier la feuille du fichier Source dans ce classeur. J'ai déjà réussi à importer toutes les valeurs des cellules, les zones de texte, les commentaires etc... il ne me reste juste à copier les valeurs des listes de choix. (je fais exprès de ne pas copier la feuille entière).

Ma question est donc:
comment faire une macro en VBA pour copier les valeurs des listes de choix dans le classeur Cible.

Je ne sais pas si je suis assez claire cette fois... :oops: n'hésitez pas à me demander si jamais vous voulez plus de précision!

Bonjour,

Code:

---

1 2 3

For Each Item In UserForm1.ListBox1.List MsgBox Item Next Item

---

Bonjour Daniel.C,

j'ai essayé d'insérer ton code dans mon programme mais ça me génère l'erreur suivante:
"Erreur d'exécution '424': Objet requis"

Aussi, je ne suis pas bien sure de ce que fait ce code mais il me semble qu'il ne copie pas la valeur de la liste...

J'ai essayé autrement mais à chaque fois que je sélectionne la cellule contenant la liste de choix, ca ouvre à nouveau la ListBox du fichier source (avec donc possibilite de changer les valeurs)

C'est difficile de savoir ce que tu veux. A quel moment veux-tu obtenir cette liste ?

Je ne veux pas ajouter de liste.

En fait j'ai deux mêmes classeurs. L'un des deux est rempli par l'utilisateur. Je cherche à copier certaines de ses feuilles dans mon second classeur.

Pour diverses raisons je doit copier/coller les valeurs de chaque cellules une à une. Cependant pour celles qui contiennent des listes je ne sais pas comment m'y prendre pour que la macro sélectionne automatiquement la bonne valeur dans ce second classeur sans modifier le fichier source
(car lorsque je sélectionne la cellule, que je copie, que je sélectionne la même cellule dans l'autre classeur et que je colle la valeur ca ne marche pas: ca m'ouvre la fenêtre pour sélectionner la valeur de mon choix dans les deux classeurs).

Je suis désolée, j'essaie vraiment de m'expliquer au mieux. Veuillez m'excuser si je ne suis pas assez claire...

D'accord, je crois que je comprends. Tu dois coller dans la cellule cible sans la sélectionner au préalable :
Par exemple :

Code:

---

1 2	Workbooks("ClasseurSource.xls").Sheets(1).Range("A1").Copy _ Workbooks("ClasseurCible.xls").Sheets(1).Range("A1")

---

en adaptant les cellules source et cible.

En effet, ça marche bien Daniel.C! Merci beaucoup!
En revanche ça me supprime le commentaire de la cellule...
Y a t il un moyen d'empêcher ça?
Car si je copie/colle le commentaire après je retombe sur le même problème...

Sinon tout est nickel! Merci encore!

Code:

---

1 2	Workbooks("ClasseurSource.xls").Sheets(1).Range("A1").Copy Workbooks("ClasseurCible.xls").Sheets(1).Range("A1").PasteSpecial xlPasteValues

---