Ajouter une ligne à un tableau de donnée avec un UserForm
Bonjour,
J'essaie de faire fonctionner un code vba pour ajouter une ligne dans un tableau de données Excel avec une interface utilisateur UserForm, mais sans succès.
Voici le code que j'ai écrit, si quelqu'un peut m'aider.
J'ai fait un Do Loop pour compter le nombre de ligne déjà existante et commencer la saisie sur la première ligne vide.
Merci par avance
Public Sub AjoutTéléviseur()
UserFormAjoutTéléviseur.Show vbModeless
End Sub
Private Sub Ajouter_Click()
Dim cpt As Integer
cpt = 0
Do
cpt = cpt + 1
Loop Until IsEmpty(Feuil2.Cells(cpt, 1))
Range("A" & cpt) = TextBox1.Value
Range("B" & cpt) = TextBox2.Value
Range("C" & cpt) = TextBox3.Value
Range("D" & cpt) = TextBox4.Value
Range("E" & cpt) = TextBox5.Value
Range("F" & cpt) = TextBox6.Value
Range("G" & cpt) = TextBox7.Value
Range("H" & cpt) = TextBox8.Value
UserFormAjoutTéléviseur.Hide
Unload UserFormAjoutTéléviseur
End Sub
Private Sub Quitter_Click()
UserFormAjoutTéléviseur.Hide
Unload UserFormAjoutTéléviseur
End Sub
Bonsoir
A première vue ton code semble ok
A part la macro
Public Sub AjoutTéléviseur()
UserFormAjoutTéléviseur.Show vbModeless
End Subqui doit être "normalement" dans un module standard
Fournis ton fichier avec ton formulaire pour y voir plus clair
Merci pour la réponse.
J'ai déplacé le code de la macro dans un module standard, mais il affiche toujours un message d'erreur quand je souhaite exécuter.
Voici le fichier
Bonjour
On fait quoi avec ton fichier ?
Tu l'as tellement simplifié qu'il ne sert à rien
Tu as un Userform mais son nom n'est pas le bon : Il soit s'appeler "UserFormAjoutTele"
Et ton userform ne contient aucun contrôle
bonsoir,
j'y connais pas grand chose, mais ton USF est nommé UserForm1 et non ce qui est noté.
j'ai donc mis :
Public Sub AjoutTéléviseur()
UserForm1.Show vbModeless
End Subet ton userform se lance.
Francky
Désolé Banzai, on a répondu en même temps.
j'ai aussi fait le même constat dans l'USF qui est vierge !
Francky
Merci pour vos réponses.
J'ai renommé le UserForm, UserFormAjoutTele comme vous me l'avez dit.
Il n'y a effectivement plus de messages d'erreur comme avant mais la boite UserForm qui s'ouvre lors de l’exécution est vierge.
Est ce qu'il manque une commande pour que quelque chose s'affiche dans la boite UserForm.
Je reconnais que je suis un peu perdue dans Vba et que je ne comprends pas tout (je vais aller jeter un oeil aux cours proposé sur le site...)
Je viens de regarder le cours, ça m'a bien aidé et j'ai réussi à faire fonctionner mon code.
J'aurais du regarder le cours d'abord ,désolé.
Merci beaucoup pour l'aide