Range.Formula, propriété (Excel)

  • Article

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

Syntaxe

expression. Formule

expression Variable représentant un objet Range.

Remarques

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é. Vous trouverez une discussion sur les tableaux dynamiques et Range.Formula2 dans la rubrique de documentation VBA Excel Formula vs Formula2.

Voir aussi

Propriété Range.Formula2

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

Si la cellule contient une constante, la propriété la renvoie. 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.Formula peuvent déclencher une intersection implicite.

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.Formula = "=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.