la valeur commence par =

Version imprimable

12/01/2015, 16h02
kikie43

la valeur commence par =
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:

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
12/01/2015, 16h09
bhamp0

InStr(1, Cells(i, 6).Value, "=") = 1 ?
12/01/2015, 16h26
Invité

Code:

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

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:

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

Salut,

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

Code:

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

12/01/2015, 16h51
Invité

merci Nouveau2 je ne connaissais pas!
12/01/2015, 16h53
vinc_bilb

Citation:

merci Nouveau2 je ne connaissais pas!

pssss ..... je suis frustré :calim2: et ne pas oublier le

Code:

InpRng.SpecialCells(xlCellTypeFormulas)

:P
12/01/2015, 16h56
Invité

:mouarf:
18/01/2015, 12h10
Invité

Bonjour vinc_bilb,
Désolé j'avais pas vu!

Citation:

Envoyé par vinc_bilb

pssss ..... je suis frustré :calim2: et ne pas oublier le

Code:

InpRng.SpecialCells(xlCellTypeFormulas)

:P