J'aimerais savoir si une macro peut reconnaître les couleurs afin de calculer le nombre d'heures.
http://cjoint.com/?gbsC3TqVgy
J'aimerais savoir si une macro peut reconnaître les couleurs afin de calculer le nombre d'heures.
http://cjoint.com/?gbsC3TqVgy
J'aimerais savoir si une macro peut reconnaître les couleurs afin de calculer le nombre d'heures.
http://cjoint.com/?gbsC3TqVgy
Bonjour à tous
J’aimerais savoir si une macro peut reconnaître les couleurs afin de
calculer le nombre d’heures.
J’ai un tableau avec des cellules qui représente des quarts d’heure, soit en
centième 0.25.
Pour le rouge et le bleu les heures sont additionnées dans la première
colonne, le jaune vert et violet dans la deuxième colonne.
Si quelqu’un peut me donner un coup de pouce, ce serait sympa, j’aimerais
éviter utiliser des formules Excel.Merci de votre préciense aide et à bientôt.
http://cjoint.com/?gbsC3TqVgy
Bonjour à tous
J’aimerais savoir si une macro peut reconnaître les couleurs afin de
calculer le nombre d’heures.
J’ai un tableau avec des cellules qui représente des quarts d’heure, soit en
centième 0.25.
Pour le rouge et le bleu les heures sont additionnées dans la première
colonne, le jaune vert et violet dans la deuxième colonne.
Si quelqu’un peut me donner un coup de pouce, ce serait sympa, j’aimerais
éviter utiliser des formules Excel.Merci de votre préciense aide et à bientôt.
http://cjoint.com/?gbsC3TqVgy
Bonjour à tous
J’aimerais savoir si une macro peut reconnaître les couleurs afin de
calculer le nombre d’heures.
J’ai un tableau avec des cellules qui représente des quarts d’heure, soit en
centième 0.25.
Pour le rouge et le bleu les heures sont additionnées dans la première
colonne, le jaune vert et violet dans la deuxième colonne.
Si quelqu’un peut me donner un coup de pouce, ce serait sympa, j’aimerais
éviter utiliser des formules Excel.Merci de votre préciense aide et à bientôt.
http://cjoint.com/?gbsC3TqVgy
"Frasax" a écrit ...J'aimerais savoir si une macro peut reconnaître les couleurs afin de calculer le nombre d'heures.
http://cjoint.com/?gbsC3TqVgy
--------------
Bonsoir,
Oui, c'est possible.
D'ailleurs, la macro existe, elle s'appelle RECONNAITRE_LES_COULEURS_AFIN_DE_CALCULER_LE_NOMBRE_D_HEURES.
Sub RECONNAITRE_LES_COULEURS_AFIN_DE_CALCULER_LE_NOMBRE_D_HEURES()
Const BLEU As Integer = 41
Const ROUGE As Integer = 3
Const JAUNE As Integer = 36
Const VERT As Integer = 35
Dim PLANNING_Z, HEURES_Z As Range
Dim HEURES
Dim LIGNE, COLONNE As Integer
Dim NB_LIGNES, NB_COLONNES As Integer
Set PLANNING_Z = Range("D4:BG16")
Set HEURES_Z = Range("BJ4:BL16")
HEURES = HEURES_Z.Value
NB_LIGNES = PLANNING_Z.Rows.Count
NB_COLONNES = PLANNING_Z.Columns.Count
For LIGNE = 1 To NB_LIGNES
HEURES(LIGNE, 1) = 0
HEURES(LIGNE, 3) = 0
Next LIGNE
For LIGNE = 1 To NB_LIGNES
For COLONNE = 1 To NB_COLONNES
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = BLEU Then HEURES(LIGNE, 1) = HEURES(LIGNE, 1) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = ROUGE Then HEURES(LIGNE, 1) = HEURES(LIGNE, 1) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = JAUNE Then HEURES(LIGNE, 3) = HEURES(LIGNE, 3) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = VERT Then HEURES(LIGNE, 3) = HEURES(LIGNE, 3) + 0.25
Next COLONNE
Next LIGNE
HEURES_Z = HEURES
End Sub
"Frasax" a écrit ...
J'aimerais savoir si une macro peut reconnaître les couleurs afin de calculer le nombre d'heures.
http://cjoint.com/?gbsC3TqVgy
--------------
Bonsoir,
Oui, c'est possible.
D'ailleurs, la macro existe, elle s'appelle RECONNAITRE_LES_COULEURS_AFIN_DE_CALCULER_LE_NOMBRE_D_HEURES.
Sub RECONNAITRE_LES_COULEURS_AFIN_DE_CALCULER_LE_NOMBRE_D_HEURES()
Const BLEU As Integer = 41
Const ROUGE As Integer = 3
Const JAUNE As Integer = 36
Const VERT As Integer = 35
Dim PLANNING_Z, HEURES_Z As Range
Dim HEURES
Dim LIGNE, COLONNE As Integer
Dim NB_LIGNES, NB_COLONNES As Integer
Set PLANNING_Z = Range("D4:BG16")
Set HEURES_Z = Range("BJ4:BL16")
HEURES = HEURES_Z.Value
NB_LIGNES = PLANNING_Z.Rows.Count
NB_COLONNES = PLANNING_Z.Columns.Count
For LIGNE = 1 To NB_LIGNES
HEURES(LIGNE, 1) = 0
HEURES(LIGNE, 3) = 0
Next LIGNE
For LIGNE = 1 To NB_LIGNES
For COLONNE = 1 To NB_COLONNES
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = BLEU Then HEURES(LIGNE, 1) = HEURES(LIGNE, 1) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = ROUGE Then HEURES(LIGNE, 1) = HEURES(LIGNE, 1) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = JAUNE Then HEURES(LIGNE, 3) = HEURES(LIGNE, 3) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = VERT Then HEURES(LIGNE, 3) = HEURES(LIGNE, 3) + 0.25
Next COLONNE
Next LIGNE
HEURES_Z = HEURES
End Sub
"Frasax" a écrit ...J'aimerais savoir si une macro peut reconnaître les couleurs afin de calculer le nombre d'heures.
http://cjoint.com/?gbsC3TqVgy
--------------
Bonsoir,
Oui, c'est possible.
D'ailleurs, la macro existe, elle s'appelle RECONNAITRE_LES_COULEURS_AFIN_DE_CALCULER_LE_NOMBRE_D_HEURES.
Sub RECONNAITRE_LES_COULEURS_AFIN_DE_CALCULER_LE_NOMBRE_D_HEURES()
Const BLEU As Integer = 41
Const ROUGE As Integer = 3
Const JAUNE As Integer = 36
Const VERT As Integer = 35
Dim PLANNING_Z, HEURES_Z As Range
Dim HEURES
Dim LIGNE, COLONNE As Integer
Dim NB_LIGNES, NB_COLONNES As Integer
Set PLANNING_Z = Range("D4:BG16")
Set HEURES_Z = Range("BJ4:BL16")
HEURES = HEURES_Z.Value
NB_LIGNES = PLANNING_Z.Rows.Count
NB_COLONNES = PLANNING_Z.Columns.Count
For LIGNE = 1 To NB_LIGNES
HEURES(LIGNE, 1) = 0
HEURES(LIGNE, 3) = 0
Next LIGNE
For LIGNE = 1 To NB_LIGNES
For COLONNE = 1 To NB_COLONNES
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = BLEU Then HEURES(LIGNE, 1) = HEURES(LIGNE, 1) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = ROUGE Then HEURES(LIGNE, 1) = HEURES(LIGNE, 1) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = JAUNE Then HEURES(LIGNE, 3) = HEURES(LIGNE, 3) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = VERT Then HEURES(LIGNE, 3) = HEURES(LIGNE, 3) + 0.25
Next COLONNE
Next LIGNE
HEURES_Z = HEURES
End Sub
Merci à vous pour vos bons conseils. La formule de Quetzalcoatl fonctionne
presque, il ya juste avec la couleuer lavande que ça ne marche pas, est-il
possible de pouvoir faire en sorte que la macro reconnaisse cette couleur ou
faut-il changer de couleur ce qui peut-être serait plus simple. Est-il
possible de tester avec cette couleur, je ne sais pas comment coder cette
couleur ou une autre, merci de me renseigner, bonne nuit et à +
"Quetzalcoatl" wrote:
"Frasax" a écrit ...J'aimerais savoir si une macro peut reconnaître les couleurs afin de calculer le nombre d'heures.
http://cjoint.com/?gbsC3TqVgy
--------------
Bonsoir,
Oui, c'est possible.
D'ailleurs, la macro existe, elle s'appelle RECONNAITRE_LES_COULEURS_AFIN_DE_CALCULER_LE_NOMBRE_D_HEURES.
Sub RECONNAITRE_LES_COULEURS_AFIN_DE_CALCULER_LE_NOMBRE_D_HEURES()
Const BLEU As Integer = 41
Const ROUGE As Integer = 3
Const JAUNE As Integer = 36
Const VERT As Integer = 35
Dim PLANNING_Z, HEURES_Z As Range
Dim HEURES
Dim LIGNE, COLONNE As Integer
Dim NB_LIGNES, NB_COLONNES As Integer
Set PLANNING_Z = Range("D4:BG16")
Set HEURES_Z = Range("BJ4:BL16")
HEURES = HEURES_Z.Value
NB_LIGNES = PLANNING_Z.Rows.Count
NB_COLONNES = PLANNING_Z.Columns.Count
For LIGNE = 1 To NB_LIGNES
HEURES(LIGNE, 1) = 0
HEURES(LIGNE, 3) = 0
Next LIGNE
For LIGNE = 1 To NB_LIGNES
For COLONNE = 1 To NB_COLONNES
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = BLEU Then HEURES(LIGNE, 1) = HEURES(LIGNE, 1) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = ROUGE Then HEURES(LIGNE, 1) = HEURES(LIGNE, 1) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = JAUNE Then HEURES(LIGNE, 3) = HEURES(LIGNE, 3) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = VERT Then HEURES(LIGNE, 3) = HEURES(LIGNE, 3) + 0.25
Next COLONNE
Next LIGNE
HEURES_Z = HEURES
End Sub
Merci à vous pour vos bons conseils. La formule de Quetzalcoatl fonctionne
presque, il ya juste avec la couleuer lavande que ça ne marche pas, est-il
possible de pouvoir faire en sorte que la macro reconnaisse cette couleur ou
faut-il changer de couleur ce qui peut-être serait plus simple. Est-il
possible de tester avec cette couleur, je ne sais pas comment coder cette
couleur ou une autre, merci de me renseigner, bonne nuit et à +
"Quetzalcoatl" wrote:
"Frasax" a écrit ...
J'aimerais savoir si une macro peut reconnaître les couleurs afin de calculer le nombre d'heures.
http://cjoint.com/?gbsC3TqVgy
--------------
Bonsoir,
Oui, c'est possible.
D'ailleurs, la macro existe, elle s'appelle RECONNAITRE_LES_COULEURS_AFIN_DE_CALCULER_LE_NOMBRE_D_HEURES.
Sub RECONNAITRE_LES_COULEURS_AFIN_DE_CALCULER_LE_NOMBRE_D_HEURES()
Const BLEU As Integer = 41
Const ROUGE As Integer = 3
Const JAUNE As Integer = 36
Const VERT As Integer = 35
Dim PLANNING_Z, HEURES_Z As Range
Dim HEURES
Dim LIGNE, COLONNE As Integer
Dim NB_LIGNES, NB_COLONNES As Integer
Set PLANNING_Z = Range("D4:BG16")
Set HEURES_Z = Range("BJ4:BL16")
HEURES = HEURES_Z.Value
NB_LIGNES = PLANNING_Z.Rows.Count
NB_COLONNES = PLANNING_Z.Columns.Count
For LIGNE = 1 To NB_LIGNES
HEURES(LIGNE, 1) = 0
HEURES(LIGNE, 3) = 0
Next LIGNE
For LIGNE = 1 To NB_LIGNES
For COLONNE = 1 To NB_COLONNES
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = BLEU Then HEURES(LIGNE, 1) = HEURES(LIGNE, 1) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = ROUGE Then HEURES(LIGNE, 1) = HEURES(LIGNE, 1) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = JAUNE Then HEURES(LIGNE, 3) = HEURES(LIGNE, 3) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = VERT Then HEURES(LIGNE, 3) = HEURES(LIGNE, 3) + 0.25
Next COLONNE
Next LIGNE
HEURES_Z = HEURES
End Sub
Merci à vous pour vos bons conseils. La formule de Quetzalcoatl fonctionne
presque, il ya juste avec la couleuer lavande que ça ne marche pas, est-il
possible de pouvoir faire en sorte que la macro reconnaisse cette couleur ou
faut-il changer de couleur ce qui peut-être serait plus simple. Est-il
possible de tester avec cette couleur, je ne sais pas comment coder cette
couleur ou une autre, merci de me renseigner, bonne nuit et à +
"Quetzalcoatl" wrote:
"Frasax" a écrit ...J'aimerais savoir si une macro peut reconnaître les couleurs afin de calculer le nombre d'heures.
http://cjoint.com/?gbsC3TqVgy
--------------
Bonsoir,
Oui, c'est possible.
D'ailleurs, la macro existe, elle s'appelle RECONNAITRE_LES_COULEURS_AFIN_DE_CALCULER_LE_NOMBRE_D_HEURES.
Sub RECONNAITRE_LES_COULEURS_AFIN_DE_CALCULER_LE_NOMBRE_D_HEURES()
Const BLEU As Integer = 41
Const ROUGE As Integer = 3
Const JAUNE As Integer = 36
Const VERT As Integer = 35
Dim PLANNING_Z, HEURES_Z As Range
Dim HEURES
Dim LIGNE, COLONNE As Integer
Dim NB_LIGNES, NB_COLONNES As Integer
Set PLANNING_Z = Range("D4:BG16")
Set HEURES_Z = Range("BJ4:BL16")
HEURES = HEURES_Z.Value
NB_LIGNES = PLANNING_Z.Rows.Count
NB_COLONNES = PLANNING_Z.Columns.Count
For LIGNE = 1 To NB_LIGNES
HEURES(LIGNE, 1) = 0
HEURES(LIGNE, 3) = 0
Next LIGNE
For LIGNE = 1 To NB_LIGNES
For COLONNE = 1 To NB_COLONNES
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = BLEU Then HEURES(LIGNE, 1) = HEURES(LIGNE, 1) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = ROUGE Then HEURES(LIGNE, 1) = HEURES(LIGNE, 1) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = JAUNE Then HEURES(LIGNE, 3) = HEURES(LIGNE, 3) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = VERT Then HEURES(LIGNE, 3) = HEURES(LIGNE, 3) + 0.25
Next COLONNE
Next LIGNE
HEURES_Z = HEURES
End Sub
je ne sais pas comment coder cette couleur
je ne sais pas comment coder cette couleur
je ne sais pas comment coder cette couleur
Bonsoir,
Pour connaître les codes de couleur, place toi dans une feuille vierge et exécute la macro suivante :
Sub COULEURS()
Dim i
For i = 1 To 56
Cells(i, 1) = i
Cells(i, 2).Interior.ColorIndex = i
Next i
End Sub
La couleur 'Lavande' correspond au code 39 :
Const LAVANDE As Integer = 39
En rajoutant la ligne :
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = LAVANDE Then HEURES(LIGNE, 3) = HEURES(LIGNE, 3) + 0.25
ça devrait fonctionner !
"Frasax" a écrit dans le message de news:Merci à vous pour vos bons conseils. La formule de Quetzalcoatl fonctionne
presque, il ya juste avec la couleuer lavande que ça ne marche pas, est-il
possible de pouvoir faire en sorte que la macro reconnaisse cette couleur ou
faut-il changer de couleur ce qui peut-être serait plus simple. Est-il
possible de tester avec cette couleur, je ne sais pas comment coder cette
couleur ou une autre, merci de me renseigner, bonne nuit et à +
"Quetzalcoatl" wrote:
"Frasax" a écrit ...J'aimerais savoir si une macro peut reconnaître les couleurs afin de calculer le nombre d'heures.
http://cjoint.com/?gbsC3TqVgy
--------------
Bonsoir,
Oui, c'est possible.
D'ailleurs, la macro existe, elle s'appelle RECONNAITRE_LES_COULEURS_AFIN_DE_CALCULER_LE_NOMBRE_D_HEURES.
Sub RECONNAITRE_LES_COULEURS_AFIN_DE_CALCULER_LE_NOMBRE_D_HEURES()
Const BLEU As Integer = 41
Const ROUGE As Integer = 3
Const JAUNE As Integer = 36
Const VERT As Integer = 35
Dim PLANNING_Z, HEURES_Z As Range
Dim HEURES
Dim LIGNE, COLONNE As Integer
Dim NB_LIGNES, NB_COLONNES As Integer
Set PLANNING_Z = Range("D4:BG16")
Set HEURES_Z = Range("BJ4:BL16")
HEURES = HEURES_Z.Value
NB_LIGNES = PLANNING_Z.Rows.Count
NB_COLONNES = PLANNING_Z.Columns.Count
For LIGNE = 1 To NB_LIGNES
HEURES(LIGNE, 1) = 0
HEURES(LIGNE, 3) = 0
Next LIGNE
For LIGNE = 1 To NB_LIGNES
For COLONNE = 1 To NB_COLONNES
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = BLEU Then HEURES(LIGNE, 1) = HEURES(LIGNE, 1) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = ROUGE Then HEURES(LIGNE, 1) = HEURES(LIGNE, 1) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = JAUNE Then HEURES(LIGNE, 3) = HEURES(LIGNE, 3) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = VERT Then HEURES(LIGNE, 3) = HEURES(LIGNE, 3) + 0.25
Next COLONNE
Next LIGNE
HEURES_Z = HEURES
End Sub
Bonsoir,
Pour connaître les codes de couleur, place toi dans une feuille vierge et exécute la macro suivante :
Sub COULEURS()
Dim i
For i = 1 To 56
Cells(i, 1) = i
Cells(i, 2).Interior.ColorIndex = i
Next i
End Sub
La couleur 'Lavande' correspond au code 39 :
Const LAVANDE As Integer = 39
En rajoutant la ligne :
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = LAVANDE Then HEURES(LIGNE, 3) = HEURES(LIGNE, 3) + 0.25
ça devrait fonctionner !
"Frasax" <Frasax@discussions.microsoft.com> a écrit dans le message de news: 3C6FFD66-0E68-4CEB-AA87-EB8A18679A5D@microsoft.com...
Merci à vous pour vos bons conseils. La formule de Quetzalcoatl fonctionne
presque, il ya juste avec la couleuer lavande que ça ne marche pas, est-il
possible de pouvoir faire en sorte que la macro reconnaisse cette couleur ou
faut-il changer de couleur ce qui peut-être serait plus simple. Est-il
possible de tester avec cette couleur, je ne sais pas comment coder cette
couleur ou une autre, merci de me renseigner, bonne nuit et à +
"Quetzalcoatl" wrote:
"Frasax" a écrit ...
J'aimerais savoir si une macro peut reconnaître les couleurs afin de calculer le nombre d'heures.
http://cjoint.com/?gbsC3TqVgy
--------------
Bonsoir,
Oui, c'est possible.
D'ailleurs, la macro existe, elle s'appelle RECONNAITRE_LES_COULEURS_AFIN_DE_CALCULER_LE_NOMBRE_D_HEURES.
Sub RECONNAITRE_LES_COULEURS_AFIN_DE_CALCULER_LE_NOMBRE_D_HEURES()
Const BLEU As Integer = 41
Const ROUGE As Integer = 3
Const JAUNE As Integer = 36
Const VERT As Integer = 35
Dim PLANNING_Z, HEURES_Z As Range
Dim HEURES
Dim LIGNE, COLONNE As Integer
Dim NB_LIGNES, NB_COLONNES As Integer
Set PLANNING_Z = Range("D4:BG16")
Set HEURES_Z = Range("BJ4:BL16")
HEURES = HEURES_Z.Value
NB_LIGNES = PLANNING_Z.Rows.Count
NB_COLONNES = PLANNING_Z.Columns.Count
For LIGNE = 1 To NB_LIGNES
HEURES(LIGNE, 1) = 0
HEURES(LIGNE, 3) = 0
Next LIGNE
For LIGNE = 1 To NB_LIGNES
For COLONNE = 1 To NB_COLONNES
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = BLEU Then HEURES(LIGNE, 1) = HEURES(LIGNE, 1) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = ROUGE Then HEURES(LIGNE, 1) = HEURES(LIGNE, 1) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = JAUNE Then HEURES(LIGNE, 3) = HEURES(LIGNE, 3) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = VERT Then HEURES(LIGNE, 3) = HEURES(LIGNE, 3) + 0.25
Next COLONNE
Next LIGNE
HEURES_Z = HEURES
End Sub
Bonsoir,
Pour connaître les codes de couleur, place toi dans une feuille vierge et exécute la macro suivante :
Sub COULEURS()
Dim i
For i = 1 To 56
Cells(i, 1) = i
Cells(i, 2).Interior.ColorIndex = i
Next i
End Sub
La couleur 'Lavande' correspond au code 39 :
Const LAVANDE As Integer = 39
En rajoutant la ligne :
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = LAVANDE Then HEURES(LIGNE, 3) = HEURES(LIGNE, 3) + 0.25
ça devrait fonctionner !
"Frasax" a écrit dans le message de news:Merci à vous pour vos bons conseils. La formule de Quetzalcoatl fonctionne
presque, il ya juste avec la couleuer lavande que ça ne marche pas, est-il
possible de pouvoir faire en sorte que la macro reconnaisse cette couleur ou
faut-il changer de couleur ce qui peut-être serait plus simple. Est-il
possible de tester avec cette couleur, je ne sais pas comment coder cette
couleur ou une autre, merci de me renseigner, bonne nuit et à +
"Quetzalcoatl" wrote:
"Frasax" a écrit ...J'aimerais savoir si une macro peut reconnaître les couleurs afin de calculer le nombre d'heures.
http://cjoint.com/?gbsC3TqVgy
--------------
Bonsoir,
Oui, c'est possible.
D'ailleurs, la macro existe, elle s'appelle RECONNAITRE_LES_COULEURS_AFIN_DE_CALCULER_LE_NOMBRE_D_HEURES.
Sub RECONNAITRE_LES_COULEURS_AFIN_DE_CALCULER_LE_NOMBRE_D_HEURES()
Const BLEU As Integer = 41
Const ROUGE As Integer = 3
Const JAUNE As Integer = 36
Const VERT As Integer = 35
Dim PLANNING_Z, HEURES_Z As Range
Dim HEURES
Dim LIGNE, COLONNE As Integer
Dim NB_LIGNES, NB_COLONNES As Integer
Set PLANNING_Z = Range("D4:BG16")
Set HEURES_Z = Range("BJ4:BL16")
HEURES = HEURES_Z.Value
NB_LIGNES = PLANNING_Z.Rows.Count
NB_COLONNES = PLANNING_Z.Columns.Count
For LIGNE = 1 To NB_LIGNES
HEURES(LIGNE, 1) = 0
HEURES(LIGNE, 3) = 0
Next LIGNE
For LIGNE = 1 To NB_LIGNES
For COLONNE = 1 To NB_COLONNES
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = BLEU Then HEURES(LIGNE, 1) = HEURES(LIGNE, 1) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = ROUGE Then HEURES(LIGNE, 1) = HEURES(LIGNE, 1) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = JAUNE Then HEURES(LIGNE, 3) = HEURES(LIGNE, 3) + 0.25
If PLANNING_Z.Cells(LIGNE, COLONNE).Interior.ColorIndex = VERT Then HEURES(LIGNE, 3) = HEURES(LIGNE, 3) + 0.25
Next COLONNE
Next LIGNE
HEURES_Z = HEURES
End Sub