XL 2016 Fonction SI avec Conditions

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

walter ebelle

XLDnaute Junior
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
 

Pièces jointes

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:
VB:
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
 

Pièces jointes

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 ??? 🙃
 
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:
VB:
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)
 
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 comparaison texte
Réponses
5
Affichages
673
Réponses
1
Affichages
1 K
Réponses
1
Affichages
526
Retour