aide sur une macro Résolu

Question

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

cs_Le Pivert · Answer

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

Aide sur une macro

1 réponse

Votre réponse

Discussions similaires

Newsletters