Microsoft 365 Problème avec une macro

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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.
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
 
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
0
Affichages
459
  • Question Question
Microsoft 365 colorer une plage
Réponses
2
Affichages
872
Retour