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

[Didier Gonard]

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 :

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

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

[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