Addition avec Couleur
Résolu/Fermé
Karine
-
12 nov. 2010 à 09:41
Mike-31 Messages postés 18354 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 janvier 2025 - 15 nov. 2010 à 15:48
Mike-31 Messages postés 18354 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 janvier 2025 - 15 nov. 2010 à 15:48
A voir également:
- Addition avec Couleur
- Formule excel addition - Guide
- Excel cellule couleur si condition texte - Guide
- Somme si couleur - Guide
- La boite a couleur - Télécharger - Divers Photo & Graphisme
- Nb si couleur ne fonctionne pas ✓ - Forum Excel
7 réponses
Le Pingou
Messages postés
12230
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
15 janvier 2025
1 454
12 nov. 2010 à 15:01
12 nov. 2010 à 15:01
Bonjour,
Est-ce que la couleur d'une cellule est attribuée selon critère?
Est-ce que la couleur d'une cellule est attribuée selon critère?
Le Pingou
Messages postés
12230
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
15 janvier 2025
1 454
12 nov. 2010 à 18:30
12 nov. 2010 à 18:30
Bonjour,
Dans se cas vous devez passer par VBA.
Pour quelle raison la cellule est colorée ?
Dans se cas vous devez passer par VBA.
Pour quelle raison la cellule est colorée ?
Bonjour,
Je ne connaîs pas VBA
Sur une colonne, je voudrais savoir combien de cases sont notées "AM" (par exemple) sans compter celles qui sont colorées ou mouchetées. (Sans compter certaines cases précises que je peux distignuer en les colorants)
Sinon, pour faire autrement,
Peux-t-on demander l'addition du nombre de cases notée "AM" pour les cases L4:L9, L10:L17 ET L 20:L47 ?
Vous remerciant par avance pour votre aide précieuse
Je ne connaîs pas VBA
Sur une colonne, je voudrais savoir combien de cases sont notées "AM" (par exemple) sans compter celles qui sont colorées ou mouchetées. (Sans compter certaines cases précises que je peux distignuer en les colorants)
Sinon, pour faire autrement,
Peux-t-on demander l'addition du nombre de cases notée "AM" pour les cases L4:L9, L10:L17 ET L 20:L47 ?
Vous remerciant par avance pour votre aide précieuse
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 421
15 nov. 2010 à 12:16
15 nov. 2010 à 12:16
Bonjour
pour la couleur, je pense que vous aurez des propositions de macro sous peu;
quant à votre question sur les trois champs, la réponse est simple:
NB.SI(Champ1,code)+NB.SI(Champ2;CODE)ETC....autant que vous voulez
crdlmnt
pour la couleur, je pense que vous aurez des propositions de macro sous peu;
quant à votre question sur les trois champs, la réponse est simple:
NB.SI(Champ1,code)+NB.SI(Champ2;CODE)ETC....autant que vous voulez
crdlmnt
Mike-31
Messages postés
18354
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
1 janvier 2025
5 111
Modifié par Mike-31 le 15/11/2010 à 16:05
Modifié par Mike-31 le 15/11/2010 à 16:05
Salut,
Pour compter les cellules de la plage L4:L17 ET L 20:L47 contenant AM, plusieurs possibilités
Un petit code tout simple à coller dans les propriétés de la feuille
(clic droit sur l'onglet de feuille/Visualiser le code) dans la partie blanche coller ce code
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Variant
Dim i As Long
i = 0
If Intersect(Target, [L4:L17,L20:L47]) Is Nothing Then Exit Sub
For Each Cel In [L4:L9,L10:L17,L20:L47]
If Cel.Interior.ColorIndex = xlNone And Cel.Value = "AM" Then i = i + 1
Next
MsgBox "Nombre de cellules sans motif contenant AM : " & i
End Sub
il est possible d'avoir le compte dans une cellule à la place d'avoir une boite de dialogue (msgbox) il suffit de savoir laquelle !
Il est également possible de déclencher le comptage à partir d'un bouton ou de tout autre action sur la feuille reste à la définir. Ce code est déclenché dès qu'une saisie est opérée dans la plage L4:L9, L10:L17 ET L 20:L47
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Pour compter les cellules de la plage L4:L17 ET L 20:L47 contenant AM, plusieurs possibilités
Un petit code tout simple à coller dans les propriétés de la feuille
(clic droit sur l'onglet de feuille/Visualiser le code) dans la partie blanche coller ce code
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Variant
Dim i As Long
i = 0
If Intersect(Target, [L4:L17,L20:L47]) Is Nothing Then Exit Sub
For Each Cel In [L4:L9,L10:L17,L20:L47]
If Cel.Interior.ColorIndex = xlNone And Cel.Value = "AM" Then i = i + 1
Next
MsgBox "Nombre de cellules sans motif contenant AM : " & i
End Sub
il est possible d'avoir le compte dans une cellule à la place d'avoir une boite de dialogue (msgbox) il suffit de savoir laquelle !
Il est également possible de déclencher le comptage à partir d'un bouton ou de tout autre action sur la feuille reste à la définir. Ce code est déclenché dès qu'une saisie est opérée dans la plage L4:L9, L10:L17 ET L 20:L47
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
