Discussion :

[halaster08]

Bonjour,

Je sais qu'il existe des fonction IsNumeric ou IsDate qui permettent de savoir si le contenu d'une cellule est un nombre ou une date.
Je me demandais si il existe l'équivalent pour savoir si la valeur d'une cellule est le résultat d'une formule ou non ?
Pour l'instant j'utilise le code ci-dessous mais je me demandais s'il n'y avais pas plus efficace

Code :

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

Left(Range("X2").Formula, 1) = "="

Merci d'avance.

[Thautheme]

Bonjour Halaster, bonjour le forum,

Si ça peut t'aider :

Code :

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

1
2
3
Sub Macro1()
Selection.SpecialCells(xlCellTypeFormulas).Select 'extrait d'une sélection uniquement les cellules contenant des formules
End Sub

[Menhir]

Dans VBA, les fonctions font partie de la base du langage et ne sont pas spécifiques à des applications comme Excel.
Il est donc peut probable qu'il existe une fonction du style "IsFormula".
Ce qui s'approche le plus d'une fonction en spécifique Excel, ce sont les propriétés. Mais, à ma connaissance, l'objet Range n'a pas de propriété booléenne pouvant spécifier ça.

Mais rien ne t'empêche de créer ta propre fonction.

Code :

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

1
2
3
Function IsFormula(CC As Range) As Boolean
    If Left(CC.Formula, 1) = "=" Then IsFormula = True Else IsFormula = False
End Function

[patricktoulon]

bonjour
@menhir

Il est donc peut probable qu'il existe une fonction du style "IsFormula".

Si!! ca existe!!
c'est tout simplement la proprité "HasFormula" qui renvoie un booleen

F1!!


auserais-je dire aussi qu'il y a le type xlCellTypeFormulas de specialcells

2exemple avec les deux propriété cité ci dessus
avec specialcells

Code :

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

1
2
3
Sub test1()
MsgBox Not Range("B1").SpecialCells(xlCellTypeFormulas) Is Nothing
End Sub

avec hasFormula

Code :

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

1
2
3
Sub test2()
MsgBox Range("B1").HasFormula
End Sub

[halaster08]

Merci pour vos réponses

[Menhir]

Il est donc peut probable qu'il existe une fonction du style "IsFormula".

Si!! ca existe!!
c'est tout simplement la proprité "HasFormula" qui renvoie un booleen

Je persiste à dire que cette FONCTION n'existe pas.
Comme je l'ai dit dans la phrase qui suivait, si quelque chose d'équivalent existait, ce serait une propriété de Range (ce que tu confirmes) et j'ai pris la précaution de dire non pas que cette propriété n'existe pas mais je ne la connaissais pas.

Code :

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

1
2
3
Sub test1()
MsgBox Not Range("B1").SpecialCells(xlCellTypeFormulas) Is Nothing
End Sub

Ca, j'avais déjà testé, ça ne fonctionne pas.
S'il y a une formule dans les parages (même si dans la cellule visée il y a une simple valeur), ça répondra Vrai.
S'il n'y a aucune formules dans les environ, ça renvoie un message d'erreur.

A tester avec un feuille vide et juste un 1 en B1 : message d'erreur.
En ajoutant =B1 dans la cellule B2 : retour Vrai pour B1.

SpecialCells(xlCellTypeFormulas), je l'ai trituré dans tous les sens sans trouver une utilisation fiable pour cette demande.

[patricktoulon]

re
le seul moyen que j'utiliserais c'est la gestion d'erreur et sortie!!! en next

Code :

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

1
2
3
Sub test()
MsgBox hasformule([B1])
End Sub

Code :

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

1
2
3
4
5
Function hasformule(cellule)
hasformule = False' je met la valeur a false automatiquement 
On Error Resume Next' si sepecialcell declenchera une erreur c'est que il n'y a pas de formule comme elle est deja a false on saute avec resume next
hasformule = Not cellule.SpecialCells(xlCellTypeFormulas) Is Nothing: 'si il n'y a pas eu d'erreurs elle renverra vrai
End Function

ca fait partie de quelque exemples ou le on error est indispensable meme le "iserror " ne fonctionne pas

[eriiic]

Bonjour,

il me semble que tu as oublié de tester le 2nd cas patrick
cellule.SpecialCells(xlCellTypeFormulas) retourne la constante quand ce n'est pas une formule, donc <> nothing également.
eric