Comparer valeur de combobox

K

kjin

XLDnaute Barbatruc

• 7 Mai 2009

• #2

Re : Comparer valeur de combobox

Bonjour,
A adapter
A+
kjin

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Mai 2009

• #3

Re : Comparer valeur de combobox

Bonjour,

kjin, tu as oublié qqchose...

Une macro lancée (par exemple) par un bouton dans l'USF :

Code:

Private Sub CommandButton1_Click()
Dim d As Object, ctl As Control, txt As String, n As Byte
Set d = CreateObject("Scripting.Dictionary")
For Each ctl In Controls
  If TypeName(ctl) = "ComboBox" Then
    txt = Controls(ctl.Name).Value
    If txt <> "" Then
      n = n + 1
      If Not d.Exists(txt) Then d.Add txt, txt
    End If
  End If
Next
If d.Count <> n Then MsgBox "Des ComboBox ont des valeurs identiques !", 48
End Sub

A+

 

Dernière édition: 7 Mai 2009

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 7 Mai 2009

• #4

Re : Comparer valeur de combobox

Re,
Salut job 🙂
Je n'avais pas jeté et pour cause je n'avais pas posté ! 😀
Même idée
A+
kjin

 

Pièces jointes

• Hotsauce.xls

  24 KB · Affichages: 48

Vote positif 0 Vote négatif

H

hotsauce91

Guest

• 7 Mai 2009

• #5

Re : Comparer valeur de combobox

merci pour votre aide 🙂

J'essaye d'atapter

 

Vote positif 0 Vote négatif