Discussion :

[Tifendro]

bonjour,

j'aimerais savoir s'il existait un script pour repérer les cellules d'une feuille Excel qui ne serait pas reliées à une formule.

en gros j'ai une feuille avec beaucoup de cases et quelques dizaines de formules différentes. j'aimerais savoir si je peux supprimer certaines de ces cases sans endommager les formules existantes.

Un simple essai de suppression de la cellule ne serais pas judicieux car certaines formules sont "dormantes".

Merci de votre aide.

[wilfried_42]

Bonjour

as tu regardé ?

Menu Outils / Audit Formule /

Reperer les antecedants : affiche les cellules utilisée pas la formule
Reperer les dependants : affichier les cellules qui utilisent la cellule active dans leurs formules

[Tifendro]

Menu Outils / Audit Formule /
Reperer les antecedants : affiche les cellules utilisée pas la formule
Reperer les dependants : affichier les cellules qui utilisent la cellule active dans leurs formules

Merci beaucoup à tout le monde et plus spécialement à Wilfried !

C'est exactement ce que je cherchais !!!

Excel c'est vraiment un outil puissant !

Merci
Tif.

[SilkyRoad]

bonsoir

il existe une autre possibilité (avec et sans macro) dans la FAQ:

Comment effacer une plage de cellules mais pas les formules qu'elle contient?


bonne soirée
michel

[Gorfael]

Salut Tifendro et le forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test()
If [A1] = "X" Then
    UsedRange.SpecialCells(xlCellTypeFormulas).Interior.ColorIndex = 4
Else
    UsedRange.SpecialCells(xlCellTypeFormulas).Interior.ColorIndex = xlNone
End If
End Sub

si la cellule A1 contient la lettre X majuscule, colore les cellules contenant des formules en vert, sinon remet les cellules contenant des formules en "sans couleur". À adapter
A+

[Pierre Fauconnier]

Bonsoir

Je me permets de compléter gorfaël...

Le code de gorfaël fonctionne SI la procédure est placée dans le module d'une feuille de calcul.

S'il est placé dans un module standard, il faut faire précéder UsedRange du codename de la feuille concernée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil1.UsedRange...

ou de ActiveSheet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.UsedRange...