Macro VBA

eglantine217 Messages postés 54 Date d'inscription   Statut Membre Dernière intervention   -  
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

j'ai créé une macro pour la mise en forme conditionnelle
cette macro est valable pour 3 onglets de mon fichier excel
comment faire pour exécuter qu'une seule fois cette macro (au lieu d'aller sur chaque onglet puis cliquer sur exécuter)
merci d'avance


Sub conditionnal_formating()

With Range("F:F")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="tata"
'couleur turquoise
.FormatConditions(1).Interior.ColorIndex = 8

.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="titi"
'couleur bleu clair
.FormatConditions(2).Interior.ColorIndex = 34
End With

For i = 12 To 500

' 8<U<19 orange clair B-E et G-U
If Range("F" & i) = "tata" And Range("U" & i) >= 8 And Range("U" & i) <= 19 Then
Range("B" & i, "E" & i).Interior.ColorIndex = 40 'orange +
Range("G" & i, "AA" & i).Interior.ColorIndex = 40 'orange +


elseif ....... reste du code

End If
Next i

End Sub
A voir également:

1 réponse

Réponse 1 / 1
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
bonjour

peut être comme ça 

For Each ws In Sheets
  ws.Select
  with activesheet.range("F:F")


  end with
Next ws


bonne suite
0