bonjour =E0 tous,
comment, par VBA, peut on donner une couleur de fond=20
automatique =E0 la saisie d'un nombre dans une cellule( 18=20
nombre diff=E9rents possible donc 18 couleurs diff=E9rentes)
merci de vous pencher sur mon petit probl=E8me
bonne journ=E9e =E0 tous
bernard
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
bernard
merci beaucoup ellimac, mais ou dois je mettre cete instruction? cordialement bernard
-----Message d'origine----- Bonjour,
Tu peux utiliser l'instruction : If activecell.value<2 then activecell.interior.colorindex=5 elseif activecell.value<5 then .... end if
ou Select case activecell Case <2 .... Case<5 .... Case Else .... End Select
Camille
-----Message d'origine----- bonjour à tous, comment, par VBA, peut on donner une couleur de fond automatique à la saisie d'un nombre dans une cellule( 18
nombre différents possible donc 18 couleurs différentes) merci de vous pencher sur mon petit problème bonne journée à tous bernard .
.
merci beaucoup ellimac,
mais ou dois je mettre cete instruction?
cordialement
bernard
-----Message d'origine-----
Bonjour,
Tu peux utiliser l'instruction :
If activecell.value<2 then
activecell.interior.colorindex=5
elseif activecell.value<5 then
....
end if
ou
Select case activecell
Case <2
....
Case<5
....
Case Else
....
End Select
Camille
-----Message d'origine-----
bonjour à tous,
comment, par VBA, peut on donner une couleur de fond
automatique à la saisie d'un nombre dans une cellule(
18
nombre différents possible donc 18 couleurs différentes)
merci de vous pencher sur mon petit problème
bonne journée à tous
bernard
.
merci beaucoup ellimac, mais ou dois je mettre cete instruction? cordialement bernard
-----Message d'origine----- Bonjour,
Tu peux utiliser l'instruction : If activecell.value<2 then activecell.interior.colorindex=5 elseif activecell.value<5 then .... end if
ou Select case activecell Case <2 .... Case<5 .... Case Else .... End Select
Camille
-----Message d'origine----- bonjour à tous, comment, par VBA, peut on donner une couleur de fond automatique à la saisie d'un nombre dans une cellule( 18
nombre différents possible donc 18 couleurs différentes) merci de vous pencher sur mon petit problème bonne journée à tous bernard .
.
Ellimac
Bonjour,
Ce peut être dans un module standard. Clic droit sur l'onglet de la feuille de calcul et "Visualiser le code". Effacer le code proposé et coller celui fourni plus bas.
Un exemple de formatage d'une colonne de nombres en colonne B à partir de B2 :
Sub couleur_moyenne() Range("B2").Select Do While Not IsEmpty(ActiveCell) If ActiveCell.Value < 8 Then Selection.Font.ColorIndex = 3 Else If ActiveCell.Value < 10 Then Selection.Font.ColorIndex = 8 Else If ActiveCell.Value < 12 Then Selection.Font.ColorIndex = 1 Else If ActiveCell.Value < 16 Then Selection.Font.ColorIndex = 13 Else Selection.Font.ColorIndex = 23 End If End If End If End If ActiveCell.Offset(1, 0).Select Loop Cells(1, 1).Select End Sub
Camille
-----Message d'origine----- merci beaucoup ellimac, mais ou dois je mettre cete instruction? cordialement bernard
-----Message d'origine----- Bonjour,
Tu peux utiliser l'instruction : If activecell.value<2 then activecell.interior.colorindex=5 elseif activecell.value<5 then .... end if
ou Select case activecell Case <2 .... Case<5 .... Case Else .... End Select
Camille
-----Message d'origine----- bonjour à tous, comment, par VBA, peut on donner une couleur de fond automatique à la saisie d'un nombre dans une cellule( 18
nombre différents possible donc 18 couleurs différentes) merci de vous pencher sur mon petit problème bonne journée à tous bernard .
.
.
Bonjour,
Ce peut être dans un module standard. Clic droit sur
l'onglet de la feuille de calcul et "Visualiser le code".
Effacer le code proposé et coller celui fourni plus bas.
Un exemple de formatage d'une colonne de nombres en
colonne B à partir de B2 :
Sub couleur_moyenne()
Range("B2").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell.Value < 8 Then
Selection.Font.ColorIndex = 3
Else
If ActiveCell.Value < 10 Then
Selection.Font.ColorIndex = 8
Else
If ActiveCell.Value < 12 Then
Selection.Font.ColorIndex = 1
Else
If ActiveCell.Value < 16 Then
Selection.Font.ColorIndex = 13
Else
Selection.Font.ColorIndex = 23
End If
End If
End If
End If
ActiveCell.Offset(1, 0).Select
Loop
Cells(1, 1).Select
End Sub
Camille
-----Message d'origine-----
merci beaucoup ellimac,
mais ou dois je mettre cete instruction?
cordialement
bernard
-----Message d'origine-----
Bonjour,
Tu peux utiliser l'instruction :
If activecell.value<2 then
activecell.interior.colorindex=5
elseif activecell.value<5 then
....
end if
ou
Select case activecell
Case <2
....
Case<5
....
Case Else
....
End Select
Camille
-----Message d'origine-----
bonjour à tous,
comment, par VBA, peut on donner une couleur de fond
automatique à la saisie d'un nombre dans une cellule(
18
nombre différents possible donc 18 couleurs différentes)
merci de vous pencher sur mon petit problème
bonne journée à tous
bernard
.
Ce peut être dans un module standard. Clic droit sur l'onglet de la feuille de calcul et "Visualiser le code". Effacer le code proposé et coller celui fourni plus bas.
Un exemple de formatage d'une colonne de nombres en colonne B à partir de B2 :
Sub couleur_moyenne() Range("B2").Select Do While Not IsEmpty(ActiveCell) If ActiveCell.Value < 8 Then Selection.Font.ColorIndex = 3 Else If ActiveCell.Value < 10 Then Selection.Font.ColorIndex = 8 Else If ActiveCell.Value < 12 Then Selection.Font.ColorIndex = 1 Else If ActiveCell.Value < 16 Then Selection.Font.ColorIndex = 13 Else Selection.Font.ColorIndex = 23 End If End If End If End If ActiveCell.Offset(1, 0).Select Loop Cells(1, 1).Select End Sub
Camille
-----Message d'origine----- merci beaucoup ellimac, mais ou dois je mettre cete instruction? cordialement bernard
-----Message d'origine----- Bonjour,
Tu peux utiliser l'instruction : If activecell.value<2 then activecell.interior.colorindex=5 elseif activecell.value<5 then .... end if
ou Select case activecell Case <2 .... Case<5 .... Case Else .... End Select
Camille
-----Message d'origine----- bonjour à tous, comment, par VBA, peut on donner une couleur de fond automatique à la saisie d'un nombre dans une cellule( 18
nombre différents possible donc 18 couleurs différentes) merci de vous pencher sur mon petit problème bonne journée à tous bernard .
.
.
bernard
merci beaucoup Camille bonne journée et à bientôt Cordialement bernard
-----Message d'origine----- Bonjour,
Ce peut être dans un module standard. Clic droit sur l'onglet de la feuille de calcul et "Visualiser le code".
Effacer le code proposé et coller celui fourni plus bas.
Un exemple de formatage d'une colonne de nombres en colonne B à partir de B2 :
Sub couleur_moyenne() Range("B2").Select Do While Not IsEmpty(ActiveCell) If ActiveCell.Value < 8 Then Selection.Font.ColorIndex = 3 Else If ActiveCell.Value < 10 Then Selection.Font.ColorIndex = 8 Else If ActiveCell.Value < 12 Then Selection.Font.ColorIndex = 1 Else If ActiveCell.Value < 16 Then Selection.Font.ColorIndex = 13 Else Selection.Font.ColorIndex = 23 End If End If End If End If ActiveCell.Offset(1, 0).Select Loop Cells(1, 1).Select End Sub
Camille
-----Message d'origine----- merci beaucoup ellimac, mais ou dois je mettre cete instruction? cordialement bernard
-----Message d'origine----- Bonjour,
Tu peux utiliser l'instruction : If activecell.value<2 then activecell.interior.colorindex=5 elseif activecell.value<5 then .... end if
ou Select case activecell Case <2 .... Case<5 .... Case Else .... End Select
Camille
-----Message d'origine----- bonjour à tous, comment, par VBA, peut on donner une couleur de fond automatique à la saisie d'un nombre dans une cellule( 18
nombre différents possible donc 18 couleurs différentes)
merci de vous pencher sur mon petit problème bonne journée à tous bernard .
.
.
.
merci beaucoup Camille
bonne journée et à bientôt
Cordialement
bernard
-----Message d'origine-----
Bonjour,
Ce peut être dans un module standard. Clic droit sur
l'onglet de la feuille de calcul et "Visualiser le
code".
Effacer le code proposé et coller celui fourni plus bas.
Un exemple de formatage d'une colonne de nombres en
colonne B à partir de B2 :
Sub couleur_moyenne()
Range("B2").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell.Value < 8 Then
Selection.Font.ColorIndex = 3
Else
If ActiveCell.Value < 10 Then
Selection.Font.ColorIndex = 8
Else
If ActiveCell.Value < 12 Then
Selection.Font.ColorIndex = 1
Else
If ActiveCell.Value < 16 Then
Selection.Font.ColorIndex = 13
Else
Selection.Font.ColorIndex = 23
End If
End If
End If
End If
ActiveCell.Offset(1, 0).Select
Loop
Cells(1, 1).Select
End Sub
Camille
-----Message d'origine-----
merci beaucoup ellimac,
mais ou dois je mettre cete instruction?
cordialement
bernard
-----Message d'origine-----
Bonjour,
Tu peux utiliser l'instruction :
If activecell.value<2 then
activecell.interior.colorindex=5
elseif activecell.value<5 then
....
end if
ou
Select case activecell
Case <2
....
Case<5
....
Case Else
....
End Select
Camille
-----Message d'origine-----
bonjour à tous,
comment, par VBA, peut on donner une couleur de fond
automatique à la saisie d'un nombre dans une cellule(
18
nombre différents possible donc 18 couleurs
différentes)
merci de vous pencher sur mon petit problème
bonne journée à tous
bernard
.
merci beaucoup Camille bonne journée et à bientôt Cordialement bernard
-----Message d'origine----- Bonjour,
Ce peut être dans un module standard. Clic droit sur l'onglet de la feuille de calcul et "Visualiser le code".
Effacer le code proposé et coller celui fourni plus bas.
Un exemple de formatage d'une colonne de nombres en colonne B à partir de B2 :
Sub couleur_moyenne() Range("B2").Select Do While Not IsEmpty(ActiveCell) If ActiveCell.Value < 8 Then Selection.Font.ColorIndex = 3 Else If ActiveCell.Value < 10 Then Selection.Font.ColorIndex = 8 Else If ActiveCell.Value < 12 Then Selection.Font.ColorIndex = 1 Else If ActiveCell.Value < 16 Then Selection.Font.ColorIndex = 13 Else Selection.Font.ColorIndex = 23 End If End If End If End If ActiveCell.Offset(1, 0).Select Loop Cells(1, 1).Select End Sub
Camille
-----Message d'origine----- merci beaucoup ellimac, mais ou dois je mettre cete instruction? cordialement bernard
-----Message d'origine----- Bonjour,
Tu peux utiliser l'instruction : If activecell.value<2 then activecell.interior.colorindex=5 elseif activecell.value<5 then .... end if
ou Select case activecell Case <2 .... Case<5 .... Case Else .... End Select
Camille
-----Message d'origine----- bonjour à tous, comment, par VBA, peut on donner une couleur de fond automatique à la saisie d'un nombre dans une cellule( 18
nombre différents possible donc 18 couleurs différentes)
merci de vous pencher sur mon petit problème bonne journée à tous bernard .
