Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

confirmation code par msgbox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion kinel
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
K

kinel

XLDnaute Occasionnel
Bonjour à tous

j'utilise le code ci dessous pour effacer automatiquement plusieurs cellules lorsqu'on efface celle de la troisième colonne
ça fonctionne très bien mais je voudrai intégrer un msgbox qui demande confirmation ou non de l'effacement

merci de votre aide

KInel

If Target.Column <> 3 Or Target.Count > 1 Or (Target.Row < 4 Or Target.Row > 34) Then Exit Sub
If IsEmpty(Target) Then
ActiveSheet.Unprotect
Application.EnableEvents = False
Target.Resize(, 4).ClearContents
Target.Resize(, 5).ClearContents
Target.Resize(, 6).ClearContents
Target.Resize(, 7).ClearContents
Target.Resize(, 8).ClearContents
Target.Resize(, 9).ClearContents
Target.Resize(, 10).ClearContents
Target.Resize(, 11).ClearContents
Application.EnableEvents = True
ActiveSheet.Protect


End If
 
Trier par date Trier par votes
Re : confirmation code par msgbox

Bonjour,

Etrange cette suite de .Resize(,n)!?

Sinon:

Code: 
If MsgBox("Supprimer......",vbYesNo+vbInterrogation)=vbYes then
   'Code de suppression
End If

A+
 
Vote positif 0 Vote négatif
Re : confirmation code par msgbox

Bonjour Kinel,
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 3 Or Target.Count > 1 Or (Target.Row < 4 Or Target.Row > 34) Then Exit Sub
If IsEmpty(Target) Then
If MsgBox("Etes-vous certain de vouloir supprimer", vbYesNo, vbNo) = vbNo Then
Exit Sub
End If
ActiveSheet.Unprotect
Application.EnableEvents = False
Target.Resize(, 4).ClearContents
Target.Resize(, 5).ClearContents
Target.Resize(, 6).ClearContents
Target.Resize(, 7).ClearContents
Target.Resize(, 8).ClearContents
Target.Resize(, 9).ClearContents
Target.Resize(, 10).ClearContents
Target.Resize(, 11).ClearContents
Application.EnableEvents = True
ActiveSheet.Protect
Else
Exit Sub
End If
End Sub

à+
Philippe

Edit: Bonjour Hacso
 
Vote positif 0 Vote négatif
Re : confirmation code par msgbox

Bonsoir kinel, salut Hasco,

Etrange cette suite de .Resize(,n)!?
Cliquez pour agrandir...

J'allais le dire!

Et puisque j'ai revu le code, je le joins:

Code: 
If Target.Column <> 3 Or Target.Count > 1 Or (Target.Row < 4 Or Target.Row > 34) Then Exit Sub
If IsEmpty(Target) Then
  If MsgBox("Confirmer la suppression?", vbYesNo + vbQuestion, "SUPPRIMER") = vbYes Then
    ActiveSheet.Unprotect
    Application.EnableEvents = False
    Target.Resize(, 11).ClearContents
    Application.EnableEvents = True
    ActiveSheet.Protect
    Else
    Exit Sub
  End If
End If
Cordialement.

Edit: oups, encore grillé. Salut Philippe.
 
Vote positif 0 Vote négatif
Re : confirmation code par msgbox

bonsoir à tous

merci pour toutes ces propositions
j'ignorais la compétition😱

j'ai encore un soucis; en cas de réponse "non" ces codes n'effacent pas la ligne, c'est bien mais la cellule 3 est effacée quand même
l'idéal est que la réponse "non" n'efface rien

merci de votre aide

Kinel
 
Vote positif 0 Vote négatif
Re : confirmation code par msgbox

RE:

Ci-joint un fichier exemple.

J'ai rajouté une variable "Cel" dans le module "Feuil1" qui récupère la valeur de la cellule lors d'un changement de sélection. Ca m'a conduit à créer la procédure "Worksheet_SelectionChange", dans ce même module.

Cordialement.
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
N
  • Question Question
XL 2010 fichier généré par IA ne fonctionne pas ( RESOLU )
2
Réponses
16
Affichages
903
n_turf
N
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
456
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
744
un internaute
U
  • Question Question
XL 2021 faire évoluer un code VBA
Réponses
3
Affichages
643
Dranreb
N
  • Question Question
LibreOffice Calc LibreOffice cal probleme pour effacer colonne
Réponses
1
Affichages
451
Staple1600
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
797
Phil69970
  • Résolu(e)
XL 2016 Gestion d'erreur dans code
Réponses
6
Affichages
751
piga25
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
755
un internaute
U
B
  • Résolu(e)
Microsoft 365 Besoin d'aide pour faire fonctionner 2 codes VBA ensemble
Réponses
2
Affichages
494
BenExcel
B
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
893
Lu76Fer
A
  • Résolu(e)
XL 2019 Confirmer la modification d'une cellule avant de la protéger en suite
Réponses
10
Affichages
1 K
arnoldbrice19
A
S
  • Résolu(e)
Microsoft 365 Inscrire automatiquement la date du jour et bloquer les cellules
Réponses
4
Affichages
783
sebastien176
S
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
U
  • Question Question
Autres {RÉSOLU] Problème macro
Réponses
2
Affichages
820
un internaute
U
M
  • Résolu(e)
XL 2016 Filtre auto VBA
Réponses
3
Affichages
1 K
MickaeL_D
M
M
  • Question Question
XL 2019 Optimisation de code VBA
2 3
Réponses
33
Affichages
3 K
mmaiga
M
D
  • Résolu(e)
XL 2013 Copie vers un autre classeur avec condition
Réponses
2
Affichages
1 K
Dafaka7
D
K
  • Question Question
XL 2013 Worksheet_change copier/coller sur un autre classeur
Réponses
6
Affichages
1 K
Dafaka7
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…