Discussion :

[Noe06]

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

[Daniel.C]

Bonjour,

- 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 ?

- 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.

- 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 ?

[Noe06]

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... n'hésitez pas à me demander si jamais vous voulez plus de précision!

[Daniel.C]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each Item In UserForm1.ListBox1.List
    MsgBox Item
Next Item

[Noe06]

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)

[Daniel.C]

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