les commentaires et les couleurs de fond ne s'effacent pas

[pascal21]

Private Sub Worksheet_Activate()

    With Sheets("feuil2")
        For i = Sheets("feuil2").[e2].Column To Sheets("feuil2").[e2].End(xlToRight).Column 'boucle sur toutes dates
            If Cells(2, i) < Date Then
                Cells(2, i).EntireColumn.Hidden = True 'masque les colonnes
                    [COLOR="Red"]Cells(2, i).ClearComments 'enlève les commentaires
                        Cells(2, i).Interior.ColorIndex = xlNone 'enlève la couleur[/COLOR]
                        End If
                            Next i
                                End With

bonjour à tous
j'ai ce code qui me masque les colonnes dont la date est dépassée en ligne E
je n'ai pas d'erreur, pourtant la partie en rouge ne se fait pas
j'ai toujours les couleurs et les commentaires
je pense qu'il s'agit d'un problème de syntaxe
que faire
merci

 

[jeanpierre]

Re : les commentaires et les couleurs de fond ne s'effacent pas

Bonjour Pascal,

Et si tu mets ces deux lignes avant de masquer la colonne ....

Bonne journée.

Jean-Pierre

 

[pascal21]

Re : les commentaires et les couleurs de fond ne s'effacent pas

bonjour jeanpierre
aracadabra!!!!...............
"ça marche pas" comme disait Garcimore lol!!!!!
c'est bien la bonne syntaxe? non

 

[pascal21]

Re : les commentaires et les couleurs de fond ne s'effacent pas

re
en fait je viens de comprendre
ça n'efface que dans la ligne 2, alors qu'il faut que ça le fasse sur toute la colonne

 

[Pierrot93]

Re : les commentaires et les couleurs de fond ne s'effacent pas

Bonjour Pascal, Jean-Pierre

le code ci-dessous, placé dans le module "feuil2" à l'air de fonctionner chez, inutile de préciser le nom de la feuille, le code s'appliquera sur la feuille en question :

Option Explicit
Private Sub Worksheet_Activate()
Dim i As Integer
For i = 5 To Range("IV2").End(xlToLeft).Column 'boucle sur toutes dates
    If Cells(2, i) < Date Then
        Cells(2, i).EntireColumn.Hidden = True 'masque les colonnes
        Cells(2, i).ClearComments 'enlève les commentaires
        Cells(2, i).Interior.ColorIndex = xlNone 'enlève la couleur
    End If
Next i
End Sub

bon après midi
@+

 

[pascal21]

Re : les commentaires et les couleurs de fond ne s'effacent pas

With Sheets("feuil2")

  For a = 5 To 126
        For i = Sheets("feuil2").[e2].Column To Sheets("feuil2").[e2].End(xlToRight).Column 'boucle sur toutes dates
            If Cells(2, i) < Date Then
            
            Cells(a, i).ClearComments 'enlève les commentaires
               Cells(a, i).Interior.ColorIndex = xlNone   'enlève la couleur
                Cells(2, i).EntireColumn.Hidden = True 'masque les colonnes
                    
                        'End If
                            
                            
                            End If
                       Next i
                       Next a
                       End With

j'avais bidouillé ça qui fonctionne mais prends env. 10 sec
j'essaye ton code tout de suite

 

[Pierrot93]

Re : les commentaires et les couleurs de fond ne s'effacent pas

Re

si tu veux intervenir sur toutes les cellules de la colonne :

Private Sub Worksheet_Activate()
Dim i As Integer
For i = 5 To Range("IV2").End(xlToLeft).Column 'boucle sur toutes dates
    If Cells(2, i) < Date Then
        With Columns(i)
            .Hidden = True 'masque les colonnes
            .ClearComments 'enlève les commentaires
            .Interior.ColorIndex = xlNone 'enlève la couleur
        End With
    End If
Next i
End Sub

@+