Bonjour,
Je dois gérer des absences pour les congés payés et je voudrais pouvoir
compter le nombre de cellules ombragées.
Je n'arrive pas à trouver l'information.
Merci d'avance pour votre aide
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
JMD
Bonjour.
Genre :
Sub Compte_Les_Noires() Range("E1:E65000").Select ' Par exemple For Each Machin In Range("E1:E65000") If Machin.Interior.ColorIndex = 1 Then ' 1 pour les fonds noirs, ou 48 pour du gris, etc... compte = compte + 1 End If Next MsgBox compte End Sub
A + "Compter un nombre de cellules ombragées" <Compter un nombre de cellules ombragé a écrit dans le message de news:
Bonjour, Je dois gérer des absences pour les congés payés et je voudrais pouvoir compter le nombre de cellules ombragées. Je n'arrive pas à trouver l'information. Merci d'avance pour votre aide
Bonjour.
Genre :
Sub Compte_Les_Noires()
Range("E1:E65000").Select ' Par exemple
For Each Machin In Range("E1:E65000")
If Machin.Interior.ColorIndex = 1 Then ' 1 pour les fonds noirs, ou 48
pour du gris, etc...
compte = compte + 1
End If
Next
MsgBox compte
End Sub
A +
"Compter un nombre de cellules ombragées" <Compter un nombre de cellules
ombragées@discussions.microsoft.com> a écrit dans le message de news:
5376D8B9-02A2-4273-91FF-EC84F8E186FE@microsoft.com...
Bonjour,
Je dois gérer des absences pour les congés payés et je voudrais pouvoir
compter le nombre de cellules ombragées.
Je n'arrive pas à trouver l'information.
Merci d'avance pour votre aide
Sub Compte_Les_Noires() Range("E1:E65000").Select ' Par exemple For Each Machin In Range("E1:E65000") If Machin.Interior.ColorIndex = 1 Then ' 1 pour les fonds noirs, ou 48 pour du gris, etc... compte = compte + 1 End If Next MsgBox compte End Sub
A + "Compter un nombre de cellules ombragées" <Compter un nombre de cellules ombragé a écrit dans le message de news:
Bonjour, Je dois gérer des absences pour les congés payés et je voudrais pouvoir compter le nombre de cellules ombragées. Je n'arrive pas à trouver l'information. Merci d'avance pour votre aide
Compter un nombre de cellules ombragées
Bonjour,
J'ai bien reçu ta réponse, je t'avouerais que je commence seulement à faire connaissance avec les macros. J'ai déjà fait quelques essais que j'ai pu trouver en exemple et les résultats donnés ne sont pas corrects. J'ai tenté les différentes formules que j'ai trouvées sur des cas simples, ça ne fonctionne pas. Ex macro Sous Excel, tape ALT+F11 pour afficher Visual Basic Editor. Dans sa partie gauche fait un clic droit sur "VBAProject(Classeur1.xls)" (où Classeur1.xls est le nom de ton fichier) et sélectionne Insertion > Module. Dans la zone de droite copie ce code :
Function SommeCouleur(Plage As Range, CelCouleur As Range) As Long Dim Couleur: Couleur = CelCouleur.Interior.ColorIndex For Each Cell In Plage If Cell.Interior.ColorIndex = Couleur Then SommeCouleurs = SommeCouleurs + 1 Next End Function
Dans la cellule dans laquelle tu veux voir la somme d'une couleur, tape :
=SommeCouleur(Zone1;Zone2)
J'ai fait exactement ce qui était noté avec l'exemple suivant :
A1:A5 en rouge A7:A10 en vert
A11: formule=SommeCouleur(A1:A10;A1) Il me met 0 alors que le résultat est 3
Je ne comprends pas??
Bonjour.
Genre :
Sub Compte_Les_Noires() Range("E1:E65000").Select ' Par exemple For Each Machin In Range("E1:E65000") If Machin.Interior.ColorIndex = 1 Then ' 1 pour les fonds noirs, ou 48 pour du gris, etc... compte = compte + 1 End If Next MsgBox compte End Sub
A + "Compter un nombre de cellules ombragées" <Compter un nombre de cellules ombragé a écrit dans le message de news:
Bonjour, Je dois gérer des absences pour les congés payés et je voudrais pouvoir compter le nombre de cellules ombragées. Je n'arrive pas à trouver l'information. Merci d'avance pour votre aide
Bonjour,
J'ai bien reçu ta réponse, je t'avouerais que je commence seulement à faire
connaissance avec les macros.
J'ai déjà fait quelques essais que j'ai pu trouver en exemple et les
résultats donnés ne sont pas corrects.
J'ai tenté les différentes formules que j'ai trouvées sur des cas simples,
ça ne fonctionne pas.
Ex macro
Sous Excel, tape ALT+F11 pour afficher Visual Basic Editor. Dans sa partie
gauche fait un clic droit sur "VBAProject(Classeur1.xls)" (où Classeur1.xls
est le nom de ton fichier) et sélectionne Insertion > Module.
Dans la zone de droite copie ce code :
Function SommeCouleur(Plage As Range, CelCouleur As Range) As Long
Dim Couleur: Couleur = CelCouleur.Interior.ColorIndex
For Each Cell In Plage
If Cell.Interior.ColorIndex = Couleur Then SommeCouleurs = SommeCouleurs + 1
Next
End Function
Dans la cellule dans laquelle tu veux voir la somme d'une couleur, tape :
=SommeCouleur(Zone1;Zone2)
J'ai fait exactement ce qui était noté avec l'exemple suivant :
A1:A5 en rouge
A7:A10 en vert
A11: formule=SommeCouleur(A1:A10;A1)
Il me met 0 alors que le résultat est 3
Je ne comprends pas??
Bonjour.
Genre :
Sub Compte_Les_Noires()
Range("E1:E65000").Select ' Par exemple
For Each Machin In Range("E1:E65000")
If Machin.Interior.ColorIndex = 1 Then ' 1 pour les fonds noirs, ou 48
pour du gris, etc...
compte = compte + 1
End If
Next
MsgBox compte
End Sub
A +
"Compter un nombre de cellules ombragées" <Compter un nombre de cellules
ombragées@discussions.microsoft.com> a écrit dans le message de news:
5376D8B9-02A2-4273-91FF-EC84F8E186FE@microsoft.com...
Bonjour,
Je dois gérer des absences pour les congés payés et je voudrais pouvoir
compter le nombre de cellules ombragées.
Je n'arrive pas à trouver l'information.
Merci d'avance pour votre aide
J'ai bien reçu ta réponse, je t'avouerais que je commence seulement à faire connaissance avec les macros. J'ai déjà fait quelques essais que j'ai pu trouver en exemple et les résultats donnés ne sont pas corrects. J'ai tenté les différentes formules que j'ai trouvées sur des cas simples, ça ne fonctionne pas. Ex macro Sous Excel, tape ALT+F11 pour afficher Visual Basic Editor. Dans sa partie gauche fait un clic droit sur "VBAProject(Classeur1.xls)" (où Classeur1.xls est le nom de ton fichier) et sélectionne Insertion > Module. Dans la zone de droite copie ce code :
Function SommeCouleur(Plage As Range, CelCouleur As Range) As Long Dim Couleur: Couleur = CelCouleur.Interior.ColorIndex For Each Cell In Plage If Cell.Interior.ColorIndex = Couleur Then SommeCouleurs = SommeCouleurs + 1 Next End Function
Dans la cellule dans laquelle tu veux voir la somme d'une couleur, tape :
=SommeCouleur(Zone1;Zone2)
J'ai fait exactement ce qui était noté avec l'exemple suivant :
A1:A5 en rouge A7:A10 en vert
A11: formule=SommeCouleur(A1:A10;A1) Il me met 0 alors que le résultat est 3
Je ne comprends pas??
Bonjour.
Genre :
Sub Compte_Les_Noires() Range("E1:E65000").Select ' Par exemple For Each Machin In Range("E1:E65000") If Machin.Interior.ColorIndex = 1 Then ' 1 pour les fonds noirs, ou 48 pour du gris, etc... compte = compte + 1 End If Next MsgBox compte End Sub
A + "Compter un nombre de cellules ombragées" <Compter un nombre de cellules ombragé a écrit dans le message de news:
Bonjour, Je dois gérer des absences pour les congés payés et je voudrais pouvoir compter le nombre de cellules ombragées. Je n'arrive pas à trouver l'information. Merci d'avance pour votre aide
JB
Bonjour,
Function CompteCouleurFond(champ As Range, couleurfond) Application.Volatile Dim c, temp temp = 0 For Each c In champ If c.Interior.ColorIndex = couleurfond Then temp = temp + 1 End If Next c CompteCouleurFond = temp End Function
On 20 mar, 11:51, Compter un nombre de cellules ombragées wrote:
Bonjour,
J'ai bien reçu ta réponse, je t'avouerais que je commence seulement à faire connaissance avec les macros. J'ai déjà fait quelques essais que j'ai pu trouver en exemple et les résultats donnés ne sont pas corrects. J'ai tenté les différentes formules que j'ai trouvées sur des cas si mples, ça ne fonctionne pas. Ex macro Sous Excel, tape ALT+F11 pour afficher Visual Basic Editor. Dans sa partie gauche fait un clic droit sur "VBAProject(Classeur1.xls)" (où Classeur1. xls est le nom de ton fichier) et sélectionne Insertion > Module. Dans la zone de droite copie ce code :
Function SommeCouleur(Plage As Range, CelCouleur As Range) As Long Dim Couleur: Couleur = CelCouleur.Interior.ColorIndex For Each Cell In Plage If Cell.Interior.ColorIndex = Couleur Then SommeCouleurs = SommeCouleu rs + 1 Next End Function
Dans la cellule dans laquelle tu veux voir la somme d'une couleur, tape :
=SommeCouleur(Zone1;Zone2)
J'ai fait exactement ce qui était noté avec l'exemple suivant :
A1:A5 en rouge A7:A10 en vert
A11: formule=SommeCouleur(A1:A10;A1) Il me met 0 alors que le résultat est 3
Je ne comprends pas??
Bonjour.
Genre :
Sub Compte_Les_Noires() Range("E1:E65000").Select ' Par exemple For Each Machin In Range("E1:E65000") If Machin.Interior.ColorIndex = 1 Then ' 1 pour les fonds noir s, ou 48 pour du gris, etc... compte = compte + 1 End If Next MsgBox compte End Sub
A + "Compter un nombre de cellules ombragées" <Compter un nombre de cellul es ombragé a écrit dans le message de ne ws:
Bonjour, Je dois gérer des absences pour les congés payés et je voudrais pouvoir compter le nombre de cellules ombragées. Je n'arrive pas à trouver l'information. Merci d'avance pour votre aide- Masquer le texte des messages préc édents -
- Afficher le texte des messages précédents -
Bonjour,
Function CompteCouleurFond(champ As Range, couleurfond)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex = couleurfond Then
temp = temp + 1
End If
Next c
CompteCouleurFond = temp
End Function
On 20 mar, 11:51, Compter un nombre de cellules ombragées
<Compterunnombredecellulesombra...@discussions.microsoft.com> wrote:
Bonjour,
J'ai bien reçu ta réponse, je t'avouerais que je commence seulement à faire
connaissance avec les macros.
J'ai déjà fait quelques essais que j'ai pu trouver en exemple et les
résultats donnés ne sont pas corrects.
J'ai tenté les différentes formules que j'ai trouvées sur des cas si mples,
ça ne fonctionne pas.
Ex macro
Sous Excel, tape ALT+F11 pour afficher Visual Basic Editor. Dans sa partie
gauche fait un clic droit sur "VBAProject(Classeur1.xls)" (où Classeur1. xls
est le nom de ton fichier) et sélectionne Insertion > Module.
Dans la zone de droite copie ce code :
Function SommeCouleur(Plage As Range, CelCouleur As Range) As Long
Dim Couleur: Couleur = CelCouleur.Interior.ColorIndex
For Each Cell In Plage
If Cell.Interior.ColorIndex = Couleur Then SommeCouleurs = SommeCouleu rs + 1
Next
End Function
Dans la cellule dans laquelle tu veux voir la somme d'une couleur, tape :
=SommeCouleur(Zone1;Zone2)
J'ai fait exactement ce qui était noté avec l'exemple suivant :
A1:A5 en rouge
A7:A10 en vert
A11: formule=SommeCouleur(A1:A10;A1)
Il me met 0 alors que le résultat est 3
Je ne comprends pas??
Bonjour.
Genre :
Sub Compte_Les_Noires()
Range("E1:E65000").Select ' Par exemple
For Each Machin In Range("E1:E65000")
If Machin.Interior.ColorIndex = 1 Then ' 1 pour les fonds noir s, ou 48
pour du gris, etc...
compte = compte + 1
End If
Next
MsgBox compte
End Sub
A +
"Compter un nombre de cellules ombragées" <Compter un nombre de cellul es
ombragée...@discussions.microsoft.com> a écrit dans le message de ne ws:
5376D8B9-02A2-4273-91FF-EC84F8E18...@microsoft.com...
Bonjour,
Je dois gérer des absences pour les congés payés et je voudrais pouvoir
compter le nombre de cellules ombragées.
Je n'arrive pas à trouver l'information.
Merci d'avance pour votre aide- Masquer le texte des messages préc édents -
Function CompteCouleurFond(champ As Range, couleurfond) Application.Volatile Dim c, temp temp = 0 For Each c In champ If c.Interior.ColorIndex = couleurfond Then temp = temp + 1 End If Next c CompteCouleurFond = temp End Function
On 20 mar, 11:51, Compter un nombre de cellules ombragées wrote:
Bonjour,
J'ai bien reçu ta réponse, je t'avouerais que je commence seulement à faire connaissance avec les macros. J'ai déjà fait quelques essais que j'ai pu trouver en exemple et les résultats donnés ne sont pas corrects. J'ai tenté les différentes formules que j'ai trouvées sur des cas si mples, ça ne fonctionne pas. Ex macro Sous Excel, tape ALT+F11 pour afficher Visual Basic Editor. Dans sa partie gauche fait un clic droit sur "VBAProject(Classeur1.xls)" (où Classeur1. xls est le nom de ton fichier) et sélectionne Insertion > Module. Dans la zone de droite copie ce code :
Function SommeCouleur(Plage As Range, CelCouleur As Range) As Long Dim Couleur: Couleur = CelCouleur.Interior.ColorIndex For Each Cell In Plage If Cell.Interior.ColorIndex = Couleur Then SommeCouleurs = SommeCouleu rs + 1 Next End Function
Dans la cellule dans laquelle tu veux voir la somme d'une couleur, tape :
=SommeCouleur(Zone1;Zone2)
J'ai fait exactement ce qui était noté avec l'exemple suivant :
A1:A5 en rouge A7:A10 en vert
A11: formule=SommeCouleur(A1:A10;A1) Il me met 0 alors que le résultat est 3
Je ne comprends pas??
Bonjour.
Genre :
Sub Compte_Les_Noires() Range("E1:E65000").Select ' Par exemple For Each Machin In Range("E1:E65000") If Machin.Interior.ColorIndex = 1 Then ' 1 pour les fonds noir s, ou 48 pour du gris, etc... compte = compte + 1 End If Next MsgBox compte End Sub
A + "Compter un nombre de cellules ombragées" <Compter un nombre de cellul es ombragé a écrit dans le message de ne ws:
Bonjour, Je dois gérer des absences pour les congés payés et je voudrais pouvoir compter le nombre de cellules ombragées. Je n'arrive pas à trouver l'information. Merci d'avance pour votre aide- Masquer le texte des messages préc édents -