Vba erreur impossible a trouver

vautour88 -  
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
j'ai une erreur de type mismatch sur ce code, et impossible de la trouver:
Private Sub Add_Click()
UserForm1.ComboBoxHostname.Clear 'pas vraiment utile c etai pour verifier
UserForm1.ComboBoxStatut.Clear
z = 2
Do While Cells(1, z) <> ""
UserForm1.ComboBoxHostname.AddItem Cells(1, z)
z = z + 1
Loop
t = 8
Do While Cells(t, 1) <> ""
UserForm1.ComboBoxStatut.AddItem Cells(t, 1)
t = t + 1
Loop
UserForm1.LblDate.Caption = Now
UserForm1.Show
End Sub

3 réponses

Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
Pas nécessairement, j'ai fait un copier/coller de ton code et je l'ai testé avec Excel 2003 et ça fonctionne.

Mais effectivement, il est plus propre de préciser la feuille.

Bonne continuation.

;o)

PS: n'oublie pas de mettre le topic en résolu . Merci
1
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
Bonjour,

Peux-tu préciser où se trouve le bouton Add ?

;o)
0
vautour88
 
il se trouve dans la feuille nommee "INV", mais j ai trouver l erreur, il faut preciser la feuille pour chaque cellule
worksheets("INV").Cell....
0