mettre formule sur la derniere colonne

Staple1600 à dit:

Re


Voici une solution possible

Code:

Sub a()
With ActiveSheet.UsedRange
Cells(2, .Columns.Count + 1).Resize(.Rows.Count - 1).FormulaR1C1 = "=RC[-2]*RC[-1]"
End With
End Sub

PS: j'attends toujours ta réponse dans ton autre fil

Cliquez pour agrandir...

Staple1600 à dit:

Bonjour


Il suffit d'utiliser la même méthode mais en changeant la formule.

Voici la version modifiée

Code:

Sub a_a()
Dim f1$: f1 = "=RC[-2]*RC[-1]"
With ActiveSheet.UsedRange
    With Cells(2, .Columns.Count + 1).Resize(.Rows.Count - 1)
        .FormulaR1C1 = f1
        .Offset(.Rows.Count).Resize(1).FormulaR1C1 = _
        "=SUM(R[-" & .Rows.Count & "]C:R[-1]C)"
    End With
End With
End Sub

Cliquez pour agrandir...

String, type de données

Il existe deux types de chaînes : les chaînes de longueur variable et les chaînes de longueur fixe.

• Les chaînes de longueur variable peuvent contenir environ 2 milliards (2^31) de caractères.
• Les chaînes de longueur fixe peuvent contenir de 1 à environ 64 Ko (2^16) de caractères. Note Une chaîne de longueur fixe déclarée comme Public ne peut pas être utilisée dans les modules de classe.

Les codes de caractères de type String sont compris entre 0 et 255. Les 128 premiers caractères (0 à 127) du jeu de caractères correspondent aux lettres et symboles d'un clavier américain standard. Ces 128 caractères sont identiques à ceux du jeu de caractères ASCII. Les 128 caractères suivants (128 à 255) représentent des caractères spéciaux, comme les lettres de certains alphabets, les accents, les symboles monétaires et les fractions. Le caractère de déclaration de type String est le signe $.

Cliquez pour agrandir...