Microsoft 365 Problème avec une macro

[Bruno09]

Sub Rabais10Pourcent()
'
' Rabais10Pourcent Macro
'
' Touche de raccourci du clavier: Ctrl+t
'
    ActiveCell.FormulaR1C1 = "=SUM(RC[3]*0.9)"
    ActiveCell.Select
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    With Selection.Font
        .Name = "Arial Narrow"
        .Size = 9
        .Color = -16776961
        .TintAndShade = 0
        
    End With
    Range("m1836").Select
    With Selection.Font
         .Name = "Arial Narrow"
         .Size = 11
        .Color = -16776961
        .TintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "10%"
  
End Sub

 

[Bruno09]

Bonjour,
J'ai un ennui avec cette macro. Elle calcule un rabais en fonction d'une autre cellule. Ceci fonctionne très bien, le problème est que je veux qu'il s'inscrive "10%" dans la cellule précédente mais mon tableau contient plusieurs lignes et je ne trouve pas l'argument à écrire pour remplacer la ligne suivante " Range("m1836").Select"
Merci de votre aide,

Sub Rabais10Pourcent()
'
' Rabais10Pourcent Macro
'
' Touche de raccourci du clavier: Ctrl+t
'
ActiveCell.FormulaR1C1 = "=SUM(RC[3]*0.9)"
ActiveCell.Select
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
With Selection.Font
.Name = "Arial Narrow"
.Size = 9
.Color = -16776961
.TintAndShade = 0

End With
Range("m1836").Select
With Selection.Font
.Name = "Arial Narrow"
.Size = 11
.Color = -16776961
.TintAndShade = 0
End With
ActiveCell.FormulaR1C1 = "10%"

End Sub

 

[Dranreb]

Bonsoir.
Qu'est ce que vous appelez la cellule précédente ?
Celle au dessus de ActiveCell c'est ActiveCell(0, 1), celle à sa gauche c'est ActiveCell(1, 0)
Pas besoin de ActiveCell(0, 1).Select suivi de With Selection. With ActiveCell(0, 1) devrait aller.

 

[Bruno09]

Merci cela fonctionne!
Bonne journée,