Couleur de cellule avec Visual basic
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
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
2 réponses
-
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
-
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
