ComboBox double entrée

[lynyrd]

Bonsoir le forum
Quel code faudrait t'il affecter à la ComboBox2 afin que la recherche se fasse sur la colonne B ?
Et comment faire pour éviter les doublons dans les 2 ComboBox ?
Merci.

 

[Hulk]

Re : ComboBox double entrée

Hello,

Pour éviter les doublons et alimenter la ComboBox2 avec la colonne B, essaie ceci

Public Sub initialisecombo()
Dim i As Integer
With ComboBox1
    .Clear
    .ColumnCount = 2
    .ColumnWidths = "50;0"
End With
With Sheets("Feuil1")
    For i = 2 To .Range("A65000").End(xlUp).Row
     If .Cells(i, 1) <> .Cells(i - 1, 1) Then
      ComboBox1.AddItem .Cells(i, 1).Value
     End If
    Next
    For i = 2 To .Range("B65000").End(xlUp).Row
     If .Cells(i, 2) <> .Cells(i - 1, 2) Then
      ComboBox2.AddItem .Cells(i, 2).Value
     End If
    Next
End With
End Sub

Par contre je ne suis pas sûr de ta macro de la ComboBox1 !

EDIT : Au fait, ce même code, tu peux direct le mettre dans l'Initialize de l'USF... économie de deux lignes 😀😀

 

[lynyrd]

Re : ComboBox double entrée

Bonsoir Hulk
Apparement ca ne fonctionne pas,comme je suis pas doué en VBA,j'ai du mal placer le code.
Merci pour ton aide.
A+

 

[Hulk]

Re : ComboBox double entrée

Re,

Voici ton fichier modifié (comme je l'imagine)

Les modifications apportées sont entourées d'étoiles.

 

[Lii]

Re : ComboBox double entrée

Bon soir,

je le vois autrement (peut-être mal et sans garde-fou).

 

[lynyrd]

Re : ComboBox double entrée

Un grand merci à vous deux c'est exactement ce que je recherchais.
Je vais essayer de comprendre les codes.
Encore merci.
A+