Discussion :

[L'Albatros]

Bonjour,

Après moult essais infructueux je viens vers vous suite à un problème relativement simple:

Je voudrais que l'utilisateur, via comboBox dans un UserForm, sélectionne une feuille d'un classeur cible pour que celle-ci soit copiée dans le fichier source:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ComboBox1_DropButtonClick()
 
    UserForm1.ComboBox1.Clear
 
 
    For i = 1 To Sheets.Count
        UserForm1.ComboBox1.AddItem Sheets(i).Name
    Next i
 
    MsgBox "L'item sélectionné est : " & ComboBox1.Value, vbInformation
 
 End Sub

la message box me renvoie un champ vide...

Avant même de m'atteler à la copie du contenu de la feuille, je n'arrive pas à récupérer le choix de l'utilisateur...

Merci de votre aide !

[ZebreLoup]

Il ne faut pas faire comme ça.
Il faut remplir ton ComboBox avant (à l'ouverture du classeur ou autre) et gérer l'évènement SelectionChange plutôt que DropButtonClick.
(Eventuellement tu pourrais garder le remplissage dans le DropButtonClick, mais ça risque de faire des trucs bizarres...)

[L'Albatros]

ok, as-tu une idée de syntaxe pour la structure stp ?

[ZebreLoup]

Je disais des bêtises, il faut remplir le ComboBox à l'initialisation du userForm (j'étais parti du principe que c'était un ComboBox d'une feuille de calcul)

Dans UserForm1:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
    UserForm1.ComboBox1.Clear
 
    For i = 1 To Sheets.Count
        UserForm1.ComboBox1.AddItem Sheets(i).Name
    Next i
End Sub
 
Private Sub ComboBox1_Change()
    MsgBox "L'item sélectionné est : " & ComboBox1.Value, vbInformation
End Sub

[L'Albatros]

Ah oui, je comprends mieux

Un très grand merci !

[kiki29]

Salut, de la lecture semble indispensable : Utiliser les UserForm en VBA Excel ainsi que Utiliser les contrôles dans un UserForm