Microsoft 365 Problème avec une macro

Bruno09

XLDnaute Nouveau
VB:
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
 
Solution
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

XLDnaute Nouveau
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

XLDnaute Barbatruc
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.
 

Discussions similaires