Changer les couleurs des cellules dans Excel XP??????

Changer les couleurs des cellules dans Excel XP?????? - VB/VBA/VBS - Programmation

Marsh Posté le 01-12-2002 à 18:05:19    

Bonjour à tous  
 
Je dispose d'un classeur de notes d'élèves sous Excel. J'ai une ligne dans laquelle je marque s'il s'agit d'une interro (I1, I2 etc...), s'il s'agit d'un devoir (D1, D2 ...) s'il s'agit d'un devoir de leçon (lecon) etc...
Le truc c'est que lorsque je saisi D1 ou I1 ... j'aimerais qu'Excel me change la couleur de la colonne. La colonne interro en rouge, la colonne Devoir en bleue etc... une couleur par catégorie de devoir. Ainsi dès que je tape D1, le programme repère la lettre "D" et il m'écris toute la colonne en bleue.
Est-ce possible?

Reply

Marsh Posté le 01-12-2002 à 18:05:19   

Reply

Marsh Posté le 02-12-2002 à 12:32:17    

Oui, c'est possible (mais pas directement en utilisant les formats conditionnels, il faut ajouter un peu de code VB)

Reply

Marsh Posté le 02-12-2002 à 16:15:40    

mathos a écrit a écrit :

Bonjour à tous  
 
Je dispose d'un classeur de notes d'élèves sous Excel. J'ai une ligne dans laquelle je marque s'il s'agit d'une interro (I1, I2 etc...), s'il s'agit d'un devoir (D1, D2 ...) s'il s'agit d'un devoir de leçon (lecon) etc...
Le truc c'est que lorsque je saisi D1 ou I1 ... j'aimerais qu'Excel me change la couleur de la colonne. La colonne interro en rouge, la colonne Devoir en bleue etc... une couleur par catégorie de devoir. Ainsi dès que je tape D1, le programme repère la lettre "D" et il m'écris toute la colonne en bleue.
Est-ce possible?



dans l'evenemant change de ta feuille:
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
if left(activecell.value,1)="D" then
ActiveCell.EntireRow.Select
Selection.Font.ColorIndex = 5
end if
 
End Sub
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed