VBA - Syntaxe d'un select case

Ti_

Nous a quitté

Repose en paix

• 20 Juin 2006

• #2

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é

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 20 Juin 2006

• #3

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

Cliquez pour agrandir...

Bon courage

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 20 Juin 2006

• #4

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 20 Juin 2006

• #5

bonjour à vous deux

😱


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

😱

merci à vous deux

salut

 

Vote positif 0 Vote négatif

Ti_

Nous a quitté

Repose en paix

• 20 Juin 2006

• #6

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... 🙂

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 20 Juin 2006

• #7

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

 

Vote positif 0 Vote négatif