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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

anthoYS

XLDnaute Barbatruc
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.
 

Pièces jointes

Bonjour,


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

VB:
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
 

Pièces jointes

  • XLSKD.jpg
    XLSKD.jpg
    110 KB · Affichages: 54
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour