Couleur de cellule avec Visual basic

Bozz -  
random Messages postés 1612 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Membre Dernière intervention   214
 
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   Statut Membre Dernière intervention   155
 
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