VBA basique Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
vaffancolor
Membre fidèle
Membre fidèle
Messages : 260
Appréciations reçues : 7
Inscrit le : 30 mars 2018
Version d'Excel : 2016 FR

Message par vaffancolor » 28 septembre 2018, 09:33

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!
Avatar du membre
Pedro22
Passionné d'Excel
Passionné d'Excel
Messages : 3'700
Appréciations reçues : 373
Inscrit le : 26 janvier 2017
Version d'Excel : 2010 FR
Version de Sheets : FR
Téléchargements : Mes applications

Message par Pedro22 » 28 septembre 2018, 09:38

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.
Modifié en dernier par Pedro22 le 28 septembre 2018, 09:41, modifié 1 fois.
Merci de prendre 30 sec pour lire la charte du forum.
Quelques conseils : ici
Avatar du membre
vaffancolor
Membre fidèle
Membre fidèle
Messages : 260
Appréciations reçues : 7
Inscrit le : 30 mars 2018
Version d'Excel : 2016 FR

Message par vaffancolor » 28 septembre 2018, 09:40

Beh pas chez moi...si je click sur "non" beh la macro continue
Avatar du membre
Pedro22
Passionné d'Excel
Passionné d'Excel
Messages : 3'700
Appréciations reçues : 373
Inscrit le : 26 janvier 2017
Version d'Excel : 2010 FR
Version de Sheets : FR
Téléchargements : Mes applications

Message par Pedro22 » 28 septembre 2018, 09:43

vaffancolor a écrit :
28 septembre 2018, 09:40
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 = " "
Merci de prendre 30 sec pour lire la charte du forum.
Quelques conseils : ici
Avatar du membre
vaffancolor
Membre fidèle
Membre fidèle
Messages : 260
Appréciations reçues : 7
Inscrit le : 30 mars 2018
Version d'Excel : 2016 FR

Message par vaffancolor » 28 septembre 2018, 09:45

Voila voila, mnt c'est bon ^^ MERCI
1 membre du forum aime ce message.
Avatar du membre
Pedro22
Passionné d'Excel
Passionné d'Excel
Messages : 3'700
Appréciations reçues : 373
Inscrit le : 26 janvier 2017
Version d'Excel : 2010 FR
Version de Sheets : FR
Téléchargements : Mes applications

Message par Pedro22 » 28 septembre 2018, 09:50

;;)
Merci de prendre 30 sec pour lire la charte du forum.
Quelques conseils : ici
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message