[RESOLUTO]PBLM avec l'affichage des doublants[Résolu]

[Ilino]

CIAO FORUM

Dans mon USF nouveau contrat, je souhaite supprimer les doublants jusqu'à mnt ça fonctionne selon le code ci-dessous

Private Sub ComboBox2_Change()
Dim n As Integer
Me.TextBox3 = "Ajouter Nouveau Contrat !!!"
  For n = 2 To 50
  If ComboBox2.Value = Sheets("MARCHE DD").Range("A" & n).Value Then
  'MsgBox "Ce Contart existe déjà dans la liste !", , "ATTENTION !"
    Me.TextBox3 = "Ce Contart existe déjà dans la liste !"
      
        With ComboBox2
        .Value = ""
        .SetFocus
        Me.ComboBox1 = Sheets("MARCHE DD").Range("b" & n).Value
        Me.TextBox2 = Sheets("MARCHE DD").Range("C" & n).Value
        CommandButton1_valider.Visible = False
  End With

  Exit Sub
End If
  Next n
End Sub

Mais mon souci dans ce code je l’explique par un exemple
Supposons qui j’ai déjà un contrat 12/ITA/2014 ,Je souhaite ajouter un autre contrat 12/ITA/2014 V1 il n’accepte pas pourquoi, puis je avoir votre remarques


grazie

 

[Ilino]

Re : PBLM avec l'affichage des doublants

Bonsoir Forum
je relance mon souci pour avoir votre aide , je suis boloqué
Merci par Avance

 

[Ilino]

Re : PBLM avec l'affichage des doublants

Bonjour Forum
est ce que mon souci est claire?
merci

 

[Modeste geedee]

Re : PBLM avec l'affichage des doublants

Bonsour®
supprimer et remplacer la procédure : Private Sub ComboBox2_Change()

par

Private Sub ComboBox2_AfterUpdate()
Dim n As Integer
Me.TextBox3 = "Ajouter Nouveau Contrat !!!"
CommandButton1_Valider.Visible = True
If Len(ComboBox2.Value) > 2 Then
   For n = 2 To 50
        If ComboBox2.Value = Sheets("MARCHE DD").Range("A" & n).Value Then
            MsgBox "Ce Contart existe déjà dans la liste !", , "ATTENTION !"
            Me.TextBox3 = "Ce Contart existe déjà dans la liste !"
          
            With ComboBox2
                    .Value = ""
                    .SetFocus
                    Me.ComboBox1 = Sheets("MARCHE DD").Range("b" & n).Value
                    Me.TextBox2 = Sheets("MARCHE DD").Range("C" & n).Value
                    CommandButton1_Valider.Visible = False
            End With
    
            Exit Sub
        End If
  Next n
  End If
End Sub

nb : je n'ai pas vérifier pourquoi les listes des ComboBox ne sont alimentées

 

[Staple1600]

Re : PBLM avec l'affichage des doublants

Bonjour à tous


Ilino
Cela ne fera pas mieux marcher le code VBA mais ce sera plus juste 😉

Remplacer
Ce Contart existe déjà dans la liste
par
Ce Contrat existe déjà dans la liste

NB: La coquille était déjà dans ton code initial 😉

 

[Ilino]

Re : PBLM avec l'affichage des doublants

Bonsour®
supprimer et remplacer la procédure : Private Sub ComboBox2_Change()

par

Private Sub ComboBox2_AfterUpdate()
Dim n As Integer
Me.TextBox3 = "Ajouter Nouveau Contrat !!!"
CommandButton1_Valider.Visible = True
If Len(ComboBox2.Value) > 2 Then
   For n = 2 To 50
        If ComboBox2.Value = Sheets("MARCHE DD").Range("A" & n).Value Then
            MsgBox "Ce Contart existe déjà dans la liste !", , "ATTENTION !"
            Me.TextBox3 = "Ce Contart existe déjà dans la liste !"
          
            With ComboBox2
                    .Value = ""
                    .SetFocus
                    Me.ComboBox1 = Sheets("MARCHE DD").Range("b" & n).Value
                    Me.TextBox2 = Sheets("MARCHE DD").Range("C" & n).Value
                    CommandButton1_Valider.Visible = False
            End With
    
            Exit Sub
        End If
  Next n
  End If
End Sub

nb : je n'ai pas vérifier pourquoi les listes des ComboBox ne sont alimentées

Bonjour ODESTE
MERCI pour la réponse mais ça n'a pas fonctionné , il reconnu pas les doublants ??
grazie

 

[Ilino]

Re : PBLM avec l'affichage des doublants

Re,
si j'ai bien compris tu as mis ce code

If Len(ComboBox2.Value) > 2

la longueur du N) Contrat dois sup a 2 caractéres??

 

[Ilino]

Re : PBLM avec l'affichage des doublants

Re
mon souci résolut
grazie MODESTE
A+