Mise en Forme conditionnelle en VBA Excel

Modérateurs : jaja3, informaticsclubs

Règles du forum
Les tutoriels de ce forum sont fermés
Pour toute question à propos d'un tutoriel merci  de la poser dans le forum de dépannage.


en cliquant ici
Image
Avatar de l’utilisateur
migau France
Administrateur du site
Administrateur du site
Messages : 3339
Inscription : mar. 7 janv. 2020 19:12
Mon prénom : Michel
Contact :

   Informations:

 windowsdefender   windows10    FREE    thunderbird   Maine_et_Loire  firefox 
déc. 2020 13 11:42

Mise en Forme conditionnelle en VBA Excel

Message par migau

Mise en Forme conditionnelle en VBA

la mise en forme conditionnelle se fait automatique à l'aide du code VBA Excel

cette méthode est très utile en gain de temps si vous devez mettre le fond de plusieurs cellules selon plusieurs critères

le texte avec une apostrophe devant n'est pas exécuter, il devient vert dans la code vba

Code : Tout sélectionner

Sub MEFC()
'
' MEFC Macro
'

'
   ' Range("B2:M11").Select ici c'est pour déterminer une plage
   
   Feuil1.Range("A1").CurrentRegion.Select ' détermine automatiquement tout le tableau
    Selection.FormatConditions.Add Type:=xlTextString, String:="lcmv", _
        TextOperator:=xlContains ' (,espace_) permet d'aller à la ligne et le script se poursuit
        
        ' string:="" mot rechercher entre les doubles guillemets
        
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = xlNone
        
        ' Color = xlNone  aucun remplissage
        ' 65535  = jaune
        ' 10092543 = jaune très pale
        ' 13434777 = vert bleu
        ' 16777062 = bleu pale
        ' 10092543 = jaune pale également
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    
    ' sélectionner une cellule dans la feuil1

  Feuil1.Range("A1").Select  ' par cette action  tout est déséletionné sur feui11
End Sub
la suite en vidéo fa-arrow-circle-rightfa-youtube



★·.·´¯`·.·★fa-usermigau★·.·´¯`·.·★


Lire le règlement du forum     Présentez vous ici