Vba erreur impossible a trouver

[Fermé]
Signaler
-
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
-
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

Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 182
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41989 internautes nous ont dit merci ce mois-ci

Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 182
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....