Discussion :

[jauffray.delteil]

bonjour à tous,

sur un planning de présence j'ai créé une macro pour remplir les jours de vacances et mettre les cellules en vert.

mais, si je veux "supprimer" ces vacances, autrement qu'en manuel, je voudrais faire un bout de macro.

j'ai déjà trouvé comment proposer de sélectionner une plage de cellules, mais je ne sais pas comment "utiliser" cette plage.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub supvacances()
 
    Dim P As Range
 
On Error Resume Next
    Set P = Application.InputBox("Sélectionnez une cellule ou une plage :", Type:=8)
    On Error GoTo 0
    If P Is Nothing Then
    MsgBox "Suppression annulée"
    GoTo fin
    End If
 
    Selection.Interior.ColorIndex = xlNone
    Selection.ClearContents
 
fin:
 
End Sub

celà fonctionne jusqu'au "End If"
après, les cellules ne sont ni "vidées", ni "transparantisées"

please HELP !

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim P As Range
 
On Error Resume Next
Set P = Application.InputBox("Sélectionnez une cellule ou une plage :", Type:=8)
On Error GoTo 0
If P Is Nothing Then
    MsgBox "Suppression annulée"
Else
    P.Interior.ColorIndex = xlNone
    P.ClearContents
    Set P = Nothing
End If

[jauffray.delteil]

Merci

c'est parfait