[Liste des courses] colorer par double clic puis établir liste à partir de A1

[anthoYS]

Bonjour,


Le but, de colorer par un premier double clic en vert (donc stock OK!), un second en jaune (stock moyen), un troisième en orange (stock juste), puis quatrième rouge (rupture de stock), un cinquième sans MEF, puis on recommence la boucle.

Aussi, insérer un combobox ou un bouton de commande, enfin je n'ai pas le terme exact, permettant de par un click établir la liste des courses à faire, de ce qui est en rouge, puis un second, effacer liste, à partir de A1 puis A2 etc. sans mise en forme (MEF), juste les valeurs.


Voyez le fichier joint.
Prenez votre temps. Si vous m'aidez, merci de me préciser la procédure, comment vous avez fait pas à pas.

Sinon je tenterai par moi-même plus tard.

Merci par avance.

 

[DoubleZero]

Bonjour, anthoYS, le Forum,

Une suggestion en pièce jointe.

A bientôt

 

[anthoYS]

Excellent, merci !

 

[anthoYS]

Bonjour,


Ce code colore n'importe comment ma feuille. voir capture ci-joint qui montre la coloration.

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean)
    Cancel = True
    If c.Column > 4 Or c = "" Then Exit Sub
    Select Case c.Interior.ColorIndex
    Case -4142: c.Interior.ColorIndex = 4
    Case 4: c.Interior.ColorIndex = 6
    Case 6: c.Interior.ColorIndex = 44
    Case 44
        c.Interior.ColorIndex = 3
        Sheets("HA").Range("a" & Rows.Count).End(xlUp)(2) = c
    End Select
End Sub

Pourquoi quand je copie le code sur une nouvelle feuille ça fonctionne. Mais uniquement sur un autre classeur, j'ai tenté sur le même mais toujours le même problème.


Merci

 

[DoubleZero]

Bonjour, anthoYS, le Forum,

... Pourquoi quand je copie le code sur une nouvelle feuille ça fonctionne. Mais uniquement sur un autre classeur, j'ai tenté sur le même mais toujours le même problème...

Merci de bien vouloir fournir le fichier de travail, sans aucune donnée confidentielle.

A bientôt

 

[anthoYS]

Bonjour,

Ci-joint le fichier demandé (avec beaucoup d'onglets enlevés).


je vous renvois à ce post :
https://www.excel-downloads.com/thr...c-puis-etablir-liste-a-partir-de-a1.20019748/

 

[gosselien]

Bonjour,

Et tu t'y retrouves dans ce truc ???

Pas mal d'erreurs de conception, mais je ne m'y attarderai pas

P.