Combobox sans vide

[iStarOSX]

Bonjour

J'ai essayé d'utiliser une partie du code de BOISGONTIER que j'ai trouvé dans ce post :

http://www.excel-downloads.com/forum/119674-combobox-sans-vide.html

Private Sub UserForm_Initialize()
 With Sheets("recapoperation")
  For Each c In Sheets("recapoperation").Range("M5:M" & .Range("M65000").End(xlUp).Row)
   If c <> "" Then
     Me.ComboBox5.AddItem c
     'Me.ComboBox6.AddItem c
     'Me.ComboBox7.AddItem c
     'Me.ComboBox8.AddItem c
    End If
   Next c
 End With
End Sub

Mais pour ma part je voudrais que mon combobox ne s'alimente pas à l'initialisation de mon USF, mais lors d'un click sur un bouton de mon USF.


J'ai donc mis le code trouvé précédemment en fin d'instruction de mon bouton :

Private Sub CommandButton1_Click()


Sheets("Moteur Calculs").Range("C1") = ComboBox1.Value
Sheets("Moteur Calculs").Range("D1") = ComboBox2.Value
Sheets("Moteur Calculs").Range("E1") = ComboBox3.Value
Sheets("Moteur Calculs").Range("F1") = ComboBox4.Value
Sheets("Moteur Calculs").Range("G1") = ComboBox5.Value



WebBrowser1.Navigate Sheets("Moteur Calculs").Range("L1").Value


 With Sheets("R5")
  For Each c In Sheets("R5").Range("A1:A" & .Range("A65000").End(xlUp).Row)
   If c <> "" Then
     Me.ComboBox1.AddItem c
     'Me.ComboBox6.AddItem c
     'Me.ComboBox7.AddItem c
     'Me.ComboBox8.AddItem c
    End If
   Next c
 End With

End Sub

Mais Excel affiche le message "Erreur de compilation: Variable non définie" et pointe la variable "c"

Je suppose que je doit déclarer cette variable en début d'instruction, mais je ne sais pas quoi écrire.

Je comprend rien au variable.

En VBA j'utilise que des truc simple genre if, and, Or,... des trucs de conditions quoi.

Si quelqu'un pouvait m'aider merci.

 

[Pierrot93]

Re : Combobox sans vide

Bonjour,

essaye peut être en déclarant ta variable, à mettre au début de la procédure :

Dim c As Range

bon après midi
@+