Excel

patrick -  
zahr kall Messages postés 63 Statut Membre -
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
Configuration: Windows XP
Internet Explorer 6.0

3 réponses

  1.
    zahr kall Messages postés 63 Statut Membre 10
     
    Bonjour,

    essaie ta macro avec Sub Worksheet_Selectionchange

    Bonne journée.
    0
    1. patrick
       
      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
  2. zahr kall Messages postés 63 Statut Membre 10
     
    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
    1. patrick
       
      je ne sais pas ou l'insérer?merci
      0
  3. zahr kall Messages postés 63 Statut Membre 10
     
    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