Assigner le texte d'un menu déroulant à une cellule
Bonjour,
j'essaie d'assigner une valeur donnée par un menu déroulant à une colonne. Je veux qu'à chque nouvelle entrée la valeur s'joute dans la même colonne mais à la ligne en-dessous. Quand je spécifie la case avec un chiffre pour la colonne ça fonctionne mais quand je mets une variable ça ne fonctionne pas. pourquoi ???
Ne fonctionne pas:
Code:
1
2
3
4
5
6
7
8
9
10
11
| Sub Deroulant_Enter()
Dim Truc As Integer
Dim Ligne As Integer
Deroulant.AddItem "zut"
Deroulant.AddItem "M...."
Deroulant.AddItem "Fait Ch...."
Dim Feuil1 As Range
Truc = Worksheets("Feuil1").Range("A1").End(xlDown).Row
Ligne = Truc + 1
Worksheets("Feuil1").Cells(6, Ligne) = Deroulant
End Sub |
Fonctionne :
Code:
1
2
3
4
5
6
7
8
9
10
11
| Sub Deroulant_Enter()
Dim Truc As Integer
Dim Ligne As Integer
Deroulant.AddItem "zut"
Deroulant.AddItem "M...."
Deroulant.AddItem "Fait Ch...."
Dim Feuil1 As Range
Truc = Worksheets("Feuil1").Range("A1").End(xlDown).Row
Ligne = Truc + 1
Worksheets("Feuil1").Cells(6, 4) = Deroulant
End Sub |
Un grand merci d'avance
