ListBox + Tableau
debutantevba
Messages postés
25
Statut
Membre
-
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je vous explique mon problème, (le plus clairement possible !)
J'ai créé un Useform comme ci-dessous :

Je l'ai initialisé comme j'en avais besoin :
Vous pouvez donc voir que mes valeurs sont stocker dans des cellules de mon tableau et que pour le moment je n'utilise pas ma listBox !
On en arrive à ma question ou plutôt mon souhait ! :
Je voudrai que mes lots soit rangés dans mon tableau ET que leur nom apparaisse dans la listBox (jusqu'ici je sais faire) le vrai problème arrive lorsque je veux que mes utilisateurs puissent modifier leurs lots.
Il faudrait que lorsque il revienne sur ce userform il puisse :
Ajouter un lot (écriture du lot dans tableau et listbox)
ET
Le modifier soit :
- en cliquant sur le lot choisi dans la listBox, les infos correspondants au lots s'affichent dans les 3 textbox (Code ok pour moi), puis il modifie ce qu'il veut et en appuyant sur le bouton modifier il faut que la listBox soit modifier ET que les valeurs dans le tableau le soit aussi !
- ou directement dans le tableau, il choisissent un lot, modifie ce qu'ils veulent et cela modifie automatiquement dans la listBox ! Puis lors de la prochaine ouverture du userForm les données seront bien mises à jour.
Le supprimer .. :
Ils doivent pouvoir les supprimer, dans le tableau ou dans la listBox, je ne sais pas trop comment (je voudrais éviter de rajouter un bouton si possible) pour la suppression il ne faut pas que cela crée de bug au niveau des ID et du remplissage de la colonne ...
Si ce n'est pas clair demandez moi !!!
Merci !
EDIT: Ajout de la coloration syntaxique.
Je vous explique mon problème, (le plus clairement possible !)
J'ai créé un Useform comme ci-dessous :

Je l'ai initialisé comme j'en avais besoin :
Private Sub CommandButton3_Click()
Dim ctrl As Control, ctrlerr As Control
Dim erreur As Boolean
Dim NbreLots As Integer
Dim Lig As Long
NbreLots = 1
Lig = 2
erreur = False
For Each ctrl In Me.Controls
If TypeOf ctrl Is MSForms.TextBox Then
If ctrl.Text = "" Then
erreur = True
Set ctrlerr = ctrl
Exit For
End If
End If
Next ctrl
If erreur = True Then
MsgBox "Renseigner le nom du lot"
ctrlerr.SetFocus
Set ctrlerr = Nothing
Else
Do While Not IsEmpty(Range("H" & Lig))
Lig = Lig + 1
NbreLots = NbreLots + 1
Loop
MsgBox "Lot numéro " & NbreLots
Range("I" & Lig) = TextBox14.Value
Range("J" & Lig) = TextBox15.Value
Range("H" & Lig) = TextBox16.Value
Range("G" & Lig) = NbreLots
End If
End Sub
Vous pouvez donc voir que mes valeurs sont stocker dans des cellules de mon tableau et que pour le moment je n'utilise pas ma listBox !
On en arrive à ma question ou plutôt mon souhait ! :
Je voudrai que mes lots soit rangés dans mon tableau ET que leur nom apparaisse dans la listBox (jusqu'ici je sais faire) le vrai problème arrive lorsque je veux que mes utilisateurs puissent modifier leurs lots.
Il faudrait que lorsque il revienne sur ce userform il puisse :
Ajouter un lot (écriture du lot dans tableau et listbox)
ET
Le modifier soit :
- en cliquant sur le lot choisi dans la listBox, les infos correspondants au lots s'affichent dans les 3 textbox (Code ok pour moi), puis il modifie ce qu'il veut et en appuyant sur le bouton modifier il faut que la listBox soit modifier ET que les valeurs dans le tableau le soit aussi !
- ou directement dans le tableau, il choisissent un lot, modifie ce qu'ils veulent et cela modifie automatiquement dans la listBox ! Puis lors de la prochaine ouverture du userForm les données seront bien mises à jour.
Le supprimer .. :
Ils doivent pouvoir les supprimer, dans le tableau ou dans la listBox, je ne sais pas trop comment (je voudrais éviter de rajouter un bouton si possible) pour la suppression il ne faut pas que cela crée de bug au niveau des ID et du remplissage de la colonne ...
Si ce n'est pas clair demandez moi !!!
Merci !
EDIT: Ajout de la coloration syntaxique.
A voir également:
- ListBox + Tableau
- Tableau word - Guide
- Tableau ascii - Guide
- Trier un tableau excel - Guide
- Tableau croisé dynamique - Guide
- Imprimer tableau excel sur une page - Guide
2 réponses
Bonjour,
Vous auriez du y penser, lorsque que je vous ai modifie votre fichier a la suite de votre demande
https://forums.commentcamarche.net/forum/affich-32066580-formulaire-vba-listbox
Les modifs Lots a prevoir: erreur(s) de saisie sur nouveau projet ou projet valide et ajout apres validation.
Dans votre USF, avez-vous prevu de pouvoir modifier un projet Valide??
Je regarde pour modif lots projet en cours de saisie
A+
Vous auriez du y penser, lorsque que je vous ai modifie votre fichier a la suite de votre demande
https://forums.commentcamarche.net/forum/affich-32066580-formulaire-vba-listbox
Les modifs Lots a prevoir: erreur(s) de saisie sur nouveau projet ou projet valide et ajout apres validation.
Dans votre USF, avez-vous prevu de pouvoir modifier un projet Valide??
Je regarde pour modif lots projet en cours de saisie
A+
Re,
Modif projet: double clic sur cellule colonne A (non vide)
Modif lot(s): clic sur une ligne de la listbox1
Suppression de lot(s): double clic sur une ligne de la listbox1
clic sur Validation a la fin
https://www.cjoint.com/c/EFomuErl0Vf
A+
Modif projet: double clic sur cellule colonne A (non vide)
Modif lot(s): clic sur une ligne de la listbox1
Suppression de lot(s): double clic sur une ligne de la listbox1
clic sur Validation a la fin
https://www.cjoint.com/c/EFomuErl0Vf
A+