OVH Cloud OVH Cloud

Afficher des cellules de couleurs dans un calendrier et les compter

13 réponses
Avatar
HD
Bonsoir,
J'utilise un calendrier pour compter des jours de travail, d'absence, de
formation....
J'aimerai pouvoir créer un menu déroulant avec toutes ces options. Ensuite
je choisis quelques cellules et je choisis dans mon menu une option. A ce
moment j'aimerai que mes cellules se colorient d'une façon déterminée.
Quelle fonction utiliser à ce moment là? (je sais créer le menu avec la
barre formulaire mais après?)

Ensuite, je souhaite en bas du calendrier chaque mois, compter les cellules
selon leur couleur. Là encore quelles fonctions utiliser?

Par avance merci

Hervé

10 réponses

1 2
Avatar
Jacky
Bonsoir

J'aimerai pouvoir créer un menu déroulant avec toutes ces options
Menu/donnée/validation==>liste


j'aimerai que mes cellules se colorient d'une façon déterminée
Menu/format/Mise en forme conditionnelle==>la formule est


Ensuite, je souhaite en bas du calendrier chaque mois, compter les
cellules selon leur couleur.

La même condition qui permet la mise en forme conditionnelle.

Salutations
JJ

"HD" a écrit dans le message de
news:
Bonsoir,
J'utilise un calendrier pour compter des jours de travail, d'absence, de
formation....
J'aimerai pouvoir créer un menu déroulant avec toutes ces options. Ensuite
je choisis quelques cellules et je choisis dans mon menu une option. A ce
moment j'aimerai que mes cellules se colorient d'une façon déterminée.
Quelle fonction utiliser à ce moment là? (je sais créer le menu avec la
barre formulaire mais après?)

Ensuite, je souhaite en bas du calendrier chaque mois, compter les
cellules

selon leur couleur. Là encore quelles fonctions utiliser?

Par avance merci

Hervé




Avatar
HD
Merci de ta réponse, ça me permet d'avancer.
Par contre, de cette façon, c'est chaque cellule de mon calendrier qu'il
faut cocher les unes après les autres.
J'aurais aimer pouvoir sélectionner plusiers cellules, puis grace à une
fenêtre, choisir la couleur, sans rien remplir dedans.
Ensuite, je n'arrive pas à "compter" les cellules colorées en fin de
colonne. (excuse je ne suis pas un spécialiste).
Merci encore.
Hervé


"Jacky" a écrit dans le message
de news:
Bonsoir

J'aimerai pouvoir créer un menu déroulant avec toutes ces options
Menu/donnée/validation==>liste


j'aimerai que mes cellules se colorient d'une façon déterminée
Menu/format/Mise en forme conditionnelle==>la formule est


Ensuite, je souhaite en bas du calendrier chaque mois, compter les
cellules selon leur couleur.

La même condition qui permet la mise en forme conditionnelle.

Salutations
JJ



Avatar
Patrick BASTARD
Bonjour, *HD*
J'ai lu ton post
avec le plus grand intéret :

Envoie moi une adresse valide, et je te ferai parvenir un fichier exemple,
d'après une idée de michdenis.
Je l'ai envoyé par erreur à Jacky :-(
Qu'il veuille bien m'en excuser.

Bien cordialement,

Bonsoir,
J'utilise un calendrier pour compter des jours de travail, d'absence,
de formation....
J'aimerai pouvoir créer un menu déroulant avec toutes ces options.
Ensuite je choisis quelques cellules et je choisis dans mon menu une
option. A ce moment j'aimerai que mes cellules se colorient d'une
façon déterminée. Quelle fonction utiliser à ce moment là? (je sais
créer le menu avec la barre formulaire mais après?)

Ensuite, je souhaite en bas du calendrier chaque mois, compter les
cellules selon leur couleur. Là encore quelles fonctions utiliser?

Par avance merci

Hervé


Avatar
Jacky
Re..
Une piste...(testé sur xl97)
J'aurais aimer pouvoir sélectionner plusiers cellules
Avec la selection en cours.

