OVH Cloud OVH Cloud

Combo sans doublons

32 réponses
Avatar
David
Bonjour à tous


J'utilise ceci pour remplir mes 4 combos.

Comment faire pour remplir sans doublon.
J'ai bien regardé sur le excelabo et autre mais je n'arrive pas à l'adapter
à mon projet

Merci de votre aide

Private Sub Ini()
Dim L, M, N, O As Integer
Dim Plage1, Plage2, Plage3, Plage4 As String
L = Sheets("BD").Range("A65536").End(xlUp).Row
M = Sheets("BD").Range("B65536").End(xlUp).Row
N = Sheets("BD").Range("D65536").End(xlUp).Row
O = Sheets("BD").Range("F65536").End(xlUp).Row
Plage1 = Sheets("BD").Range("A2:A" & L).Address
Plage2 = Sheets("BD").Range("B2:B" & M).Address
Plage3 = Sheets("BD").Range("D2:D" & N).Address
Plage4 = Sheets("BD").Range("F2:F" & O).Address
cmbCaisse.RowSource = "'BD'!" & Plage2
cmbMutuelle.RowSource = "'BD'!" & Plage3
cmbMode.RowSource = "'BD'!" & Plage4
cmbClient.RowSource = "'BD'!" & Plage1
End Sub

2 réponses

1 2 3 4
Avatar
David
Bonjour jps et tous les autres

Exacte. Désolé DANIEL

En tout cas merci à vous tous pour votre aide et votre patiente

Je vous tire ma révérence

Cordialement

David
Avatar
David
Super

Merci Daniel

Bon W.E.
1 2 3 4