listbox valeur de 2 colonnes

[matthieuJ]

bonjour a tous,


j'ai 2 colonnes

l'une avec des référence : 1;2;3;4;5;6;7;8;9;10 ........
l'autre avec des valeurs : 4;9;3;2;5

je voudrais que dans un combobox ou listbox
il s'affiche les valeurs de la colonne 1 moins les valeurs de la colonne 2

exemple ici dans le combobox il devrait y avoir
1;6;7;8;10


Voila j'ai tout developpé dans le fichier joint
actuellement le combobox contient les valeur de la colonne1

en espèrant ne pas avoir été brouillon

merci [file name=Classeur1_20050824150320.zip size=9154]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050824150320.zip[/file]

 

[tontoncarton]

hello

Pourkoi tu ne crees pas tout simplement une tyroisieme colonne pour tes calculs et tu definis la rowsource de ton combobox sur celle-ci?

@+

 

[Creepy]

Bonsoir à vous,

Voici mon code en PJ

Bonne soirée

Creepy [file name=Ajoutcomboboxdifferents.zip size=10164]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Ajoutcomboboxdifferents.zip[/file]

 

[matthieu]

merci beaucoup c'est exactement ce que je voulais

bonne fin de journée

 

[tontoncarton]

re

oups j'avis rien compris a ton probleme , je pensais que tu voulais juste soustraire les valeur des colonnes

desolé

 

[_Thierry]

Bonjour Mathieu, TontonCarton, Creepy

Une autre approche plus rapide sur des gros tableaux de données, bien que celle de Creepy soit toute à fait correcte (mis à part le 'Else' vide au milieu (?)

Option Explicit

Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
Dim RefPate1 As Variant, RefPate2 As Variant
Dim TabFinal() As Integer
Dim i As Integer, ii As Integer, j As Integer

    With Sheets(1)
        RefPate1 = Range(.Range('E3'), .Range('E65536').End(xlUp))
        RefPate2 = Range(.Range('F3'), .Range('F65536').End(xlUp))
    End With

For i = 1 To UBound(RefPate1)
        For ii = 1 To UBound(RefPate2)
            If RefPate1(i, 1) = RefPate2(ii, 1) Then GoTo TheNext
        Next ii
    ReDim Preserve TabFinal(j)
    TabFinal(j) = RefPate1(i, 1)
    j = j + 1

TheNext:
Next i

ComboBox1.List() = TabFinal()
End Sub

Bonne Fin de Journée
[ol]@+Thierry[/ol]

 

[Creepy]

RE all,

Désolé Thierry j'ai oublié de virer le 'Else' effectivement.

Je l'avais inseré automatiquement mais je ne l'ai pas enlevé comme j'en avais pas besoin.

J'ai pas trop la tête à coder aujourd'hui



@+

Creepy

 

[matthieu]

merci pour toutes vos versions