XL 2019 Combobox affiche 2 fois Msgbox

[Kevin38]

Bonsoir à tous,

Suite à l'ajoute du "ComboBox1 = UCase(ComboBox1)" le message combobox s'affiche deux fois

Quelqu'un a-t-il une idée de l'affichage 2 x et la solution pour y remédier ?

Merci d'avance

Private Sub ComboBox1_Change()
     With Sheets("CLIENT")
          a = Application.Transpose(.Range("A2:A" & .[A65000].End(xlUp).Row).Value2)
     End With
    
     With ComboBox1
          Range("C5").Value = .Text
          ComboBox1 = UCase(ComboBox1)
          If Len(.Text) = 0 Then
               .List = a
               .ListRows = Application.Min(10, .ListCount)
          Else
               fl = Filter(a, .Text, 2, 0)
               Select Case UBound(fl)
                    Case -1: MsgBox "Il n'existe aucun client de ce nom !!!", vbInformation, "Information Recherche Client"
                    Case Else
                         .List = fl
                         .ListRows = Application.Min(10, .ListCount)
                         If UBound(fl) <> 0 Then .DropDown
               End Select
          End If
     End With
End Sub

 

[Dranreb]

Bonsoir
Déclarez en tête de l'UserForm Private ExécutionInduite As Boolean
Au début de la ComboBox1_Change : If ExécutionInduite Then Exit Sub puis juste derrière ExécutionInduite = True. À la fin juste avant la End Sub : ExécutionInduite = False

Ou bien mettez ExécutionInduite = True devant la ComboBox1 = UCase(ComboBox1), et derrière elle ExécutionInduite = False

 

[Kevin38]

Bonsoir
Déclarez en tête de l'UserForm Private ExécutionInduite As Boolean
Au début de la ComboBox1_Change : If ExécutionInduite Then Exit Sub puis juste derrière ExécutionInduite = True. À la fin juste avant la End Sub : ExécutionInduite = False

Ou bien mettez ExécutionInduite = True devant la ComboBox1 = UCase(ComboBox1), et derrière elle ExécutionInduite = False

Bonsoir Dranreb,

Je n'ai pas trop bien compris mais est-ce comme ça

Private ExécutionInduite As Boolean
If ExécutionInduite Then Exit Sub
   ExécutionInduite = True
   ExécutionInduite = False
End if
End Sub

Private Sub ComboBox1_Change()
     With Sheets("CLIENT")
          a = Application.Transpose(.Range("A2:A" & .[A65000].End(xlUp).Row).Value2)
     End With
    
     With ComboBox1
          Range("C5").Value = .Text
          ComboBox1 = UCase(ComboBox1)
          If Len(.Text) = 0 Then
               .List = a
               .ListRows = Application.Min(10, .ListCount)
          Else
               fl = Filter(a, .Text, 2, 0)
               Select Case UBound(fl)
                    Case -1: MsgBox "Il n'existe aucun client de ce nom !!!", vbInformation, "Information Recherche Client"
                    Case Else
                         .List = fl
                         .ListRows = Application.Min(10, .ListCount)
                         If UBound(fl) <> 0 Then .DropDown
               End Select
          End If
     End With
End Sub

 

[Dranreb]

Non. Seule la déclaration de la varable globale ExécutionInduite doit être en tête de l'UserForm, en dehors de toute procédure. Les instructions exécutables doivent être dans la Private Sub ComboBox1_Change()

 

[Kevin38]

Non. Seule la déclaration de la varable globale ExécutionInduite doit être en tête de l'UserForm, en dehors de toute procédure. Les instructions exécutables doivent être dans la Private Sub ComboBox1_Change()

comme ça

Private ExécutionInduite As Boolean

