HELP.....Comptage de cellules de par leur couleur....; 0 ((
1 réponse
gtoukc
Bonjour,
J' ai un calendrier où je décompte mes congés.
Je souhaite que le calcul se fasse automatiquement
en comptabilisant:
Cellule a60 = Total jours ( 366 )
Cellule b60 = Total jours de travail ( cellule en couleur grise )
Cellule c60 = Total Artt ( cellule en couleur Vete )
Cellule d60 = Total Fériés ( cellule en couleur Bleu )
Cellule e60 = Total jours Congés Annuels ( cellule en couleur Jaune )
Etc......
Merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
M41
Bonjour
Ecrire un VBA qui à l'ouverture de la feuille contenant le calendrier compte le nombre de chaque couleur
Le calendrier est un tableau 2 D
Créer un verteur Array() variant contenant les codes des couleurs
Créer un vecteur pour les compter ou écrire Set R= Range("B60:E60") puis X=R ; X étant un variant Incrémenter les variants X(1,1) à X(1,4) "A60" varie selon le type d'année (utiliser une fonction tableur)
Cribler chaque cellule du calendrier par un "for each " la couleur dans le Array Attention décallage : X débute à 1 mais le Array à 0
Les chiffres s'incriront par un simple R=X
Si qq'un connait une méthode plus courte (Xl 2002 ou 2003) je suis aussi preneur !
Cordialement
M41
"gtoukc" a écrit dans le message de news: 482e8b0b$0$908$
Bonjour,
J' ai un calendrier où je décompte mes congés. Je souhaite que le calcul se fasse automatiquement en comptabilisant: Cellule a60 = Total jours ( 366 ) Cellule b60 = Total jours de travail ( cellule en couleur grise ) Cellule c60 = Total Artt ( cellule en couleur Vete ) Cellule d60 = Total Fériés ( cellule en couleur Bleu ) Cellule e60 = Total jours Congés Annuels ( cellule en couleur Jaune ) Etc...... Merci
Bonjour
Ecrire un VBA qui à l'ouverture de la feuille contenant le calendrier compte
le nombre de chaque couleur
Le calendrier est un tableau 2 D
Créer un verteur Array() variant contenant les codes des couleurs
Créer un vecteur pour les compter ou écrire Set R= Range("B60:E60") puis
X=R ; X étant un variant
Incrémenter les variants X(1,1) à X(1,4)
"A60" varie selon le type d'année (utiliser une fonction tableur)
Cribler chaque cellule du calendrier par un "for each " la couleur dans le
Array
Attention décallage : X débute à 1 mais le Array à 0
Les chiffres s'incriront par un simple R=X
Si qq'un connait une méthode plus courte (Xl 2002 ou 2003) je suis aussi
preneur !
Cordialement
M41
"gtoukc" <gtoukc@wanadoo.fr> a écrit dans le message de news:
482e8b0b$0$908$ba4acef3@news.orange.fr...
Bonjour,
J' ai un calendrier où je décompte mes congés.
Je souhaite que le calcul se fasse automatiquement
en comptabilisant:
Cellule a60 = Total jours ( 366 )
Cellule b60 = Total jours de travail ( cellule en couleur grise )
Cellule c60 = Total Artt ( cellule en couleur Vete )
Cellule d60 = Total Fériés ( cellule en couleur Bleu )
Cellule e60 = Total jours Congés Annuels ( cellule en couleur Jaune )
Etc......
Merci
Ecrire un VBA qui à l'ouverture de la feuille contenant le calendrier compte le nombre de chaque couleur
Le calendrier est un tableau 2 D
Créer un verteur Array() variant contenant les codes des couleurs
Créer un vecteur pour les compter ou écrire Set R= Range("B60:E60") puis X=R ; X étant un variant Incrémenter les variants X(1,1) à X(1,4) "A60" varie selon le type d'année (utiliser une fonction tableur)
Cribler chaque cellule du calendrier par un "for each " la couleur dans le Array Attention décallage : X débute à 1 mais le Array à 0
Les chiffres s'incriront par un simple R=X
Si qq'un connait une méthode plus courte (Xl 2002 ou 2003) je suis aussi preneur !
Cordialement
M41
"gtoukc" a écrit dans le message de news: 482e8b0b$0$908$
Bonjour,
J' ai un calendrier où je décompte mes congés. Je souhaite que le calcul se fasse automatiquement en comptabilisant: Cellule a60 = Total jours ( 366 ) Cellule b60 = Total jours de travail ( cellule en couleur grise ) Cellule c60 = Total Artt ( cellule en couleur Vete ) Cellule d60 = Total Fériés ( cellule en couleur Bleu ) Cellule e60 = Total jours Congés Annuels ( cellule en couleur Jaune ) Etc...... Merci
