Vba erreur impossible a trouver
vautour88
-
Polux31 Messages postés 7219 Statut Membre -
Polux31 Messages postés 7219 Statut Membre -
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
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
Configuration: Windows XP Internet Explorer 6.0
3 réponses
-
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 -
Bonjour,
Peux-tu préciser où se trouve le bouton Add ?
;o)
-
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....
