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 : 244
Appréciations reçues : 6
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
Membre impliqué
Membre impliqué
Messages : 2'373
Appréciations reçues : 241
Inscrit le : 26 janvier 2017
Version d'Excel : 2010

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.
Le problème n'est pas de ne pas savoir, le problème est de ne pas chercher...
Ton problème est résolu ? N'oublie pas de l'indiquer :
Avatar du membre
vaffancolor
Membre fidèle
Membre fidèle
Messages : 244
Appréciations reçues : 6
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
Membre impliqué
Membre impliqué
Messages : 2'373
Appréciations reçues : 241
Inscrit le : 26 janvier 2017
Version d'Excel : 2010

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 = " "
Le problème n'est pas de ne pas savoir, le problème est de ne pas chercher...
Ton problème est résolu ? N'oublie pas de l'indiquer :
Avatar du membre
vaffancolor
Membre fidèle
Membre fidèle
Messages : 244
Appréciations reçues : 6
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
Membre impliqué
Membre impliqué
Messages : 2'373
Appréciations reçues : 241
Inscrit le : 26 janvier 2017
Version d'Excel : 2010

Message par Pedro22 » 28 septembre 2018, 09:50

;;)
Le problème n'est pas de ne pas savoir, le problème est de ne pas chercher...
Ton problème est résolu ? N'oublie pas de l'indiquer :
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • [VBA] Caisse enregistreuse basique
    par Micka67 » 8 février 2016, 15:55 » dans Excel - VBA
    15 Réponses
    3135 Vues
    Dernier message par senso19
    1 mai 2019, 21:06
  • Fonction Si basique
    par charles13 » 15 novembre 2016, 01:28 » dans Excel - VBA
    2 Réponses
    87 Vues
    Dernier message par Steelson
    15 novembre 2016, 05:37
  • formule basique si/et
    par AudreyOb » 6 novembre 2016, 15:05 » dans Excel - VBA
    3 Réponses
    120 Vues
    Dernier message par MFerrand
    6 novembre 2016, 15:51
  • Enregistrement basique
    par Littlezeus31 » 27 août 2013, 09:40 » dans Excel - VBA
    3 Réponses
    261 Vues
    Dernier message par jmd
    27 août 2013, 20:00
  • Facturation basique
    par aleck04 » 7 mars 2015, 15:55 » dans Excel - VBA
    4 Réponses
    260 Vues
    Dernier message par aleck04
    7 mars 2015, 18:45
  • Tri basique A à Z
    par sylvain78 » 12 juin 2017, 10:11 » dans Excel - VBA
    2 Réponses
    63 Vues
    Dernier message par sylvain78
    12 juin 2017, 10:37