Discussion :

[totoen]

bonjour,

Voila je fais une boucle sur les ligne de mon tableau et j'aimerais tester si la cellule que je parcours contient une formule ou pas ?

Le but est d'effacer les cellule ne contenant pas de fonction (des nombre) et de remplacer une valeur par une autre dans la formule dans les champs contenant une fonction.

Je pensais essayer de tester si le premier caractère étais un = mais malheureusement j'arrive a obtenir seulement la valeur calculé du champ et non son calcul...

Merci d'avance

[JPierreM]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub sc()
 
Dim maFeuille As Worksheet
Dim cellule As Range
     Set maFeuille = ActiveSheet
        For Each cellule In maFeuille.UsedRange
            If Not cellule.HasFormula Then
                cellule.Font.ColorIndex = xlColorIndexAutomatic
            Else
                cellule.Font.ColorIndex = 3
            End If
        Next
     Exit Sub
End Sub

Colore en rouge les cellules ayant une formule. A adapter

[Didier Gonard]

Bonjour,

En gros, ton tableau a combien de lignes sur combien de colonnes et quel est le pourcentage de cellules avec formules?

cordialement,

Didier

[totoen]

Merci pour les réponses

Ca marche nickel

Enfaite y a environ 20% de champs calculé et le reste c'est des chiffre ou des ligne vide! Pourquoi y aurais un meilleur moyen?



Merci

[Didier Gonard]

ton tableau a combien de lignes sur combien de colonnes

Tu ne donnes pas ces infos, il y a peut-être plus rapide, mais ça n'a d'intérêt que selon la dimension du tableau...

cordialement,

Didier

[totoen]

Ok alors c'est une colonne avec un milliers de lignes désolé j'avais pas bien compris...

EDIT: faute de boulet