Aide sur une macro
Résolu
patave26
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
patave26 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
patave26 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
bonjour ,
je débute dans les macro non sans mal.
je viens de créer une macro de mise en forme conditionnelle pour un ligne ("F16:U16") et j'aimerez la dupliquer jusqu'a la ligne 261 sans me taper les 260 fois la commande.
Si on peut m'aider je suis preneur.
Ci-dessous ma macro
Sub mise_en_forme()
'
' mise_en_forme Macro
'
'
Range("F16:U16").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotBetween, _
Formula1:="=$C$16+$D$16", Formula2:="=$C$16+$E$16"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16776961
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
Merci
je débute dans les macro non sans mal.
je viens de créer une macro de mise en forme conditionnelle pour un ligne ("F16:U16") et j'aimerez la dupliquer jusqu'a la ligne 261 sans me taper les 260 fois la commande.
Si on peut m'aider je suis preneur.
Ci-dessous ma macro
Sub mise_en_forme()
'
' mise_en_forme Macro
'
'
Range("F16:U16").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotBetween, _
Formula1:="=$C$16+$D$16", Formula2:="=$C$16+$E$16"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16776961
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
Merci
1 réponse
-
Bonjour,
Avec une boucle For , voir ici:
https://www.excel-pratique.com/fr/vba/boucles.php
Ce qui donne pour ta macro:
Option Explicit 'https://www.excel-pratique.com/fr/vba/boucles.php Sub mise_en_forme() Dim i As Integer Application.ScreenUpdating = False For i = 16 To 261 Range("F" & i & ":U" & i).Select Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotBetween, _ Formula1:="=$C$" & i & "+$D$" & i, Formula2:="=$C$" & i & "+$E$" & i Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Font .Color = -16776961 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False Next Application.ScreenUpdating = True End Sub
