Propriété Range.Formula2 (Excel)

Renvoie ou définit une valeur Variant qui représente la formule de l’objet dans la notation matricielle de style A1.

Syntaxe

expression. Formule2

expression Variable représentant un objet Range.

Remarques

Cette propriété n'est pas disponible pour les sources de données OLAP.

Dans Les tableaux dynamiques activés pour Excel, Range.Formula2 remplace Range.Formula. Range.Formula continuera d’être pris en charge pour maintenir la compatibilité backcompatibilité. Pour plus d’informations sur les tableaux dynamiques et Range.Formula2, consultez Formula et Formula2.

Si la cellule contient une constante, la propriété renvoie cette constante. Si la cellule est vide, cette propriété renvoie une chaîne vide. Si la cellule contient une formule, la propriété Formula renvoie la formule sous la forme d’une chaîne dans le même format que celui affiché dans la barre de formule (y compris le signe égal ( = )).

Si vous affectez une date à la formule d'une cellule, Microsoft Excel vérifie que la cellule est déjà dotée de l'un des formats numériques ou de date. Si ce n’est pas le cas, Excel remplace le format de nombre par défaut de date courte.

S'il s'agit d'une plage à une ou deux dimensions, vous pouvez désigner la formule comme un tableau Visual Basic possédant les mêmes dimensions. De même, vous pouvez inclure la formule dans un tableau Visual Basic.

Les formules définies à l’aide de Range.Formula2 sont toujours évaluées en tant que tableau et peuvent se renverser si plus d’un résultat est retourné.

Le fait de définir la formule pour une plage comprenant plusieurs cellules insère cette formule dans la totalité des cellules de la plage.

Exemple

L’exemple de code suivant permet de définir la formule de la cellule A1 de la feuille 1.

Worksheets("Sheet1").Range("A1").Formula = "=$A$4+$A$10"

L'exemple de code suivant montre comment définir la formule de la cellule A1 de la feuille « Sheet1 » pour afficher la date du jour.

Sub InsertTodaysDate() 
    ' This macro will put today's date in cell A1 on Sheet1 
    Sheets("Sheet1").Select 
    Range("A1").Select 
    Selection.Formula2 = "=text(now(),""mmm dd yyyy"")" 
    Selection.Columns.AutoFit 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.