listes cascade

[dn35]

Bonjour le forum !!!

Depuis quelques temps, j'essaie d'adapter un programme honteusement "pompé" dans ce forum mais qui va coller parfaitement à ce que je souhaite faire dans mon atelier. Quelqu'un pourrait-il m'indiquer pourquoi le code ci-dessous ne fonctionne pas ?

Private Sub Arretbox_change()

With Sheets("item")
Causebox.Clear
For n = 1 To Range("c65536").End(xlUp).Row
    If Range("c" & n) = Arretbox Then
    Causebox.AddItem Range("D" & n)
    End If
Next n
End With

End Sub

Sachant que les valeurs placées dans "item" en colonnes C et D se présentent sous cette forme :

PANNE vanne ensachage
PANNE vanne modulante
PANNE vannes 3.10 / 3.11 / 3.12
PANNE vapeur
PANNE ventilateur 3.21
PANNE ventilateur amont/aval/ lit interne
PANNE pompe 7.2
ARRET 1ere prod
ARRET attente casherisation
ARRET Attente contrôle qualité
ARRET attente matière première
ARRET Autres Arrêts
ARRET bouchage atomiseur
ARRET bouchage ensachage
ARRET bouchage pasto
...

si besoin je joint un tout petit bout du fichier.
Merci d'avance de votre aide

Bonne soirée
Laure

 

[Guest]

Re : listes cascade

Bonjour,

Edition : j'ai dit ces c.....ies Autant pour moi!!!!!🙂
A+

 

[bqtr]

Re : listes cascade

Re,
Bonsoir Hasco,

A+

Edit : Là c'est moi qui retire mes c... j'ai trop honte d'avoir loupé ça 😀

 

[Guest]

Re : listes cascade

Re,

Tu as oublié les '.' devant les 'range'.

With Sheets("item")
Causebox.Clear
For n = 1 To [SIZE=3][COLOR=red].[/COLOR][/SIZE]Range("c65536").End(xlUp).Row
    If [SIZE=3][COLOR=red].[/COLOR][/SIZE]Range("c" & n) = Arretbox Then
    Causebox.AddItem [SIZE=3][COLOR=red].[/COLOR][/SIZE]Range("D" & n)
    End If
Next n
End With

Si tu lance ta macro alors que la feuille Item n'est pas sélectionnée, sans les '.' devant les 'range' ce sont les données de la feuille active qui sont comparées.

A+

 

[dn35]

Re : listes cascade

Salut Hasco, bqtr ...

😱😱😱😱
Je suis sans voix ... pour le coup je me joint à la honte générale, l'inexpérience n'excuse pas tout ! La prochaine fois je serais plus attentive ...

Merci à vous !
Laure