macro effacer

noviceAG

XLDnaute Impliqué

• 26 Octobre 2008

• #2

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

 

Vote positif 0 Vote négatif

Mytå

XLDnaute Occasionnel

• 26 Octobre 2008

• #3

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

Cliquez pour agrandir...

Mytå

 

Dernière édition: 26 Octobre 2008

Vote positif 0 Vote négatif

chinel

XLDnaute Impliqué

• 26 Octobre 2008

• #4

Re : macro effacer

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

 

Vote positif 0 Vote négatif

Mytå

XLDnaute Occasionnel

• 26 Octobre 2008

• #5

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å

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Octobre 2008

• #6

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 :

Code:

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

 

Dernière édition: 27 Octobre 2008

Vote positif 0 Vote négatif