Discussion :

[delphin13]

Bonjour,

Dans l'exemple joint, je voudrais que les valeurs de ma liste déroulante de "l'userforme" s'affiche dans les cellules "a3" puis la valeur suivante dans la cellule "a4" puis "a5" etc jusqu'à la cellule "a11"

D'avance merci.

[casefayere]

Bonsoir,
J'ai regardé ton fichier et ne comprends pas ta demande, il faudrait un minimum d'explication (un maximum ne serait pas plus mal )

quel est ton but ?

[Daranc]

en premier
appel de l'USF

Code :

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

1
2
3
sub affich()
userform1.show
end sub

puis
dans le code de l'USF

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub ComboBox1_Change()
'Colonne et ligne de la première cellule vide en bas de la colonne A
col = 1
With Sheets(2)
ligne = .Range("a12").End(xlUp).Row + 1
If ligne < 5 Then
ligne = 5
ElseIf ligne = 12 Then
Exit Sub
Unload Me
End If
.Cells(ligne, col).Value = ComboBox1.Value
End With
 
End Sub

[delphin13]

Bonjour,
je reviens tardivement, mais je reviens...
casefayere, je tacherai d'être plus explicatif pour le prochain post.
Merci Daranc, c'est exactement ça.