Colorer cellule utilisée

[crazy]

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.

 

[crazy]

Re : Colorer cellule utilisée

Pas de réponse?.....
cela me sauverait vraiment beaucoup...
Merci

 

[CHALET53]

Re : Colorer cellule utilisée

Bonjour,

La mise en forme conditionnelle ne peut faire appel qu'à des infos de la même feuille

un autre esssai

 

[crazy]

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.

 

[crazy]

Re : Colorer cellule utilisée

pardon, j'allais oublier:
au fait merci CHALET53 pour ta réponse

 

[Gorfael]

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 :

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+

 

[crazy]

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 )