Discussion :

[voxov]

Bonjour,

Dans une feuille Excel, j'ai une série (H4:H33) de Combobox, avec une valeur sélectionnée (ou non) pour chacune d'entre elles.
Je veux copier les valeurs sélectionnées ailleurs dans la feuille (G4:G33) pour pouvoir les réutiliser.

Le code suivant copie les Combobox de l'origine à la destination mais ce sont les valeurs sélectionnées que je veux, pas les combobox:

Code :

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

1
2
3
4
5
    Range("G4:G33").Select
    Selection.Copy
    Range("H4:H33").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

Merci d'avance pour vos conseils.

[MarcelG]

Bonjour,

Voici le cas de figure parfait illustrant mon propos dans une discussion récente.

Remarques donc:
- Objets Range non rattachés
- Balises sur le code reporté (#) absentes
- Enregistreur utilisé alors que les propriétés de Combobox ne semblent pas connues

Tu peux consulter la cible de ce lien (entre autres...).

[voxov]

Merci MarcelG.

Le lien documente bien les cas simples de copier/coller des objets en VBA.

Le cas que je soumets est un peu plus compliqué parce qu'il il faut copier seulement la valeur sélectionnée par la combobox - pas la combobox aussi - et qu'il faut le faire sur une série de cellules (Range).

Le code ci-dessous copie la combobox avec la sélection:

Code :

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

1
2
3
4
5
    Range("G4:G33").Select
    Selection.Copy
    Range("H4:H33").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

Alors, c'est bien ? Non, c'est pas bien. Le problème, c'est que si je supprime les combobox ensuite, par le code ci-dessous:

Code :

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

    ActiveSheet.DropDowns.Delete

il supprime tout: les combobox et les valeurs sélectionnées.

Donc la question reste entière.

[MarcelG]

Bonjour voxov, Bonjour le Forum,

Ce n'est pas du tout ce type de code auquel je faisais allusion.

Une piste.
Si les zones de listes sont nommées

Code :

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

Cbx_ladonnée_i

Alors avec une boucle sur i de 1 à 10, la cellule désignée par l'objet

Code :

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

Cells(i+3,8)

(avec 8 désignant la colonne H) aura comme valeur celle de la zone de liste.

Je te laisse traduire.

[voxov]

Bonjour,

Merci pour la suggestion.
Malheureusement, récupérer la valeur sélectionnée dans une dropdown box n'est pas aussi direct, en Excel, que par: Cells(i, j).value.
La solution passe peut-être par aller chercher la valeur dans la liste de référence (les valeurs que l'on trouve dans la dropdown box quand on clique dessus). Et là encore, il s'agit de prendre la valeur sélectionnée dans la dropdown box (et pas une des autres).
C'est plus challenging que je ne le pensais au départ. On voit bien que Excel n'a pas été conçu au départ avec des objets.
Je reste à l'écoute de toute suggestion.