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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

DenisHen

XLDnaute Nouveau
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...
 
Solution
Bonjour,

Par VBA
VB:
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
Bonjour,

Par VBA
VB:
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
 
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,
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour