problème avec Userform

[marleauc]

Bonjour,

j,ai un problèeme avec mon code de bouton Nouveau et ajouter

bouton ajouter= le code est
Private Sub AjoutDansBase()
Dim Lgn As Range, Bcle&
IndexBase = PlageBase.Rows.Count + 1
Set PlageBase = PlageBase.Resize(IndexBase)
Set Lgn = PlageBase(IndexBase, 1)
For Bcle = 1 To ColTb.Count
Lgn(1, Bcle).Value = ColTb(Bcle).Text
Next Bcle
AlimenteTb
End Sub

je recois un erreur 1004

merci bcp

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Pierrot93]

Re : problème avec Userform

Bonjour,

je ne peux accéder à ton fichier, problème de proxy, mais vérifie peut être comment est déclarée / initialisée ta variable "ColTb" dans le code :

For Bcle = 1 To ColTb.Count
Lgn(1, Bcle).Value = ColTb(Bcle).Text

peut être indiquer quelle ligne de code est en débogage lorsque l'erreur se produit.

bon après midi
@+

 

[pierrejean]

Re : problème avec Userform

Bonjour marleauc

Teste cette modification dans Userform initialize

With F1
Set PlageBase = .Range("A2", .Range("A1").End(xlDown))
End With

Edit salut Pierrot 🙂

 

[marleauc]

Re : problème avec Userform

Merci a vous deux,

Oui Pierrejean c'était bien l'erreur un gros merci et bonne fin de semaine a vous deux