Private Sub ComboBox1_Change()
     With Sheets("CLIENT")
          a = Application.Transpose(.Range("A2:A" & .[A65000].End(xlUp).Row).Value2)
     End With
    
     With ComboBox1
          Range("C5").Value = .Text
          ComboBox1 = UCase(ComboBox1)
          If Len(.Text) = 0 Then
               .List = a
               .ListRows = Application.Min(10, .ListCount)
          Else
               fl = Filter(a, .Text, 2, 0)
               Select Case UBound(fl)
                    Case -1: MsgBox "Il n'existe aucun client de ce nom !!!", vbInformation, "Information Recherche Client"
                    Case Else
                         .List = fl
                         .ListRows = Application.Min(10, .ListCount)
                         If UBound(fl) <> 0 Then .DropDown
               End Select
          End If
     End With
If ExécutionInduite Then Exit Sub
   ExécutionInduite = True
   ExécutionInduite = False
End if

End Sub

 

[Dranreb]

Non, la If ExécutionInduite Then Exit Sub juste après la Private Sub ComboBox1_Change(),
la ExécutionInduite = True au plus tard juste avant la ComboBox1 = UCase(ComboBox1) (parce que c'est elle qui provoque sa réexécution) et la ExécutionInduite = False au plus tôt juste après la ComboBox1 = UCase(ComboBox1)

 

[Kevin38]

Non, la If ExécutionInduite Then Exit Sub juste après la Private Sub ComboBox1_Change(),
la ExécutionInduite = True au plus tard juste avant la ComboBox1 = UCase(ComboBox1) (parce que c'est elle qui provoque sa réexécution) et la ExécutionInduite = False au plus tôt juste après la ComboBox1 = UCase(ComboBox1)

J'éspere avoir le bon

Private ExécutionInduite As Boolean
Private Sub ComboBox1_Change(),If ExécutionInduite Then Exit Sub
     With Sheets("CLIENT")
          a = Application.Transpose(.Range("A2:A" & .[A65000].End(xlUp).Row).Value2)
     End With
    
     With ComboBox1
          Range("C5").Value = .Text
          ExécutionInduite = True
      ComboBox1 = UCase(ComboBox1)
      ExécutionInduite = False
          If Len(.Text) = 0 Then
               .List = a
               .ListRows = Application.Min(10, .ListCount)
          Else
               fl = Filter(a, .Text, 2, 0)
               Select Case UBound(fl)
                    Case -1: MsgBox "Il n'existe aucun client de ce nom !!!", vbInformation, "Information Recherche Client"
                    Case Else
                         .List = fl
                         .ListRows = Application.Min(10, .ListCount)
                         If UBound(fl) <> 0 Then .DropDown
               End Select
          End If
     End With
End Sub

 

[Dranreb]

Deux points comme séparateur d'instructions, et non une virgule, si vous voulez la mêttre sur la même ligne que la Sub.
Et mettez donc plutôt .Text = UCase(.Text) puisque vous êtes dans une With ComboBox1

 

[Kevin38]

Deux points comme séparateur d'instructions, et non une virgule, si vous voulez la mêttre sur la même ligne que la Sub.

Je l'ai toujours en 2 x

 

[Dranreb]

Mettez un point d'arrêt et déroulez en pas à pas pour vérifier s'il n'y a pas une autre instruction qui provoque une autre ré-exécution de la Sub ComboBox1_Change(),

 

[Kevin38]

DMettez un point d'arrêt et déroulez en pas à pas pour vérifier s'il nh'y a pas une autre instruction qui provoque une autre exécution de la Sub ComboBox1_Change(),

Un grand merci, C'est Nickel!

Bonne soirée
@+

 

[ChTi160]

Bonjour le Fil
Pourquoi ne pas mettre les textes du Combobox à Ucase() lors du Chargement des Données !
Bonne Journée
a vous
Jean marie

 

[Kevin38]

Bonjour le Fil
Pourquoi ne pas mettre les textes du Combobox à Ucase() lors du Chargement des Données !
Bonne Journée
a vous
Jean marie

Oui, je pense que c'est déjà en Ucase ()

Merci
@+