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. Formule 2

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 Excel activés, Range.Formula2 remplace Range.Formula. Range.Formula continuera d’être pris en charge pour maintenir la rétrocompatibilité. Pour plus d’informations sur les tableaux dynamiques et Range.Formula2, voir Formule et formule 2.

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é Formule renvoie la formule sous la forme d’une chaîne dans le même format que celui qui serait 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 le format de numéro à date courte par défaut.

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 sous forme de tableau et peuvent se propager si plus d’un résultat est renvoyé.

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.