miguelangelo
XLDnaute Occasionnel
Bonjour à tous,
voilà mon souci,
dans mon userform, j'ai une listbox de "Société"
et j'ai un textbox, dans lequel je rajoute des sociétés (depuis ma listbox)...
et je souhaite aussi pouvoir supprimer des sociétés (depuis ma listbox)
mes deux problèmes sont :
1) Comment, lors du rajout d'une société, vérifier qu'elle n'est pas déjà dans les valeurs de ma textbox. Pour m'éviter de l'enregistrer deux fois
Private Sub ajout_frs_Click()
Application.ScreenUpdating = False
If Me.liste_fournisseur.Value = "" Then Exit Sub
Me.Fournisseurs_lot.Value = Me.liste_fournisseur.Value & " ; " & Me.Fournisseurs_lot.Value
Me.liste_fournisseur.Value = ""
End Sub
2) Comment lors d'une suppression d'une société, aller vérifier au préalable que je l'avais déjà selectionnée
Private Sub supprime_frs_Click()
Application.ScreenUpdating = False
If Me.liste_fournisseur.Value = "" Then Exit Sub
'là c'est pas bon
If Me.Fournisseurs_lot.Value Like Me.liste_fournisseur.Value Then
Me.Fournisseurs_lot.Value = Replace(Me.Fournisseurs_lot.Value, Me.liste_fournisseur.Value & " ; ", "")
Else
Exit Sub
End If
End Sub
vous pouvez visualiser mon souci dans le fichier joint.
vous remerciant pour votre aide !
voilà mon souci,
dans mon userform, j'ai une listbox de "Société"
et j'ai un textbox, dans lequel je rajoute des sociétés (depuis ma listbox)...
et je souhaite aussi pouvoir supprimer des sociétés (depuis ma listbox)
mes deux problèmes sont :
1) Comment, lors du rajout d'une société, vérifier qu'elle n'est pas déjà dans les valeurs de ma textbox. Pour m'éviter de l'enregistrer deux fois
Private Sub ajout_frs_Click()
Application.ScreenUpdating = False
If Me.liste_fournisseur.Value = "" Then Exit Sub
Me.Fournisseurs_lot.Value = Me.liste_fournisseur.Value & " ; " & Me.Fournisseurs_lot.Value
Me.liste_fournisseur.Value = ""
End Sub
2) Comment lors d'une suppression d'une société, aller vérifier au préalable que je l'avais déjà selectionnée
Private Sub supprime_frs_Click()
Application.ScreenUpdating = False
If Me.liste_fournisseur.Value = "" Then Exit Sub
'là c'est pas bon
If Me.Fournisseurs_lot.Value Like Me.liste_fournisseur.Value Then
Me.Fournisseurs_lot.Value = Replace(Me.Fournisseurs_lot.Value, Me.liste_fournisseur.Value & " ; ", "")
Else
Exit Sub
End If
End Sub
vous pouvez visualiser mon souci dans le fichier joint.
vous remerciant pour votre aide !