'------------
Sub couleurcel()
couleur = InputBox("Entrer l'index de la couleur(entre 1 et 56)")
On Error Resume Next
Range(Selection.Address).Select
Selection.Interior.ColorIndex = couleur
End Sub
'-----------
Ensuite, je n'arrive pas à "compter" les cellules colorées en fin de
colonne.

'-----------
Sub Compte()
Dim cherche As Integer
cherche = InputBox("Entrer l'index de la couleur(entre 1 et 56) à
rechercher") ' ou directement l'index de color recherché
col = 10 ' a adapter
lig = 20
For i = 1 To col
For j = 1 To lig
If Cells(j, i).Interior.ColorIndex = cherche Then
trouve = trouve + 1
End If
Next
'MsgBox trouve
Cells(j + 1, i) = trouve
trouve = 0
Next
End Sub
'-----------
Salutations
JJ

"HD" a écrit dans le message de
news:
Merci de ta réponse, ça me permet d'avancer.
Par contre, de cette façon, c'est chaque cellule de mon calendrier qu'il
faut cocher les unes après les autres.
J'aurais aimer pouvoir sélectionner plusiers cellules, puis grace à une
fenêtre, choisir la couleur, sans rien remplir dedans.
Ensuite, je n'arrive pas à "compter" les cellules colorées en fin de
colonne. (excuse je ne suis pas un spécialiste).
Merci encore.
Hervé


"Jacky" a écrit dans le message
de news:
Bonsoir

J'aimerai pouvoir créer un menu déroulant avec toutes ces options
Menu/donnée/validation==>liste


j'aimerai que mes cellules se colorient d'une façon déterminée
Menu/format/Mise en forme conditionnelle==>la formule est


Ensuite, je souhaite en bas du calendrier chaque mois, compter les
cellules selon leur couleur.

La même condition qui permet la mise en forme conditionnelle.

Salutations
JJ







Avatar
HD
Je vais essayer ça.

"Jacky" a écrit dans le message
de news: %23q%
Re..
Une piste...(testé sur xl97)
J'aurais aimer pouvoir sélectionner plusiers cellules
Avec la selection en cours.

'------------
Sub couleurcel()
couleur = InputBox("Entrer l'index de la couleur(entre 1 et 56)")
On Error Resume Next
Range(Selection.Address).Select
Selection.Interior.ColorIndex = couleur
End Sub
'-----------
Ensuite, je n'arrive pas à "compter" les cellules colorées en fin de
colonne.

'-----------
Sub Compte()
Dim cherche As Integer
cherche = InputBox("Entrer l'index de la couleur(entre 1 et 56) à
rechercher") ' ou directement l'index de color recherché
col = 10 ' a adapter
lig = 20
For i = 1 To col
For j = 1 To lig
If Cells(j, i).Interior.ColorIndex = cherche Then
trouve = trouve + 1
End If
Next
'MsgBox trouve
Cells(j + 1, i) = trouve
trouve = 0
Next
End Sub
'-----------
Salutations
JJ

"HD" a écrit dans le message de
news:
Merci de ta réponse, ça me permet d'avancer.
Par contre, de cette façon, c'est chaque cellule de mon calendrier qu'il
faut cocher les unes après les autres.
J'aurais aimer pouvoir sélectionner plusiers cellules, puis grace à une
fenêtre, choisir la couleur, sans rien remplir dedans.
Ensuite, je n'arrive pas à "compter" les cellules colorées en fin de
colonne. (excuse je ne suis pas un spécialiste).
Merci encore.
Hervé


"Jacky" a écrit dans le
message
de news:
Bonsoir

J'aimerai pouvoir créer un menu déroulant avec toutes ces options
Menu/donnée/validation==>liste


j'aimerai que mes cellules se colorient d'une façon déterminée
Menu/format/Mise en forme conditionnelle==>la formule est


Ensuite, je souhaite en bas du calendrier chaque mois, compter les
cellules selon leur couleur.

La même condition qui permet la mise en forme conditionnelle.

Salutations
JJ











Avatar
Jacky
Bonsoir Patrick

Qu'il veuille bien m'en excuser.
Tout à fait

Vraiment pas grave.
Si HD arrive à adapter la fonction de Denis Michon, cela serait nettement
moins fastidieux que mon code, bien qu'il fonctionne, mais celui de Denis
est beaucoup moins lourd.

Bonne Nuit
JJ

"Patrick BASTARD" a écrit dans le
message de news:O12$
Bonjour, *HD*
J'ai lu ton post
avec le plus grand intéret :

Envoie moi une adresse valide, et je te ferai parvenir un fichier exemple,
d'après une idée de michdenis.
Je l'ai envoyé par erreur à Jacky :-(
Qu'il veuille bien m'en excuser.

Bien cordialement,

Bonsoir,
J'utilise un calendrier pour compter des jours de travail, d'absence,
de formation....
J'aimerai pouvoir créer un menu déroulant avec toutes ces options.
Ensuite je choisis quelques cellules et je choisis dans mon menu une
option. A ce moment j'aimerai que mes cellules se colorient d'une
façon déterminée. Quelle fonction utiliser à ce moment là? (je sais
créer le menu avec la barre formulaire mais après?)

Ensuite, je souhaite en bas du calendrier chaque mois, compter les
cellules selon leur couleur. Là encore quelles fonctions utiliser?

Par avance merci

Hervé






Avatar
Jacky
Re..
Voici la fonction de Denis pour totaliser les couleurs
'----------------------- de Denis Michon-------------
Function Couleur(Rg As Range) As Long
Dim B As Long
Application.Volatile
For Each c In Rg
If c.Interior.ColorIndex = _
Range(Application.Caller.Address). _
Interior.ColorIndex Then
B = B + 1
End If
Next
Couleur = B
End Function
'------------------------

"HD" a écrit dans le message de
news:%
Je vais essayer ça.

"Jacky" a écrit dans le
message

de news: %23q%
Re..
Une piste...(testé sur xl97)
J'aurais aimer pouvoir sélectionner plusiers cellules
Avec la selection en cours.

'------------
Sub couleurcel()
couleur = InputBox("Entrer l'index de la couleur(entre 1 et 56)")
On Error Resume Next
Range(Selection.Address).Select
Selection.Interior.ColorIndex = couleur
End Sub
'-----------
Ensuite, je n'arrive pas à "compter" les cellules colorées en fin de
colonne.

'-----------
Sub Compte()
Dim cherche As Integer
cherche = InputBox("Entrer l'index de la couleur(entre 1 et 56) à
rechercher") ' ou directement l'index de color recherché
col = 10 ' a adapter
lig = 20
For i = 1 To col
For j = 1 To lig
If Cells(j, i).Interior.ColorIndex = cherche Then
trouve = trouve + 1
End If
Next
'MsgBox trouve
Cells(j + 1, i) = trouve
trouve = 0
Next
End Sub
'-----------
Salutations
JJ

"HD" a écrit dans le message de
news:
Merci de ta réponse, ça me permet d'avancer.
Par contre, de cette façon, c'est chaque cellule de mon calendrier
qu'il



faut cocher les unes après les autres.
J'aurais aimer pouvoir sélectionner plusiers cellules, puis grace à une
fenêtre, choisir la couleur, sans rien remplir dedans.
Ensuite, je n'arrive pas à "compter" les cellules colorées en fin de
colonne. (excuse je ne suis pas un spécialiste).
Merci encore.
Hervé


"Jacky" a écrit dans le
message
de news:
Bonsoir

J'aimerai pouvoir créer un menu déroulant avec toutes ces options
Menu/donnée/validation==>liste


j'aimerai que mes cellules se colorient d'une façon déterminée
Menu/format/Mise en forme conditionnelle==>la formule est


Ensuite, je souhaite en bas du calendrier chaque mois, compter les
cellules selon leur couleur.

La même condition qui permet la mise en forme conditionnelle.

Salutations
JJ















Avatar
HD
L'adresse de ce post est valide.
Je te l'ai envoyé en perso hier soir mais je ne sais pas si ça a marché.
J'essaye tout cela ce soir.
Merci à tous.
Hervé


"Patrick BASTARD" a écrit dans le
message de news: O12$
Bonjour, *HD*
J'ai lu ton post
avec le plus grand intéret :

Envoie moi une adresse valide, et je te ferai parvenir un fichier exemple,
d'après une idée de michdenis.
Je l'ai envoyé par erreur à Jacky :-(
Qu'il veuille bien m'en excuser.

Bien cordialement,

Bonsoir,
J'utilise un calendrier pour compter des jours de travail, d'absence,
de formation....
J'aimerai pouvoir créer un menu déroulant avec toutes ces options.
Ensuite je choisis quelques cellules et je choisis dans mon menu une
option. A ce moment j'aimerai que mes cellules se colorient d'une
façon déterminée. Quelle fonction utiliser à ce moment là? (je sais
créer le menu avec la barre formulaire mais après?)

Ensuite, je souhaite en bas du calendrier chaque mois, compter les
cellules selon leur couleur. Là encore quelles fonctions utiliser?

Par avance merci

Hervé






Avatar
HD
J'ai bien reçu le fichier merci. Je cherche comment marche cette fameuse
fonction COULEUR. POur le moment sans succès.
As-tu des tuyaux?

Hervé

"Patrick BASTARD" a écrit dans le
message de news: O12$
Bonjour, *HD*
J'ai lu ton post
avec le plus grand intéret :

Envoie moi une adresse valide, et je te ferai parvenir un fichier exemple,
d'après une idée de michdenis.
Je l'ai envoyé par erreur à Jacky :-(
Qu'il veuille bien m'en excuser.

Bien cordialement,

Bonsoir,
J'utilise un calendrier pour compter des jours de travail, d'absence,
de formation....
J'aimerai pouvoir créer un menu déroulant avec toutes ces options.
Ensuite je choisis quelques cellules et je choisis dans mon menu une
option. A ce moment j'aimerai que mes cellules se colorient d'une
façon déterminée. Quelle fonction utiliser à ce moment là? (je sais
créer le menu avec la barre formulaire mais après?)

Ensuite, je souhaite en bas du calendrier chaque mois, compter les
cellules selon leur couleur. Là encore quelles fonctions utiliser?

Par avance merci

Hervé






Avatar
HD
J'ai trouvé comment elle marche, mais elle ne se met pas à jour toute seule,
comment faire?

Hervé

"Jacky" a écrit dans le message
de news: OE$
Bonsoir Patrick

Qu'il veuille bien m'en excuser.
Tout à fait

Vraiment pas grave.
Si HD arrive à adapter la fonction de Denis Michon, cela serait nettement
moins fastidieux que mon code, bien qu'il fonctionne, mais celui de Denis
est beaucoup moins lourd.

Bonne Nuit
JJ

"Patrick BASTARD" a écrit dans le
message de news:O12$
Bonjour, *HD*
J'ai lu ton post
avec le plus grand intéret :

Envoie moi une adresse valide, et je te ferai parvenir un fichier
exemple,
d'après une idée de michdenis.
Je l'ai envoyé par erreur à Jacky :-(
Qu'il veuille bien m'en excuser.

Bien cordialement,

Bonsoir,
J'utilise un calendrier pour compter des jours de travail, d'absence,
de formation....
J'aimerai pouvoir créer un menu déroulant avec toutes ces options.
Ensuite je choisis quelques cellules et je choisis dans mon menu une
option. A ce moment j'aimerai que mes cellules se colorient d'une
façon déterminée. Quelle fonction utiliser à ce moment là? (je sais
créer le menu avec la barre formulaire mais après?)

Ensuite, je souhaite en bas du calendrier chaque mois, compter les
cellules selon leur couleur. Là encore quelles fonctions utiliser?

Par avance merci

Hervé










1 2