If not Then vba Résolu

Question

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

pijaku · Answer

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

Gyrus · Answer

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    NextEnd Sub

A+

huliet · Answer

Merci
Ca marche nickel

If not Then vba

3 réponses

Discussions similaires

Newsletters