Problèmes dans userform
Bonjour la communauté
J’aimerais votre aide sur plusieurs points.
3eme points = comment faire pour ajouter un texte dans la listbox1 quand on clique sur une image
4eme points = mettre les items de la listebox1 dans la feuille Excel à l’endroit indiqué (itens 1, item2…)
Je vous remercie de votre aide
1er et 2eme point fait par galopin01
1er point = dans mon userform , listbox1 je souhaiterai limiter le nombre d’item a 7
2eme points = je n’arrive pas à trouver la solution concernant une erreur sur le bouton UP et DOWN
Erreur qui se produit quand j’arrive en fin de lite haut ou bas
Voici le message d’erreur « erreur d’execution’381’ : impossible de lire la propriété List. Index de la table de propriétés non valide. »
Bonjour,
Sur la plupart des forums il est généralement convenu de poser une question à la fois... Sinon, si tu dois attendre qu'un répondeur ait toutes les réponses, tu risques d'attendre très longtemps.
Ma démo ne répond qu'aux 2 premières questions.
A+
Bonjour
Merci pour ta repose rapide
Je viens de regarder et tout fonctionne correctement
J’ai juste modifier un petit bout de code pour désactiver le bouton ajouter et la textbox1 si les items dans la listbox sont à 7
code :
Private Sub ajouter_Click()
If ListBox1.ListCount < 7 Then
ListBox1.AddItem TextBox1.Text 'ajout de la textbox vers listbox1
TextBox1.Text = ""
TextBox1.SetFocus
lblcount.Caption = ListBox1.ListCount 'compteur
ListBox1.ListIndex = ListBox1.ListCount - 1
End If
With Me
.ajouter.Enabled = ListBox1.ListCount < 7
.TextBox1.Enabled = ListBox1.ListCount < 7
End With
End Sub
Amicalement