Couleur de cellule avec Visual basic

Fermé
Bozz - 26 avril 2005 à 11:12
random Messages postés 1612 Date d'inscription vendredi 26 novembre 2004 Statut Membre Dernière intervention 30 mars 2006 - 26 avril 2005 à 13:49
bonjour a tous
je suis completement nul en Visual Basic et je cherche a faire un petit programme qui me permet de colorer une colonne sur 2(une en bleu et la suivante en rouge , puis en bleu puis.....)

si mon sauveur existe, merci a lui



bonne journee

BOZZ
A voir également:

2 réponses

Kobaya Messages postés 282 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 10 janvier 2008 214
26 avril 2005 à 13:33
salut,

tu peux essayer quelquechose comme :

Do
If ActiveCell.Column / 2 = Round(ActiveCell.Column / 2) Then
ActiveCell.Interior.ColorIndex = 32
Else
ActiveCell.Interior.ColorIndex = 34
End If
ActiveCell.Offset(0, 1).Select
Loop Until ActiveCell.Column = 10

0
random Messages postés 1612 Date d'inscription vendredi 26 novembre 2004 Statut Membre Dernière intervention 30 mars 2006 155
26 avril 2005 à 13:49
sinon tu mets ca
Sub macro8()
Dim deb As Boolean
Dim x As Range
deb = ActiveCell.Column / 2 = ActiveCell.Column \ 2
For Each x In Selection
If (x.Column / 2 = x.Column \ 2) = deb Then
x.Interior.ColorIndex = 6
Else
x.Interior.ColorIndex = 5
End If
Next
End Sub
le 6 et le 5 codent les couleurs
0