XL 2016 Fonction SI avec Conditions

[walter ebelle]

Bjr à tous j'espère vous vous portez bien.
J'ai une préoccupation:
Écrire une formule sur Excel avec pour seule condition la couleur du texte dans les cellules choisis. Dans le fichier joint si Q2.R2.S2.T2.U2 sont en rouge alors V2 "vrai" la formule sera tirée jusqu'à F.
Merci pour votre aide

 

[xUpsilon]

Bonjour,

Il n'existe pas de formule permettant de tester la couleur d'une cellule sans passer par une fonction personnalisée en VBA.
Est-ce admissible ?

Bonne journée,

 

[djidji59430]

Bonjour à tous,

Et d'un autre côté, pourquoi sont-elles rouges ?? Il y a toujours une bonne raison .....

Crdlmt

 

[walter ebelle]

Bonjour,

Il n'existe pas de formule permettant de tester la couleur d'une cellule sans passer par une fonction personnalisée en VBA.
Est-ce admissible ?

Bonne journée,

Xupsilon,
Bjr et par VB c'est quoi la formule ?

 

[mapomme]

Bonsoir à tous,

Une fonction personnalisée qui retourne VRAI si toutes les cellules sont en police rouge.

Exemple d'utilisation:

• =tousrouges(Q2:R2;S2:T2;U2)
• =tousrouges(Q2:U2)
• =tousrouges(Q2;R2;T2:U2;S2)

Le code est à placer dans un module:

Function TousRouges(ParamArray Cellules()) As Boolean
Dim x, y
   TousRouges = True
   For Each x In Cellules: For Each y In x
      If y.Font.Color <> vbRed Then TousRouges = False: Exit Function
   Next y, x
End Function

 

[TooFatBoy]

Bonjour,

Écrire une formule sur Excel avec pour seule condition la couleur du texte dans les cellules choisis. Dans le fichier joint si Q2, R2, S2, T2, et U2 sont en rouge alors V2 "vrai" la formule sera tirée jusqu'à F.

Comme l'a dit @djidji59430, pourquoi sont-elles rouges ???
Autrement dit, est-ce que tu ne prends pas le problème à l'envers ?

Qu'est-ce à dire que ceci ???

 

[walter ebelle]

Bonjour à tous,

Et d'un autre côté, pourquoi sont-elles rouges ?? Il y a toujours une bonne raison .....

Crdlmt

C'est une sélection

Bonsoir à tous,

Une fonction personnalisée qui retourne VRAI si toutes les cellules sont en police rouge.

Exemple d'utilisation:

• =tousrouges(Q2:R2;S2:T2;U2)
• =tousrouges(Q2:U2)
• =tousrouges(Q2;R2;T2:U2;S2)

Le code est à placer dans un module:

Function TousRouges(ParamArray Cellules()) As Boolean
Dim x, y
   TousRouges = True
   For Each x In Cellules: For Each y In x
      If y.Font.Color <> vbRed Then TousRouges = False: Exit Function
   Next y, x
End Function

Mapomme stp en anglais quelle est la syntaxe de "tousrouges" mon office est en anglais et ça me renvoi le message (Invalid Name Error)

 

[TooFatBoy]

Mapomme stp en anglais quelle est la syntaxe de "tousrouges" mon office est en anglais et ça me renvoi le message (Invalid Name Error)

mapomme t'a déjà donné la syntaxe : relire son message.

C'est une fonction personnalisée donc, quelle que soit la langue de ton Excel, ça ne change rien.
En revanche, il faut que la fonction en question soit dans les macros de ton classeur.