Tester si la cellule contient une formule

Version imprimable

08/06/2010, 16h19
totoen

Tester si la cellule contient une formule

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

Bonjour,

Code:

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

08/06/2010, 18h04
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
09/06/2010, 09h16
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
09/06/2010, 10h03
Didier Gonard

Citation:

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
09/06/2010, 11h57
totoen

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

EDIT: faute de boulet :oops:

Bonjour,

bon 1000 cellules, c'est pas grand chose, vois avec les timer si ça fait une différence, sur des gros tableaux, ça devrait se sentir..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Toto()
Dim tboPass() As Variant
Dim I As Long
Dim cell As Range
Dim pass1 As Single, pass2 As Single
 
pass1 = Timer
I = 1
   Selection.SpecialCells(xlCellTypeFormulas, 23).Select
ReDim tboPass(Selection.Count, Selection.Count)
For Each cell In Selection
   tboPass(I, 1) = cell.Formula
   ' selon ton contexte tu peux placer ton traitement de formules à l'endroit voulu
   tboPass(I, 2) = cell.Address
   I = I + 1
Next cell
Columns(1).Clear
For I = 1 To UBound(tboPass)
Range(tboPass(I, 2)).Formula = tboPass(I, 1)
Next I
pass2 = Timer
MsgBox pass2 - pass1 & " secondes de traitement "
 
End Sub

cordialement,

Didier

09/06/2010, 15h55
totoen

Ok merci

Vu que tu t'es donné la peine de m'expliquer je vais tester mais
les 2 sec. avec le code de JPierreM ca être difficile de faire mieux ;)

Je mets déjà résolu mais je reviendrais te dire si y a une différence...

Cordialement

totoen