formulaire

[DENIS34]

Bonjour,
j ai cree une fichier avec une colonne ayant une liste deroulante et quand je vais dans formulaire, je ne retrouve pas ma liste deroulante.
dois je rajouter une option
et la quelle?

merci

 

[PascalXLD]

Re : formulaire

Re

modifies ton code ainsi

Private Sub CommandButton1_Click()
Me.Hide
With Worksheets("BASE DONNEE")
.Activate
i = 1
While .Cells(i, 1) <> ""
i = i + 1
.Cells(i, 1).Activate
Wend

.Cells(i, 1) = ComboBox1.List(ComboBox1.ListIndex)
.Cells(i, 3) = TextBox5
.Cells(i, 4) = ComboBox2.List(ComboBox2.ListIndex)
.Cells(i, 5) = TextBox6
.Cells(i, 6) = TextBox9
.Cells(i, 7) = TextBox8
.Cells(i, 8) = TextBox12
.Cells(i, 9) = TextBox11
.Cells(i, 10) = Val(TextBox14)
.Cells(i, 11) = Val(TextBox13)
.Cells(i, 12) = Val(TextBox15)
.Cells(i, 14) = Val(TextBox18)
.Cells(i, 15) = Val(TextBox17)
End With
fin:
Me.Show
End Sub

en orange les val dont je te parlais

 

[DENIS34]

Re : formulaire

ok merci
comme j ai toujours une bonne reponse je rejoue
dans mon tableau
les lignes s'ajoutent sans prob mais comment je fais pour les cellules avec un calcul automatique (en vert dans tableau)
merci