Aide sur une macro

Résolu/Fermé

patave26 Messages postés 2 Date d'inscription mardi 27 février 2018 Statut Membre Dernière intervention 27 février 2018 - 27 févr. 2018 à 08:58
patave26 Messages postés 2 Date d'inscription mardi 27 février 2018 Statut Membre Dernière intervention 27 février 2018 - 27 févr. 2018 à 10:12

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

A voir également:

Aide sur une macro
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Macro souris ✓ - Forum Windows

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 27 févr. 2018 à 09:16

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

patave26 Messages postés 2 Date d'inscription mardi 27 février 2018 Statut Membre Dernière intervention 27 février 2018
27 févr. 2018 à 10:12

Super et merci de la reactivité de la réponse.

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Copie automatique tableau Excel sans macro

Lien de téléchargement de nbLettre.xla

recup couleur de cellule sans macro

tri automatque sur excel sans créer de macro

Discussions similaires

Newsletters