La tâche suivante consiste à utiliser une fonction pour vérifier si une cellule particulière contient une formule ou non. Pour ce faire, insérez la fonction suivante:
Function FormuleCell(r) Application.Volatile FormuleCell = False If Left(r.Formula, 1) = "=" Alors est la formule = True End Function
Commentaires:
■ Vous pouvez reconnaître une formule ou un lien ou une fonction dans Excel par le fait qu’elle commence par un signe égal. Vous vérifiez exactement ce comportement en évaluant le premier caractère de la cellule cible.
■ La cellule B7 contient la formule = SOMME (B5: B6) et est donc clairement une cellule de formule. La fonction rapporte donc la valeur True, qui est convertie en TRUE dans le tableau.
Une autre façon de faire est illustrée dans la macro suivante:
Function FormuleCell(PlageCell As Range) As Boolean Application.Volatile If PlageCell.HasFormula Then FormuleCell = True End Function
Commentaires:
■La propriété HasFormula renvoie True si la cellule spécifiée contient une formule, une fonction ou un lien.