Aide sur excel

[Platter 0]

Pour ceux qui pourraient m'aider:
J'ai un tableau dont une colonne de cellules se transforment en rouge ou en vert suivant des conditions,jusque là pas de problème.
Le but est de pouvoir cumuler (en chiffres)les rouges et les vertes,de façon à avoir un graph.
Si par exemple j'ai 5 cellules vertes et 3 rouges,il doit s'afficher 3 et 5 dans des cellules de mon choix et cumuler si on en rajoute.
Merci d'avance!

[Invité]

t'aurai possibilité de m'envoyez ton fichier que je regarde un peu ?

[titeuf63 3]

regarde ca

excel

[Platter 0]

J'ai pas encore la formule,je mets l'exemple pour bien comprendre:


Les cellules rouges ou vertes doivent se cumuler automatiquement en chiffres dans 2 autres cellules...
A vos neurones..

[didou038 2]

yop, déterrage de post ^^

si t'as pas trouver de solution, file moi ton fichier xls je te fait la macro (via les formules tu ne peux pas tu es obligé de faire une macro en vba)

désolé pour ce vieux deterrage mais je touche pas trop mal sous XL donc si je peux aider ...

[Platter 0]

Slt Didou
J'ai réussi à le faire avec mise en forme conditionnelle et sommeprod,le seul hic est que je suis obligé de mettre 0 ou 1 dans les cases suivant la couleur et qu'ils se voient(impossible de mettre la couleur de police à la couleur de la case)...Je ne connais pas les macros..

[didou038 2]

