Bonjour à tous,
C'est la première fois que je met une question sur ce forum, j'espère que vous pourrez m'aider !
Je vous explique mon problème, (le plus clairement possible !)
J'ai créé un Useform.
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 !