ComboBox double entrée

Hulk

XLDnaute Barbatruc

• 2 Février 2010

• #2

Re : ComboBox double entrée

Hello,

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

Code:

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 😀😀

 

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 2 Février 2010

• #3

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+

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 2 Février 2010

• #4

Re : ComboBox double entrée

Re,

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

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

 

Pièces jointes

• metro.zip

  13.3 KB · Affichages: 55

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 2 Février 2010

• #5

Re : ComboBox double entrée

Bon soir,

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

 

Pièces jointes

• 2CombosLiés.zip

  8.9 KB · Affichages: 59

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 2 Février 2010

• #6

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+

 

Vote positif 0 Vote négatif