Discussion :

[rattrappemoi]

Bonjour,

J'ai fais un tableau des stocks et lorsque les caractères deviennent rouge, c'est qu'il faut commander.
Quand les caractères sont vert, c'est qu'il y en a suffisamment.

Je souhaite donc obtenir la somme des nombres qui ont la même couleur.
Par exemple : 1 23 43 34 54 34 sont bleu et dispersé dans des cases qui ne sont pas cote à cote.
pareil pour 23 43 54 548 qui sont rouge.
Il faut savoir que ces nombres peuvent changer de couleur du jour au lendemain puisque le stock varie continuellement.


Je veux donc savoir quel est la somme de tout les chiffres qui deviennent rouge et la somme de tout les chiffres qui deviennent bleu.
Pas le nombre de chiffre en rouge mais la somme.

Merci !

[kiki29]

Salut, commence par dégrossir via Excel et l'enregistreur de macro, cela te donnera un embryon de code

[rattrappemoi]

Salut, commence par dégrossir via Excel et l'enregistreur de macro, cela te donnera un embryon de code

Bonjour,

Merci pour ta réponse. Je viens de modifier mon annonce pour que ça soit bien claire.

[patricktoulon]

salut
comme tu fait une recherche sur la couleur du texte des cellules c'est du coté de find format que tu devrais chercher

ou un filtre
exemple

Code :

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

1
2
3
4
5
6
7
8
Sub Macro2()
  With Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp))
        .AutoFilter Field:=1, Criteria1:=RGB(255, 0, 0), Operator:=xlFilterFontColor
        Set plage = .SpecialCells(xlVisible)
        .AutoFilter
    End With
    MsgBox plage.Address
End Sub

[rattrappemoi]

salut
comme tu fait une recherche sur la couleur du texte des cellules c'est du coté de find format que tu devrais chercher

ou un filtre
exemple

Code :

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

1
2
3
4
5
6
7
8
Sub Macro2()
  With Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp))
        .AutoFilter Field:=1, Criteria1:=RGB(255, 0, 0), Operator:=xlFilterFontColor
        Set plage = .SpecialCells(xlVisible)
        .AutoFilter
    End With
    MsgBox plage.Address
End Sub

Bonjour Patricktoulon,

Je suis vraiment un novice, et ne connait absolument rien à par rentrer des codes déjà écrit que l'on me partage.
Après avoir rentré ce code dans les macros, qu'est ce que je fais ?
De plus, une formule fonctionne avec le tableau ecran/packs clavier souris etc... mais pas pour les autres tableaux. Saurais tu pourquoi ?
j'ai mis le document Excel en pièce jointe pour que tu vois mon but.
Ce qui m'intéresse est la ligne Totaux à avoir.

[Philippe Tulliez]

Bonjour,
Sauf si c'est une contrainte, on peut parfaitement se passer de VBA

1 - Utiliser une liste de données convertie en tableau
2 - Sélectionner l'option Ligne des totaux



3 - Faire un filtre sur la couleur de la colonne E (Stock) - La couleur est le résultat d'une mise en forme conditionnelle