Problème lancement Userform (erreur 424, objet requis)

Dranreb

XLDnaute Barbatruc

• 23 Novembre 2011

• #2

Re : Problème lancement Userform (erreur 424, objet requis)

Bonjour
Ben il n'y a pas de Texbox1 tout simplement.
À +

 

Vote positif 0 Vote négatif

hypo78

XLDnaute Impliqué

• 23 Novembre 2011

• #3

Re : Problème lancement Userform (erreur 424, objet requis)

Bonjour Dranreb,

en attendant des réponses, j'ai renommé justement les Texbox et combobox, et maintenant erreur 13....

Je crois que je me suis lancé dans un truc..... mais bon faut apprendre😕

 

Pièces jointes

• mat.xls

  434 KB · Affichages: 50
• mat.xls

  434 KB · Affichages: 54
• mat.xls

  434 KB · Affichages: 51

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 23 Novembre 2011

• #4

Re : Problème lancement Userform (erreur 424, objet requis)

Bonjour

Il faut modifier le code suivant
If numero = 1 Then TextBoxDossier = 1 Else TextBoxDossier.Value = Val(.Cells(numero, 2)) + 1
.Cells(numero, 2) est du type "string"

JP

 

Vote positif 0 Vote négatif

hypo78

XLDnaute Impliqué

• 23 Novembre 2011

• #5

Re : Problème lancement Userform (erreur 424, objet requis)

Bonjour JP14,

merci, surement un copier / "merder"...😕

à tout de suite, je ne suis pas à la fin de mon projet.... 2% peut être 😛

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 23 Novembre 2011

• #6

Re : Problème lancement Userform (erreur 424, objet requis)

Bonjour (Re)

Ci dessous le code pour l'alimentation des combobox

Code:

With Sheets("DataBase")
    Me.Demandeur.List = .Range("a2:a" & .Range("A" & .Rows.Count).End(xlUp).Row).Value
    Me.Grade.List = .Range("b2:b" & .Range("b" & .Rows.Count).End(xlUp).Row).Value
End With

JP

 

Vote positif 0 Vote négatif