ComboBox en VBA

Mihawk Messages postés 4315 Date d'inscription   Statut Contributeur Dernière intervention   -  
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous,
je suis en train de faire un petit programme simple sur VisualBasic, et j'ai un petit soucis avec une combobox.
Je souhaite en fait récupérer la valeur de la combobox, et m'en servir remplir une centaine de cellules du tableau de la feuille excel en la multipliant par un coefficient.
Seulement voila, une fois dans ma boucle, lorsque je la multiplie par la variable incrémenté ou autre chose, j'obtiens une erreur de type (erreur 13), alors que si je demande à afficher la valeur de la combobox sans la modifier, tout va bien.
Voici le code :

Private Sub Colonne_temps()
For i = 0 To 99
Worksheets("Feuil1").Cells(i + 15, 2).Value = i * ComboBoxPeriodes.Value
Next i
End Sub



Pourquoi puis-je afficher la valeur de la combo seule, mais pas si je la multiplie par n'importe quoi ?
Merci à tous

1 réponse

Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
bonjour,

Si la valeur de ta combobox est un entier faire :

Worksheets("Feuil1").Cells(i + 15, 2).Value = i * Cint(ComboBoxPeriodes.Value)

Si la valeur de ta combobox est un duble faire :

Worksheets("Feuil1").Cells(i + 15, 2).Value = i * CDbl(ComboBoxPeriodes.Value )


;o)

Polux
1