A voir également:
- Somme de cellule avec un texte de couleur noir
- Excel cellule couleur si condition texte - Guide
- Somme si couleur - Guide
- Ecran noir pc - Guide
- Somme excel - Guide
- Corinne copie un texte sur le web et le colle dans un document avec l'option "texte non formaté" (aussi appelée "texte sans mise en forme"). qu'est-ce qui est conservé ? - Forum Bureautique
3 réponses
ccm81
Messages postés
10854
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
26 avril 2024
2 404
1 août 2019 à 16:19
1 août 2019 à 16:19
Bonjour
Puisque la couleur ne provient pas d'une MFC, il faudra passer par vba (macro). Pour ça, il te faut envoyer ton fichier (sans données confidentielles)
Utilises https://mon-partage.fr/ et joins le lien obtenu à ton prochain message
Cdlmnt
Puisque la couleur ne provient pas d'une MFC, il faudra passer par vba (macro). Pour ça, il te faut envoyer ton fichier (sans données confidentielles)
Utilises https://mon-partage.fr/ et joins le lien obtenu à ton prochain message
Cdlmnt
danielc0
Messages postés
838
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
23 avril 2024
74
1 août 2019 à 16:22
1 août 2019 à 16:22
Bonjour,
Est-ce qu'il y a un moyen logique de déterminer si une chambre est vide ou non ? Parce que, s'il n'y en a pas, il ne te reste que l'usage d'une fonction perso (VBA). L'inconvénient, c'est que le changement de couleur d'une cellule ne provoque pas le recalcul. Tu risques donc de te retrouver avec un résultat erroné.
Cordialement.
Daniel
Est-ce qu'il y a un moyen logique de déterminer si une chambre est vide ou non ? Parce que, s'il n'y en a pas, il ne te reste que l'usage d'une fonction perso (VBA). L'inconvénient, c'est que le changement de couleur d'une cellule ne provoque pas le recalcul. Tu risques donc de te retrouver avec un résultat erroné.
Cordialement.
Daniel
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
1 août 2019 à 16:39
1 août 2019 à 16:39
Bonjour,
en vba faire Alt F11 pour accéder au module de la feuille concernée et mettre ce code qui se déclenchera au double clic:
voilà
en vba faire Alt F11 pour accéder au module de la feuille concernée et mettre ce code qui se déclenchera au double clic:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
testcouleur
End Sub
Sub testcouleur()
Dim FL1 As Worksheet, Cell As Range, NoCol As Integer, NoLig As Long
Dim DerLig As Long, DerCol As Integer, Var As Variant
Dim i As Integer 'noir
Dim j As Integer 'rouge
Set FL1 = Worksheets("Feuil1") 'a adapter
'Détermine la dernière ligne renseignée de la feuille de calculs
DerLig = Split(FL1.UsedRange.Address, "$")(4)
'Détermine la dernière colonne renseignée de la feuille de calculs
DerCol = Columns(Split(FL1.UsedRange.Address, "$")(3)).Column
For NoLig = 1 To DerLig
For NoCol = 1 To DerCol
Var = FL1.Cells(NoLig, NoCol)
If Var = "" Then
Else
If FL1.Cells(NoLig, NoCol).Font.ColorIndex = xlAutomatic Then 'noir
i = i + 1
ElseIf FL1.Cells(NoLig, NoCol).Font.ColorIndex = 3 Then 'rouge
j = j + 1
End If
End If
Next
Next
MsgBox "noir: " & i
MsgBox "rouge : " & j
End Sub
voilà
2 août 2019 à 10:11
Je vous ai partagé mon fichier. Merci pour l’intérêt que vous portez à ma requête.
2 août 2019 à 10:12
2 août 2019 à 10:21
2 août 2019 à 11:01
Function Noir(Plage As Range) As Integer Dim C As Range Application.Volatile True For Each C In Plage If C.Font.ColorIndex <> 3 Then Noir = Noir + 1 End If Next C End FunctionIl faut enregistrer ton classeur au format .xlsm et copier le code dedans. Si tu ne sais pas le faire, dis-le. pour l'utiliser, écris dans une cellule :
=noir(H3:H6)
Je peux changer le nom de la fonction.
Celle-ci compte les cellules dont la couleur de police est différente de rouge pétant (index 3).
https://mon-partage.fr/f/bEAjiLa3/
Daniel
2 août 2019 à 11:35
Merci d'avance