VBA basique

Salut,

VBA très simple...ma macro m'indique si je veux supprimer les cellules avec un Msgbox.

Seulement si j'indique "non" beh la macro efface quand même les cellules...

Sub Clean()

    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect "??"

    If MsgBox("Supprimer les CAS ?", 36, "Confirmation") = vbYes Then
End If

    ActiveSheet.Range("N6:S10").Value = ""
    ActiveSheet.Range("M7:M10").Value = " "
    ActiveSheet.Protect "??", True, True, True
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

End Sub

Ou est l'erreur?

Merci!

Bonjour !

Chez moi ça marche ! Quel est le soucis ?

Par contre je ne vois pas l'intérêt de ta structure "If", que tu termines immédiatement par un "End If", sans exécuter la moindre instruction.

Beh pas chez moi...si je click sur "non" beh la macro continue

Beh pas chez moi...si je click sur "non" beh la macro continue

Ah ! Ben ton msgbox sert à rien écrit comme ça ! Si c'est oui, tu entres dans le "If", qui ne contient aucune instruction. Si c'est non, tu passes à l’instruction suivante. Donc déplaces ton End If après l'instruction ActiveSheet.Range("M7:M10").Value = " "

Voila voila, mnt c'est bon ^^ MERCI

Rechercher des sujets similaires à "vba basique"