je te pond un truc complet demain (j'ai quasi fini), sinon tu as quelle version de excel (histoire que je fasse quelques chose de compatible) ?

[Platter 0]

2003

[Fal 1]

didou038 a écrit:

je te pond un truc complet demain (j'ai quasi fini), sinon tu as quelle version de excel (histoire que je fasse quelques chose de compatible) ?

Salut Didou.
Est-ce que tu pourrais mettre ta macro ici ou l'uploader quelque part, ça m'intéresse.
Merci.

[didou038 2]

Salut !

je vous ai créé 2 fonctions, je vous laisserai voir celle qui vous convient le plus (a priori la 2eme est beaucoup mieux !).

Pour vous en servir suivez les instructions qui suivent (en cas de soucis je vous filerai un fichier xls tout prêt) :
1/ ouvrir excel et le fichier où vous voulez utiliser la fonction.
2/ appuyer sur les touches alt F11 ceci ouvrir microsoft visual basic (VB)
3/ dans Vb a gauche vous avez l'explorateur de projet, faite un clique droit sur votre projet (il porte le nom de votre fichier xls) et choisissez "insertion" => "module"
4/ dans ce module coller le code de la fonction que vous voulez ou les 2, l'un a la suite de l'autre
5/ retourner sur excel (vous pouvez fermer VB), dans la cellule où vous voulez le résultat vous taper dans la ligne des fonctions :
fonction 1 (a faire autant de fois qu'il y a de couleur a compter (une fonction par ligne de résultat => si 2 couleurs mettre la fonction dans 2 cellules différentes !!!):

Code:

=CompteCouleurCellule(<le groupe de cellule a traiter> ; le code couleur du fond de la cellule a rechercher qui est un chiffre)

Code:


Function CompteCouleurCellule(champCellule As Range, couleurfond)
  Application.Volatile
  Dim cellule, CouleurCount
  CouleurCount = 0
  For Each cellule In champCellule
    If cellule.Interior.ColorIndex = couleurfond Then
      CouleurCount = CouleurCount + 1
    End If
    Next cellule
    CompteCouleurCellule = CouleurCount
End Function


fonction 2 :

Code:

=CompteCouleurCelluleRef(<le groupe de cellule a traiter> ; <une cellule ayant la couleur a compter>)

Code:

Function CompteCouleurCelluleRef(champCellule As Range, CelluleRef As Range)
  Application.Volatile
  Dim cellule, CouleurCount
  CouleurCount = 0
  For Each cellule In champCellule
    If cellule.Interior.ColorIndex = CelluleRef.Interior.ColorIndex Then
      CouleurCount = CouleurCount + 1
    End If
    Next cellule
    CompteCouleurCelluleRef = CouleurCount
End Function

exemple :
les cellules a traiter sont de A1 a A15, il faut compter le rouge (code 3, ou cellule de référence C1 ou une cellule dans celle que l'on doit traiter exemple A3) et avoir ce résultat en B5 :

dans la cellule B5 on ecrit pour la fonction 1 : =CompteCouleurCellule(A1:A15;3)

pour la fonction 2 on écrit : =CompteCouleurCelluleRef(A1:A15;A3)

Je vous conseille la fonction 2 qui vous évite de rechercher le code des couleurs sous excel.

Je dois m'absenter, en cas de soucis de compréhension (je me lève) faite m'en part, je m'efforcerai de refaire quelques chose de plus clair.

Pour écrire les fonctions dans la cellule, cela marche comme les autres fonction excel, =lenomdelafonction( et on sélection a la souris les cellules voulues).

Bref, je pense que vous avez compris et que je viens de me prendre la tête a pondre une explication pour rien ^^, pas comme les fonctions que j'ai pondu en 15 minutes ^^

si vous avez besoin ... vous savez ou me trouver !

did

[Platter 0]

Houla!!On a une macro-bête excel,on va te garder!!
J'ai pas la tête assez reposée ce soir(je viens de prendre un an!),je promets que je vais essayer et je te dis quoi..Merci et reste dans le coin Did..

[Fal 1]

didou038 a écrit:

Salut !

je vous ai créé 2 fonctions, je vous laisserai voir celle qui vous convient le plus (a priori la 2eme est beaucoup mieux !).

Pour vous en servir suivez les instructions qui suivent (en cas de soucis je vous filerai un fichier xls tout prêt) :
1/ ouvrir excel et le fichier où vous voulez utiliser la fonction.
2/ appuyer sur les touches alt F11 ceci ouvrir microsoft visual basic (VB)
3/ dans Vb a gauche vous avez l'explorateur de projet, faite un clique droit sur votre projet (il porte le nom de votre fichier xls) et choisissez "insertion" => "module"
4/ dans ce module coller le code de la fonction que vous voulez ou les 2, l'un a la suite de l'autre
5/ retourner sur excel (vous pouvez fermer VB), dans la cellule où vous voulez le résultat vous taper dans la ligne des fonctions :
fonction 1 (a faire autant de fois qu'il y a de couleur a compter (une fonction par ligne de résultat => si 2 couleurs mettre la fonction dans 2 cellules différentes !!!):

Code:

=CompteCouleurCellule(<le groupe de cellule a traiter> ; le code couleur du fond de la cellule a rechercher qui est un chiffre)

Code:


Function CompteCouleurCellule(champCellule As Range, couleurfond)
  Application.Volatile
  Dim cellule, CouleurCount
  CouleurCount = 0
  For Each cellule In champCellule
    If cellule.Interior.ColorIndex = couleurfond Then
      CouleurCount = CouleurCount + 1
    End If
    Next cellule
    CompteCouleurCellule = CouleurCount
End Function


fonction 2 :

Code:

=CompteCouleurCelluleRef(<le groupe de cellule a traiter> ; <une cellule ayant la couleur a compter>)

Code:

Function CompteCouleurCelluleRef(champCellule As Range, CelluleRef As Range)
  Application.Volatile
  Dim cellule, CouleurCount
  CouleurCount = 0
  For Each cellule In champCellule
    If cellule.Interior.ColorIndex = CelluleRef.Interior.ColorIndex Then
      CouleurCount = CouleurCount + 1
    End If
    Next cellule
    CompteCouleurCelluleRef = CouleurCount
End Function

exemple :
les cellules a traiter sont de A1 a A15, il faut compter le rouge (code 3, ou cellule de référence C1 ou une cellule dans celle que l'on doit traiter exemple A3) et avoir ce résultat en B5 :

dans la cellule B5 on ecrit pour la fonction 1 : =CompteCouleurCellule(A1:A15;3)

pour la fonction 2 on écrit : =CompteCouleurCelluleRef(A1:A15;A3)

Je vous conseille la fonction 2 qui vous évite de rechercher le code des couleurs sous excel.

Je dois m'absenter, en cas de soucis de compréhension (je me lève) faite m'en part, je m'efforcerai de refaire quelques chose de plus clair.

Pour écrire les fonctions dans la cellule, cela marche comme les autres fonction excel, =lenomdelafonction( et on sélection a la souris les cellules voulues).

Bref, je pense que vous avez compris et que je viens de me prendre la tête a pondre une explication pour rien ^^, pas comme les fonctions que j'ai pondu en 15 minutes ^^

si vous avez besoin ... vous savez ou me trouver !

did

C'est intéressant, en fait je n'ai jamais créer de macro sous excel ou word, je ne savais pas que ça se codait en VB donc on peut créer des macros très élaborées, je connais à peine ce langage, je me suis essayé au langage basic (comme tout ceux qui s'intéressent à la programmation), C, pascal quand j'étais étudiant (il y a longtemps) mais le plus important reste l'algorithme.
Je vais voir ce que ta macro donne.

[Platter 0]

Fal a écrit:

je ne savais pas que ça se codait en VB donc on peut créer des macros très élaborées, je connais à peine ce langage, Je vais voir ce que ta macro donne.

Ba moi c'est pire,je fais mes premiers pas dans excel et les formules,alors le VB,quedale!!

[didou038 2]

je suis issu d'un cursus scolaire dans l'informatique (histoire d'officialiser mes connaissances avec un diplôme ^^), bien que j'ai fait de la programmation, je ne connaissais pas le VB jusqu'à ce début d'année. Je m'y suis mis au boulot pendant mes très court moment de répits. Autant vous dire de suite que j'ai pas mal galéré au début, heureusement google est mon ami et j'ai de bon reste de l'école ^^, mais une chose est sûr, VB + EXCEL c'est un cocktail détonnant !

Si vous avez un soucis avec ce que je vous ai déjà fourni, n'hésitez pas a me contacter et me donner un retour sur les fonctions, si elles vous conviennent

[GAZ01 1]

oui super cool ça !!!!!

[Platter 0]

La chiotte!!,mon PC déconne,il tourne mais écran noir,je crois que cette fois...(c'est un portable,je pense que c'est foutu!).j'ai pas encore essayé le VB,mais je vais le faire..

[Stab'80 0]

Si tu as un écran externe, essai le tu dois (sûrement) avoir une prise vga sur ton portable???

[Platter 0]

P.tain pas con le Stab,je viens de faire la manip.avec un autre écran et me revlà.C'est bien l'écran qui n'affiche plus J'avais pas pensé à faire ça, Stab!!

[Stab'80 0]

Ben ouaih qu'est que tu croyais??? Y en a là dedans lol!!!

[Platter 0]

Je n'avais aucun doute là-dessus!!

[GAZ01 1]

[Platter 0]

Slt Didou!
J'ai essayé mais ça ne fonctionne pas. .Quand je colle ça"=CompteCouleurCelluleRef(<le groupe de cellule a traiter> ; <une cellule ayant la couleur a compter>)" dans le VB,il met en rouge et indique"erreur de compilation",merci d'avance pour ton aide

[Fal 1]

Platter a écrit:

Slt Didou!
J'ai essayé mais ça ne fonctionne pas. .Quand je colle ça"=CompteCouleurCelluleRef(<le groupe de cellule a traiter> ; <une cellule ayant la couleur a compter>)" dans le VB,il met en rouge et indique"erreur de compilation",merci d'avance pour ton aide

Salut.
En général, le compilateur s'arrête à l'erreur donc où exactement?
J'ai pas encore testé.

[didou038 2]

çeci faut le mettre dans la cellule où vous voulez le résultat (la formule) :

Code:

=CompteCouleurCelluleRef([i]<le groupe de cellule a traiter>[/i] ; [i]<une cellule ayant la couleur a compter>[/i])

en remplaçant :

Code:

[i]<le groupe de cellule a traiter>[/i]

par la référence du groupe de cellule exemple :

Code:

A1:A9

et en remplaçant :

Code:

<une cellule ayant la couleur a compter>

par la référence de la cellule où vous avez la couleur a compter (que vous aurez mis en forme au préalable)
exemple : C2 en fond rouge, cette cellule sert de référence il ne faut donc pas prendre une cellule que vous souhaitez compter mais bien la créer indépendamment -normalement sur une autre feuille cela doit marcher je ne l'ai pas tester-. Vous devez créer autant de cellule de référence que de couleurs différentes a compter !

ce qui donne en B15 par exemple :
=CompteCouleurCelluleRef(A1:A9;C2)

Vous devrez donc mettre cette formule dans autant de cellule qu'il y a de couleur a compter. Si 2 couleurs a compter, alors 2 cellules DIFFÉRENTES avec cette formule

et ce qui suit faut le mettre dans le VB (la fonction):

Code:

Function CompteCouleurCelluleRef(champCellule As Range, CelluleRef As Range)
  Application.Volatile
  Dim cellule, CouleurCount
  CouleurCount = 0
  For Each cellule In champCellule
    If cellule.Interior.ColorIndex = CelluleRef.Interior.ColorIndex Then
      CouleurCount = CouleurCount + 1
    End If
    Next cellule
    CompteCouleurCelluleRef = CouleurCount
End Function

-> commencez par coller la fonction VB en 1er dans VB, en retournant sous excel, vous mettez alors la formule citée plus haut et vous aurez les infos qui apparaitront comme pour les autres formules Excel au fur et a mesure que vous l'écrirez (ou éditerez).

si c'est pas assez clair 2 solutions :
1- vous me donnez votre fichier excel et je vous y fait
2- je vous fourni un fichier excel avec le code tout fait

[Platter 0]

Slt Didou
Je ne comprends décidément pas tout
J'ai réessayé:j'ai copié la formule (la grande) dans le VB,et mis la petite avec ce qu'il faut dedans(je crois),ça donne ça:

Je ne peux pas envoyer le fichier,c'est professionnel.
Merci pour ta patience Didou,on finira bien par y arriver

[GAZ01 1]

ça c'est cool !!!!
bon j'espere qu'elle reviendra!
j'essaierais en dernier recours de faire ce qu'elle t'a donné et nous pourrons ainsi comparer les résultats hein platter ?!!!!

[didou038 2]

En image je pense que se sera plus facile :



dans mon exemple vous avez :

1- les cellules A1 à A9 colorées en vertes et rouges, c'est la plage de cellule où je souhaite savoir le nombre de cellule verte et rouge dedans.
2- en C1 j'ai ma cellule de référence pour ma 1ere couleur, ici le vert.
3- Idem en C2 pour le rouge
4- En B1 j'ai écrit la formule qui me permet de compter le nombre de cellule verte (la fonction compte dans la plage A1:A9 (le trait bleu) combien il y a de cellule contenant la couleur de la cellule C1 (le trait rose))
5- En B2 idem sauf que cette fois on compte le nombre de cellule rouge dans la même plage, il suffit d'écrire la formule en remplaçant C1 par C2

est-ce que c'est mieux comme cela ?

je vais pas pouvoir faire plus clair ^^ (prenez le temps de tout lire ^^)

ps : pas de soucis pour l'envoi du fichier, si c'est professionnel c'est tout a fait compréhensible.

[Platter 0]

GAZ01 a écrit:

ça c'est cool !!!!
bon j'espere qu'elle reviendra!
j'essaierais en dernier recours de faire ce qu'elle t'a donné et nous pourrons ainsi comparer les résultats hein platter ?!!!!

Comment tu sais que c'est une femme Gaz??
Enfin homme ou femme,Didou si tu pouvais me tutoyer...
C'est vrai qu'en images,c'est plus clair,j'avais effectivement pas compris
J'essaie et je te dis quoi,merci,merci

[GAZ01 1]

heu à vrai dire je ne sais pas pourquoi j'ai dit que c'etait une femme ????? peu importe dans tous les cas c'est super sympa !!!!!

[Fal 1]

Salut.
En effet, comme ça c'est plus clair.
Gaz, d'après les 4 messages qu'il a postés, Didou038 est un mec!

[didou038 2]

alors que les choses soient bien claires GAZ :

je suis un homme, un vrai ! lolllll

en faite c'était un "vous" général vu que vous êtes 2 intéressés par la fonction. Je vous ai mis dans le même panier

[GAZ01 1]

je ne sais pas pourquoi j'etais parti sur une femme lol excuse alors !!!

[Platter 0]

C'est tout bon Didou!!
En fait je mettais les formules en B1,B2 avant d'avoir peint C1,C2 en rouge et vert,il ne comprenait pas!!Ca marche nickel!
Merci t'es un chef

[Stab'80 0]

Platter a écrit:

C'est tout bon Didou!!
En fait je mettais les formules en B1,B2 avant d'avoir peint C1,C2 en rouge et vert,il ne comprenait pas!!Ca marche nickel!
Merci t'es un chef

B1 B2 touché!!!
C1 C2 dans l'eau!!!

[didou038 2]

pas de soucis gaz

je suis content que tu as réussi a y faire marcher platter, j'espère néanmoins que ça correspond a tes attentes. Si tu as besoin d'autres choses pour excel (ou autre) n'hésites surtout pas, c'est un plaisir pour moi que d'aider en informatique (à défaut d'être un bon mécano lol)

[GAZ01 1]

Cool !!!