Comment faire la somme des cellules d'une couleur donnée ?
Pour gérer toutes les couleurs de 2007 ou être indépendant des palettes , utiliser Color au lieu de ColorIndex.
L'exemple, ici compare la couleur des colonnes A et de D à une couleur témoin en G1.
Private Sub UserForm_Initialize()
For Each c In [A1:A100]
If c.Interior.Color = couleur([G1]) Then t = t + c
' ou If c.Interior.Color = 65535 Then t = t + c
Next c
Me.TextBox1 = t
t = 0
For Each c In [D1:D100]
If c.Interior.Color = couleur([G1]) Then t = t + c
' ou If c.Interior.Color = 65535) Then t = t + c
Next c
Me.TextBox2 = t
End Sub
Function couleur(c)
couleur = c.Interior.Color
End Function
L'exemple, ici compare la couleur des colonnes A et de D à une couleur témoin en G1.
Private Sub UserForm_Initialize()
For Each c In [A1:A100]
If c.Interior.Color = couleur([G1]) Then t = t + c
' ou If c.Interior.Color = 65535 Then t = t + c
Next c
Me.TextBox1 = t
t = 0
For Each c In [D1:D100]
If c.Interior.Color = couleur([G1]) Then t = t + c
' ou If c.Interior.Color = 65535) Then t = t + c
Next c
Me.TextBox2 = t
End Sub
Function couleur(c)
couleur = c.Interior.Color
End Function
Jacques Boisgontier,
Ajouté ou modifié le 16/03/2008 (N°1984)
Ajouté ou modifié le 16/03/2008 (N°1984)
Comment écrire plus simplement
If X= "lapin" Or "belette" Or "castor" Or "ecureuil" etc...
heu ...
If X= "mammifère" ??
non ?
Plus sérieusement, tu mets tes éléments dans un array :
x = "lapin"
If Not IsError(Application.Match(x, Array("lapin", "belette",
"castor", "ecureuil"), 0)) Then
MsgBox "ok"
End If
If X= "mammifère" ??
non ?
Plus sérieusement, tu mets tes éléments dans un array :
x = "lapin"
If Not IsError(Application.Match(x, Array("lapin", "belette",
"castor", "ecureuil"), 0)) Then
MsgBox "ok"
End If
Jacques Boisgontier,
Ajouté ou modifié le 25/08/2007 (N°1891)
Ajouté ou modifié le 25/08/2007 (N°1891)
J'ai une formule qui renvoie vrai ou faux. Comment utiliser ce résultat dans une formule ?
=SI(A1=VRAI;"xxx";"yyy")
Vrai est une valeur booléenne -> pas de guillemets
Vrai est une valeur booléenne -> pas de guillemets
Jacques boisgontier,
Ajouté ou modifié le 25/08/2007 (N°1883)
Ajouté ou modifié le 25/08/2007 (N°1883)
Comment faire référence à une cellule dans une formule avec nb.si ?
Utilise cette syntaxe :
=NB.SI(A1:B5;">"&C4) pour obtenir les cellules dont la valeur est supérieure à celle de la cellule C4.
=NB.SI(A1:B5;">"&C4) pour obtenir les cellules dont la valeur est supérieure à celle de la cellule C4.
ChrisV,
Ajouté ou modifié le 02/05/2004 (N°1372)
Ajouté ou modifié le 02/05/2004 (N°1372)
Dans un exemple de calcul comme suit: A1 = quantité B1 = prix unitaire C1 = prix total comment
faire pour que la formule de calcul reste en C1 mais qu'il n'y ai rien d'affiché si A1 est
"vide" ?
3 solutions :
- Outils/Option/Affichage/Valeurs zéro décoché
- remplacer la formule C1=A1*B1 par
C1=Si(A1*B1=0;"";A1*B1)
ou encore
=B1*A1
au format personnalisé: 0,00;0,00;
- Outils/Option/Affichage/Valeurs zéro décoché
- remplacer la formule C1=A1*B1 par
C1=Si(A1*B1=0;"";A1*B1)
ou encore
=B1*A1
au format personnalisé: 0,00;0,00;
ChrisV, Iznogood, (N°505)
Comment faire la somme de la plage A1:A10 nommée données si elle comporte des messages d'erreur
type #N/A ?
"'=SOMME.SI(Données;"<>#N/A")
Un exemple à télécharger peut être ? :-)
Cette astuce est illustrée dans ce classeur exemple :
fc-formulesconditionnelles (téléchargé 32394 fois)
Un exemple à télécharger peut être ? :-)
fc-formulesconditionnelles (téléchargé 32394 fois)
ChrisV, (N°504)

Existe-t-il une écriture en une seule ligne d'un test if then else ?
Immediate if ou iif (un if à deux i)
reponse = iif(test; valeur_si_vrai;valeur_si_faux)
reponse = iif(test; valeur_si_vrai;valeur_si_faux)
Clément Marcotte, (N°503)