XL 2021 Cette cellule contient une formule ? Ou un texte ? Mais en VBA.

[DenisHen]

Bonjour à la communauté.
Je cherche sans rien trouver, et ma question tiens en une ligne, comme la réponse je présume.
Comment savoir si, par exemple, la cellule C21 contient une formule ou un texte ?
Je pensais à un truc du genre : If Cells(21, 3).FormulaLocal=True, mais rien...
Quelqu'un aurait une astuce, un conseil, voir carrément la solution ?
Bien à toi la communauté.
Denis...

 

[vgendron]

hello

je crois que c'est juste
isformula(Cells(21,3)
ou HasFormula(cells(21,3))

c'est le contraire
MsgBox Range("C21").HasFormula

 

[riton00]

Bonjour,

Par VBA

Sub VérifierContenu()
    Dim cell As Range
    Set cell = Range("C21")
    If cell.HasFormula Then
        MsgBox "La cellule contient une formule."
    ElseIf VarType(cell.Value) = vbString Then
        MsgBox "La cellule contient du texte."
    Else
        MsgBox "La cellule contient autre chose (nombre, erreur, etc.)."
    End If
End Sub

Par formule =ESTFORMULE(C21) ==>VRAI si la cellule contient une formule, FAUX sinon
Par formule =ESTTEXTE(C21) ==> VRAI si c'est du texte, FAUX sinon

Slts

 

[DenisHen]

Bonjour à vous.
Un grand merci pour votre aide, vous avez trouvez la solution.
Une fois de plus 😉 .
Denis...

 

[DenisHen]

Eh ben, je continu le problème.
La solution fonctionne très bien chez moi (Excel 2021 et 2019), mais pas au boulot (MSOffice 365).
Donc, mon problème a été réglé, mais pas partout.
Quelqu'un aurait une solution commune ?

 

[Gégé-45550]

Eh ben, je continu le problème.
La solution fonctionne très bien chez moi (Excel 2021 et 2019), mais pas au boulot (MSOffice 365).
Donc, mon problème a été réglé, mais pas partout.
Quelqu'un aurait une solution commune ?

Bonsoir,
Voir PJ (testée avec Office 365).
Cordialement,