la valeur commence par =

**kikie43** · 12/01/2015, 17h02

bonjour

Je souhaite faire un test me permettant de vérifier si la cellule controlée commence par = (en gros voir s'iil y a déjà une formule de saisie).
Si c'est le cas, je souhaite garder la formule existante, sinon, je fais une opération classique.
Voici ce que ça donne pour mon code :

Code :

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

1
2
3
4
5
 
If Cells(i, 6).Value Like "=*" Then
        Cells(i, 7) = ""je garde la formule de la cellule"          Else
    Cells(i, 7) = Cells(i, 6) / Cells(361, 6) 
    End If

Mais le like "=*" n'est pas pris en compte.
Quelle est la synthaxe.

Je vous remercie par avance.
Cordialement

**bhamp0** · 12/01/2015, 17h09

InStr(1, Cells(i, 6).Value, "=") = 1 ?

Invité · 12/01/2015, 17h26

Code :

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

If left(Trim("" & Cells(i, 6).FormulaR1C1),1) =  "=" Then

**vinc_bilb** · 12/01/2015, 17h46

Bonjour,

Ou bien en passant par l'opérateur HasFormula, sans oublier aussi le SpecialCells qui vous permet de ressortir automatiquement les constantes (pas de formule) ou les formules avec SpecialCells(xlCellTypeFormulas)....

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
 
'cl étant la cellule que vous voulez tester
If cl.HasFormula = True then
 
'autrement, vous pouvez récupérer toutes les celluls d'un coup comme
Sub TestFormula()
 
Dim InpRng As Range, FormRng As Range, DataRng As Range
 
Set InpRng = Worksheets(1).Range("A1").CurrentRegion
Debug.Print InpRng.Address
 
Set FormRng = InpRng.SpecialCells(xlCellTypeFormulas)
Debug.Print FormRng.Address
 
Set DataRng = InpRng.SpecialCells(xlCellTypeConstants)
Debug.Print DataRng.Address

Invité · 12/01/2015, 17h47

Salut,

Tu as accès à une propriété .HasFormula pour ça:

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub Test()
    ' Me réfère à a feuille car le code est écrit directemnt dans une feuille (pour l'exemple).
    Dim i As Long
    i = 1
    If Me.Cells(i, 6).HasFormula Then
        Me.Cells(i, 7).Value = "Je garde la formule de la cellule."
    End If
End Sub