Création d'un message après suppression ?

  • Initiateur de la discussion Initiateur de la discussion FCBD
  • 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 !

F

FCBD

Guest
Bonjour à tous,🙂

Mon problème est de créer une formule pour que dans une cellule après avoir noté le nom et prénom d'un client et que plus tard je supprime le contenu de cette cellule, un message apparé "attention supprimer le client dans feuille de suivie"😕
 
Re : Création d'un message après suppression ?

Salut FCBD et Bienvenue sur ce Site, condors.s, le Forum

Pas sur d'avoir compris mais teste ce Code
a l'activation d'un bouton ou sur un événementiel...
sur ce dernier

Code:
Option Explicit
Dim EffAc As String, C As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A:A], Target) Is Nothing Then
    If ActiveCell = "" Or Target.Count > 1 Then Exit Sub
    EffAc = MsgBox("Etes-vous sûr(e) supprimer le nom " & ActiveCell & " ?", vbYesNo + vbInformation, "Delete Name")
        If EffAc = vbYes Then
            ActiveCell.EntireRow.Delete: Exit Sub [COLOR=Green]' Si Seulement la cellule enlève EntireRow.[/COLOR]
                Else
            Exit Sub
        End If
End If
End Sub
A Tester

Bonne Journée
 

Pièces jointes

Re : Création d'un message après suppression ?

Re le Fil

Merci Dull,
Je suis assez limité en VBA, donc j'applique souvent des formules pour contourner les obstacles que je ne maitrise pas....
Et personne ne t'en fera le reproche condors.s 🙂 les Solutions les meilleurs sont souvent les plus simples

Merci à toi d'avoir participé

Bonne Journée
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
2
Affichages
192
  • Question Question
XL 2021 listbox
Réponses
18
Affichages
736
  • Question Question
Microsoft 365 Bug sur une macro
Réponses
6
Affichages
463
Retour