If not Then vba [Résolu/Fermé]

Signaler
-
 huliet -
Bonjour,

Voici mon code, 
 Sub essai()

Dim c As Range

For Each c In Worksheets("Feuil1").Range("analyses")
    If Not (c.Value Like "2007" Or c.Value Like "2010") Then
        c.Interior.ColorIndex = 36
      
        Else
         
    End If
    
     Next
   
    
End Sub


mon problème est que certaine cellules contiennent 2007 et se colore en 36, car ces cellules contiennent d'autres années mais est quel est le signe à utiliser pour que ce ne soit pas strictement 2007 et 2010?

Merci de votre aide
A voir également:

3 réponses

Réponse 1 / 3
Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
 2 601
Bonjour,

Le problème est que, lorsque tu as 2007, tu n'as pas 2010. Donc la condition : Si la valeur n'est pas 2007 OU pas 2010, est remplie.
Essaye avec And : 
If Not (c.Value Like "2007" And c.Value Like "2010") Then
Réponse 2 / 3
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
 520
Bonjour, 

Sub essai()
Dim c As Range
    For Each c In Worksheets("Feuil1").Range("analyses")
        If Not (c.Value Like "*2007*" Or c.Value Like "*2010*") Then c.Interior.ColorIndex = 36
    Next
End Sub

A+
Réponse 3 / 3

Merci
Ca marche nickel
Posez votre question