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
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
A voir également:
- Couleur de cellule avec Visual basic
- Visual basic download - Télécharger - Langages
- Excel cellule couleur si condition texte - Guide
- Microsoft 365 basic - Guide
- Microsoft visual c++ runtime - Guide
- Somme si couleur - Guide
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
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
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
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
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
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
