Discussion :

[Sofy31]

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 :

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

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 :

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

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

[Philippe Tulliez]

Bonjour,
Si tu veux écrire sur la prochaine ligne vide, c'est le premier argument de Cells qu'il faut remplir avec la variable Ligne

Code :

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

Worksheets("Feuil1").Cells(Ligne, 6) = Deroulant

Attention pour le deuxième argument (6) alors que Ligne est calculé avec la colonne 1