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
A voir également:
- Aide sur une macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
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:
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
patave26
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
Super et merci de la reactivité de la réponse.