Sujet Précédent Sujet Suivant

Excel

Fermé
patrick - 23 avril 2009 à 08:51
zahr kall Messages postés 62 Date d'inscription mercredi 12 mars 2008 Statut Membre Dernière intervention 28 septembre 2009 - 24 avril 2009 à 13:39
Bonjour, j'ai inséré une macro pour colorer la(les) cellule active.J'ai réussi à colorer mes cellules actives mais lorsque j'enregistre mon dossier en fin de journée la cellule active colorée s'enregistre colorée et le lendemain lorsque j'ouvre mon dossier active ou pas cette cellule reste colorée ........à la fin mon tableau sera tout rouge!
merci de m'aider
A voir également:

3 réponses

Réponse 1 / 3
zahr kall Messages postés 62 Date d'inscription mercredi 12 mars 2008 Statut Membre Dernière intervention 28 septembre 2009 10
23 avril 2009 à 09:04
Bonjour,

essaie ta macro avec Sub Worksheet_Selectionchange

Bonne journée.
0
patrick
23 avril 2009 à 09:32
voici ma macro et cela garde toujours la cellule active (qui est colorée) de la veille:

Public old_color, old_sel
Option Explicit
Sub Worksheet_SelectionChange(ByVal sel As Range)

If Not old_sel = "" Then Range(old_sel).Interior.ColorIndex = old_color
old_sel = sel.Address
old_color = ActiveCell.Interior.ColorIndex
ActiveCell.Interior.ColorIndex = 3

End Sub

merci de m'aider
0
Réponse 2 / 3
zahr kall Messages postés 62 Date d'inscription mercredi 12 mars 2008 Statut Membre Dernière intervention 28 septembre 2009 10
23 avril 2009 à 10:53
Dans ton ThisWorkbook, essaie ceci :

Private Sub Workbook_Open()

ActiveSheet.Select 'définir la zone qui t'intéresse
Selection.Interior.ColorIndex = xlNone

End Sub


est-ce que cela t'aiderai?
0
patrick
23 avril 2009 à 12:17
je ne sais pas ou l'insérer?merci
0
Réponse 3 / 3
zahr kall Messages postés 62 Date d'inscription mercredi 12 mars 2008 Statut Membre Dernière intervention 28 septembre 2009 10
24 avril 2009 à 13:39
Bonjour,

il faut que tu ailles dans l'éditeur de Microsoft Visual Basic.
Pour cela, lorsque tu as ouvert ton fichier Excel, tu tapes "alt" + "F11".
Dans l'arborescence à gauche, tu trouveras ton fichier.
Si tu cliques dessus, il y aura un ou plusieurs dossiers qui apparaitront.
Là, tu choisis celui qui s'appelle "Microsoft Excel Objets".
Dedans, tu trouveras "ThisWorkbook".
Double-clique dessus pour l'ouvrir, et insères le code :

Private Sub Workbook_Open()

ActiveSheet.Select 'définir la zone qui t'intéresse
Selection.Interior.ColorIndex = xlNone

End Sub


Normalement, tu devrais t'en sortir.
0