[E-2003]Changer le contenu combobox suivant condition

[stargate]

Bonjour,

j'aimerai changer le contenu de ma combo suivant que la ligne active de ma feuille
soit pair ou impair

j'ai essayé ceci mais en vain

Sub changeCombo()
'tournee récupère le target
If Tournee.Row Mod 2 = 1 Then
x = 1
While x < 184
With cboMaj
.AddItem Sheets("Sheet3").Range("A" & x)
End With
x = x + 1
Wend
ElseIf Tournee.Row Mod 2 = 0 Then
x = 1
While x < 98
With cboMaj
.AddItem Sheets("Sheet3").Range("B" & x)
End With
x = x + 1
Wend
End If

End Sub

Cette procédure est appelée dans le sélection change
une idée merci

 

[Robert]

Re : [E-2003]Changer le contenu combobox suivant condition

Bonjour Satgrate, Heu pardon Stargate... Bonjour le forum,

peut-être comme ça :

Private Sub UserForm_Initialize()
If ActiveCell.Row Mod 2 = 1 Then
    Me.ComboBox1.List = Sheets("Sheets3").Range("A1:A183").Value
Else
    Me.ComboBox1.List = Sheets("Sheets3").Range("B1:B97").Value
End If
End Sub

si c'est une Combobox dans une Userform...

Ou alors commes ça :

Private Sub ComboBox1_GotFocus()
If ActiveCell.Row Mod 2 = 1 Then
    Me.ComboBox1.List = Sheets("Sheets3").Range("A1:A183").Value
Else
    Me.ComboBox1.List = Sheets("Sheets3").Range("B1:B97").Value
End If
End Sub

pour une Combobox dans un onglet.

 

[stargate]

Re : [E-2003]Changer le contenu combobox suivant condition

merci, mais le combobox est sur une feuille sheet2 et récupère la liste sur le sheet3 en colonne A ou B

j'ai essayé ceci

If ActiveCell.Row Mod 2 = 1 Then
Me.cboMaj.List = Sheets("Sheets3").Range("A1:A183").Value
Else
Me.cboMaj.List = Sheets("Sheets3").Range("B1:B97").Value
End If

il me retourne une erreur à
Me.cboMaj.List = Sheets("Sheets3").Range("A1:A183").Value
en me disant
run time error
subscript out of range

je joins le fichier sheet2 et sheet3 seulement

 

[Robert]

Re : [E-2003]Changer le contenu combobox suivant condition

Bonjour Satgrate, Heu pardon Stargate (décidément !), bonjour le forum,

Si ça marche il faut corriger Sheets("Sheets3") par Sheets("Sheet3")...

Édition :

Bonjour le Squale oln s'est croisé

 

[job75]

Re : [E-2003]Changer le contenu combobox suivant condition

Bonjour le fil, salut Roger 🙂

Ou simplement cette macro dans le code de la feuille où se trouve la ComboBox :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.ComboBox1.ListFillRange = IIf(ActiveCell.Row Mod 2, "Sheet3!A1:A183", "Sheet3!B1:B97")
End Sub

A+

 

[Robert]

Re : [E-2003]Changer le contenu combobox suivant condition

Bonjour le fil, bonjour le forum,

Le squale... Fichier adapté à quoi ? Tu as regardé un peu le fichier de Saluigrate (m.... Stargate veux-je dire) ?

 

[stargate]

Re : [E-2003]Changer le contenu combobox suivant condition

super merci