Macro VBA
Salut ,
Pourriez vous s'il vous plait de me dire pourquoi il me marque message d'erreur :
Alors que sa marche:
Sub Worksheet_Change(ByVal Target As Range)
Sheets("suivi_temps_GIRAUD").Select
If Target.Address = "$A$8" Then
Range("A13:AI37").ClearContents
End If
If Intersect(Target, Range("A13:A37")) Is Nothing Then: Exit Sub
Select Case Target.Value
Case "Absence"
MsgBox ("Veuillez remplir la fiche d'absence s'il-vous-plaît")
Selection.ClearContents
End Select
End Sub
Merci d'avance!!!
Barcegov a écrit :Salut ,
Pourriez vous s'il vous plait de me dire pourquoi il me marque message d'erreur :
Alors que sa marche:
Sub Worksheet_Change(ByVal Target As Range)
Sheets("suivi_temps_GIRAUD").Select
If Target.Address = "$A$8" Then
Range("A13:AI37").ClearContents
End If
If Intersect(Target, Range("A13:A37")) Is Nothing Then: Exit Sub
Select Case Target.Value
Case "Absence"
MsgBox ("Veuillez remplir la fiche d'absence s'il-vous-plaît")
Selection.ClearContents
End Select
End Sub
Merci d'avance!!!
Ce que je veux faire c'est quand on change le mois dans la celulle A8 (liste deroulante) et suprimer les lignes/colonnes
Et ensuite quand on selection une case le mot (absence) alors message "veuillez remplir la feuille d'absence"
Bonjour,
Tu peux tester le code suivant :
Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$8" Then Exit Sub
Range("A13:AI37").ClearContents
If Target.Value = "Absence" Then
MsgBox ("Veuillez remplir la fiche d'absence s'il-vous-plaît")
End If
End Sub