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
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
É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.
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 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.