ComboBox en VBA

Question

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

Polux31 · Answer

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

ComboBox en VBA

1 réponse

Discussions similaires

Newsletters