Fonction personnalisée (compter cellule avec police)
Résolu/Fermé
Adirien
Messages postés
84
Date d'inscription
samedi 11 mai 2013
Statut
Membre
Dernière intervention
27 janvier 2024
-
23 juin 2023 à 06:19
yg_be Messages postés 23471 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 février 2025 - 25 juin 2023 à 12:31
yg_be Messages postés 23471 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 février 2025 - 25 juin 2023 à 12:31
A voir également:
- Fonction personnalisée (compter cellule avec police)
- Fonction si et - Guide
- Sonnerie personnalisée android - Guide
- Police aptos - Accueil - Bureautique
- Police facebook - Guide
- Excel cellule couleur si condition texte - Guide
4 réponses
Adirien
Messages postés
84
Date d'inscription
samedi 11 mai 2013
Statut
Membre
Dernière intervention
27 janvier 2024
2
23 juin 2023 à 07:18
23 juin 2023 à 07:18
J'ai finalement trouvé ceci pour le problème d'actualisation de la formule :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Calculate
End Sub
Et c'est finalement le code pour ne pas tenir compte des cellules vides qui me pose problème finalement :
Adirien
Messages postés
84
Date d'inscription
samedi 11 mai 2013
Statut
Membre
Dernière intervention
27 janvier 2024
2
23 juin 2023 à 07:57
23 juin 2023 à 07:57
Bon a priori je me suis auto résolu mon problème donc voilà mon code final si besoin :
Public Function CompterParCouleurFond(Plage As Range, Couleur As Range)
Application.Volatile
For Each Cellule In Plage
If Cellule.Value = "" Then GoTo Fin
If Cellule.Characters(2, 1).Font.Color = Couleur.Font.Color Then
CompterParCouleurFond = CompterParCouleurFond + 1
End If
Fin:
Next
End Function
yg_be
Messages postés
23471
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
15 février 2025
1 568
23 juin 2023 à 08:51
23 juin 2023 à 08:51
plus propre:
If Cellule.Value <> "" and Cellule.Characters(2, 1).Font.Color = Couleur.Font.Color Then
yg_be
Messages postés
23471
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
15 février 2025
1 568
25 juin 2023 à 12:31
25 juin 2023 à 12:31
peux-tu alors marquer la discussion comme résolue?
yg_be
Messages postés
23471
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
15 février 2025
Ambassadeur
1 568
23 juin 2023 à 08:40
23 juin 2023 à 08:40
bonjour,
en testant, je n'obtiens pas ton deuxième souci: la valeur se met bien à jour.
peux-tu partager ton fichier?
Adirien
Messages postés
84
Date d'inscription
samedi 11 mai 2013
Statut
Membre
Dernière intervention
27 janvier 2024
2
23 juin 2023 à 08:56
23 juin 2023 à 08:56
Mon problème est résolu donc pas besoin mais merci pour la simplification de mon code.