macro effacer

[chinel]

Salut tout le monde !

j'ai un planning et je voudrais effacer les colonnes à droite des dates quand je change l'année (la date est à mettre en cellule B4) et aussi les commentaires dans certaines cellules et remettre la couleur de fond de cellule de base (jaune)

merci de votre aide !

 

[noviceAG]

Re : macro effacer

Bonsoir chinel, le Forum,

Ce code dans un module :

Sub RaZ()
Application.ScreenUpdating = False
Selection.SpecialCells(xlCellTypeComments).Select
Selection.ClearComments
Range( _
"C4:C34,F4:F34,I4:I34,L4:L34,O4:O34,R4:R34,C38:C68,F38:F68,I38:I68,L38:L68,O38:O68,R38:R68" _
).Select
Selection.Interior.ColorIndex = 36
Selection.ClearContents
Range("C4").Select
Application.ScreenUpdating = True
End Sub

Crée un bouton sur ta feuille, puis clic droit : affecter une macro, sélectionne la macro RaZ
Au plaisir

 

[Mytå]

Re : macro effacer

Salut le forum

Dans le module de ta feuille, pas besoin de bouton

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cellule As Range
If Not Application.Intersect(Target, Range("B4")) Is Nothing Then
For Each Cellule In Range("B4:Q70")
If IsDate(Cellule) And Cellule <> "$B$4" Then
With Cellule.Offset(0, 1)
.Value = ""
.ClearComments
.Interior.ColorIndex = 36
End With
End If
Next Cellule
End If
End Sub

Mytå

 

[chinel]

Re : macro effacer

noviceAG un grand merci !
service rapide et génial !

 

[Mytå]

Re : macro effacer

Re le forum

Le code de NoviceAG, efface ton commentaire en B4.

Mon code le conserve et pas besoin de bouton pour le lancer.

Mytå

 

[job75]

Re : macro effacer

Bonsoir à tous,

Il me semble qu'il est préférable de lancer la macro par un bouton, mais effectivement on peut le faire par Worksheet_Change :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$4" Then Nettoyage
End Sub

Sub Nettoyage()
With Intersect(Range("4:34,38:68"), Range("C:C,F:F,I:I,L:L,O:O,R:R"))
.ClearContents
.Interior.ColorIndex = 36
.ClearComments
End With
End Sub

Bonne nuit