Discussion :

[phileasdav]

Bonjour à tous;

Je souhaiterai afficher dans un combobox une liste appartenant a une colonne sous conditions de la valeur d'une autre colonne.
j'arrive a le faire pour une condition appartenant a la même colonne mais là , je cale...........!!

Mon exemple en pièce jointe

Merci d'avance et bon dimanche
Phil

[phileasdav]

Bon en cherchant un peu, j'ai enfin réussi a trouver ::

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim c As Range
Sheets("feuil1").Range("b2:c80").Select '.End(xlDown).Row
    For Each c In Selection
        If c = "operateur" Then ComboBox1.AddItem c.Offset(0, -1)
    Next

Désolé et merci quand meme
Phil

[unparia]

Bonjour
Ce vilain Select suivi de Selection ! --->>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each c In Sheets("feuil1").Range("b2:c80").cells
  If c = "operateur" Then ComboBox1.AddItem c.Offset(0, -1)
Next

[Docmarti]

Bonjour

Et si tu fais les 2 tests suivants, lequel preferes-tu? TestB ou TestBC ?

TestBC porte sur "b2:C80"
TestB porte sur "b2:b80"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub testBC()
 
For Each c In Sheets("feuil1").Range("b2:C80").Cells
 c.Select
 Stop
  If c = "operateur" Then ComboBox1.AddItem c.Offset(0, -1)
Next
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub testB()
 
For Each c In Sheets("feuil1").Range("b2:B80").Cells
 c.Select
 Stop
  If c = "operateur" Then ComboBox1.AddItem c.Offset(0, -1)
Next
 
End Sub

[Docmarti]

TestBC porte sur range ("b2:C80")

TestB porte sur range ("b2:b80")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each c In Sheets("feuil1").Range("b2:C80").Cells

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each c In Sheets("feuil1").Range("b2:b80").Cells

[unparia]

Il devrait suffire d'appliquer ce code à la seule colonne comportant les fonctions (La colonne C ? La colonne B ? Je l'ignore car il me faudrait ouvrir le classeur, ce que je ne fais pas).