Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Colorer cellule utilisée

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion crazy
  • Date de début Date de début

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 !

S'inscrire
C

crazy

XLDnaute Nouveau
Bonjour,

j'ai peut être mal regardé sur le site mais je n'ai pas trouvé réponse à ma question.
En fait je voudrai savoir comment faire pour voir lorsqu’une cellule est utilisée pour un calcul dans la même feuille ou dans une autre feuille du même classeur.
je ne sais pas si je suis clair, je joins donc un fichier pour exemple.

Merci d'avance.
 

Pièces jointes

Trier par date Trier par votes
Re : Colorer cellule utilisée

Je me suis mal exprimer....
Si la MFC ne fonctionne que sur une feuille est ce que dans la feuille data en colonne C il peut mettre ok pour les cellules de la colonne B utilisée (si B10 est utilisé metre dans C10 ok)
Je remet une version du fichier.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Colorer cellule utilisée

Salut crazy et le forum
Il serait intéressant que connaître le but réel => l'utilisation de la barre d'outils "Audit" serait peut-être plus simple.
Une proposition par macro :
Code: 
Sub test()
Dim Cel As Range, Plage As Range
Dim F As Worksheet, X As Range, Y As String
Dim Pl As Integer, Pl_1 As Integer

For Each F In ThisWorkbook.Sheets
    If F.Name = "Data" Then
        F.UsedRange.Interior.ColorIndex = xlNone
    Else
        For Each Cel In F.UsedRange
            Pl = InStr(Cel.FormulaLocal, "Data!")
            Do While Pl > 0
                Pl = Pl + 5
                Pl_1 = InStr(Pl, Cel.FormulaLocal, ";")
                If Pl_1 = 0 Then Pl_1 = InStr(Pl, Cel.FormulaLocal, ")")
                If Pl_1 = 0 Then Pl_1 = Len(Cel.FormulaLocal) + 1
                Y = Y & Mid(Cel.FormulaLocal, Pl, Pl_1 - Pl) & ", "
                Pl = InStr(Pl, Cel.FormulaLocal, "Data!")
                Pl_1 = 0
            Loop
        Next Cel
    End If
Next F
Sheets("Data").Range(Left(Y, Len(Y) - 2)).Interior.ColorIndex = 3
End Sub
A+
 
Vote positif 0 Vote négatif
Re : Colorer cellule utilisée

Bonjour,
Merci pour la solution mais cela ne fonctionne pas correctement avec mon fichier....
j'ai voulu donner un fichier d’exemple mais la macro ne fonctionne pas sur mon fichier.
Je mets donc un exemple de mon fichier.
Il y a une feuille ALIN et une autre Budget 2011. Dans la feuille budget 2011 il y a une colonne ALIN.
Je voudrai savoir toutes les données de la feuille ALIN (la colonne D avec les chiffres) qui sont utilisé dans la feuille budget 2011.
au final il va y avoir d'autre feuille comme celle ALIN (il va y avoir SODIPA CHP HOL ALINV) et sur chacune d'entre elles je voudrai pouvoir voir les cellules utilisées dans budget 2011 (les données seront aussi dans la colonne D normalement).
Les feuilles du fichiers peuvent contenir bien plus de ligne que ce qu'il y a pour le moment.

je ne sais pas si je suis clair, dites le moi si vous avez besoin d'explications.

Merci d'avance

(je mets le fichier ici : Cijoint.fr - Service gratuit de dépôt de fichiers )
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

M
  • Question Question
XL pour MAC Affichage de valeurs selon la date
Réponses
8
Affichages
391
Malko67
M
N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
319
Nico Gre
N
S
  • Résolu(e)
XL 2021 "Blocage de la mise a jour d'une cellule"
Réponses
8
Affichages
549
Steph733
S
G
  • Question Question
Microsoft 365 Colorer un graphique x-y scatter
Réponses
9
Affichages
320
bsalv
B
N
  • Question Question
Microsoft 365 Barème kilométrique
Réponses
3
Affichages
209
goube
  • Question Question
XL 2019 Gestion de 4 sources de revenu (A, B, C et D). Et rajout du jour en cours et MEFC qui doit varier selon le mois en cours...
Réponses
8
Affichages
268
sylvanu
A
  • Question Question
Autres Excel 2007 Recherche dans plusieurs feuilles INDEX EQUIV INDIRECT DECALER
Réponses
3
Affichages
276
AD74
A
  • Résolu(e)
Microsoft 365 Active X sur feuille de calcul
Réponses
2
Affichages
168
JM27
  • Question Question
XL 2021 Copier coller qui ajoute une référence absolu Toute seule
2
Réponses
24
Affichages
1 K
TooFatBoy
L
  • Question Question
XL 2021 Mise en forme conditionnelle à partir d'autre colonne
Réponses
7
Affichages
350
CHRIS1945
C
D
  • Résolu(e)
XL 2016 Alimenter une combobox sur une feuille de calcul
Réponses
11
Affichages
390
dgil37
D
  • Question Question
XL 2016 intégrer une macro sur les nouvelles feuilles crées
Réponses
6
Affichages
241
pascal21
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
332
PRy
P
  • Question Question
XL 2019 Application.Run
Réponses
3
Affichages
256
Atiom
A
  • Question Question
Déplacer données en vba
Réponses
3
Affichages
560
akm
A
M
  • Résolu(e)
XL 2021 Récupérer la valeur d’une cellule dans un classeur fermé
Réponses
5
Affichages
352
patricktoulon
C
  • Résolu(e)
XL 2021 Filtrer sur la ligne active
Réponses
11
Affichages
212
Constantin
C
  • Question Question
Microsoft 365 renseigner un userform
Réponses
5
Affichages
539
Dranreb
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
560
Yogean
Y
I
  • Question Question
Microsoft 365 Atteindre la première case vide après collage
Réponses
5
Affichages
296
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…