VBA - Syntaxe d'un select case

[Hervé]

Bonjour tout le monde

Petite demande

Je cherche une syntaxe permettant la négation dans un select case.

exemple :

dans la colonne 1 du texte (toto, tata, titi), je cherche à colorier en rouge les cellules n'etant pas egale à 'toto', voici mon code :

Dim i As Byte

For i = 1 To 10
        Select Case Cells(i, 1)
                Case 'toto':
                Case Else: Cells(i, 1).Interior.ColorIndex = 3
        End Select
Next i

ce code fonctionne.

mais j'aimerai (par pur curiosité) savoir si le case else n'est pas inutile.

un code de ce style ne fonctionne pas :

Dim i As Byte

For i = 1 To 10
        Select Case Cells(i, 1)
                Case Not 'toto': Cells(i, 1).Interior.ColorIndex = 3
        End Select
Next i

Merci de me confirmer que ce que je veux faire n'est pas possible.

salut

 

[Ti_]

Salut Hervé,
Si, tu peux très bien le faire, en modifiant à peine ta ligne, comme ceci :

For i = 1 To 10
Select Case Cells(i, 1)
Case Is diff 'toto': Cells(i, 1).Interior.ColorIndex = 3
End Select
Next i

(remplacer diff par le signe différent qui ne passe pas sur le forum)

Ceci dit, dans cette situation un If Then serait plus approprié

 

[PascalXLD]

Bonjour

essaies

Dim i As Byte

For i = 1 To 10
        Select Case Cells(i, 1)
                Case Is ‹ › 'toto': Cells(i, 1).Interior.ColorIndex = 3
        End Select
Next i

Bon courage

 

[PascalXLD]

Re

Ti fut plus rapide (mais dans la même minute) mais même solution

Bonne journée

Message édité par: Pascal76, à: 20/06/2006 10:26

 

[Hervé]

bonjour à vous deux

😱


je promet que j'avais essayé cette syntaxe, mais sans succès, et là ca marche.

😱

merci à vous deux

salut

 

[Ti_]

eh oui Hervé, c'est une nouvelle option d'Excel, les macros ne fonctionnent pas tant qu'elles ne sont pas certifiées par une autorité de certification dûment accréditée : boss, aîné ou moustachu... 🙂

 

[Hervé]

re

🙂 🙂

donc dorénavant, ti, je t'enverrais tout mes codes pour validation avant de les poster.

fait du vide dans ta messagerie, j'arrive. 🙂

salut