[VBA-E] MsgBox effacer

Version imprimable

06/03/2007, 13h41
nkhalidy

Help - MsgBox

j'aurais souhaité que vous m'aidiez sur le point VBA suivant :

Soit la colonne AA sous excel
Les lignes allant de 500 à 600 sous excel
J'aimerai que si une cellule (500:600, AA) soit effacée, automatiquement avant de prendre en compte le clearcontents, une message box apparaisse pour me dire "êtes vous sur de supprimer ce contenu"

Je ne sais plus comment on fait... si vous pouviez m'aider, car cela fait 2 heures que je cherche et que je ne suis pas une professionnelle de VBA, mais une simple utilisatrice.

Merci
06/03/2007, 13h51
ouskel'n'or

Code:

If msgbox("Effacer ?",vbyesno) = vbyes then 'tu effaces
06/03/2007, 13h56
cwain
Bonjour,
Tu peux utiliser l'évènement de feuille

Code:

Worksheeet_Change(ByVal Target As Range)

en précisant la zone à surveiller
Code:

1 2 If Target.Column = 27 and Target.Row >= 500 And Target.Row < 600 Then Response = MsgBox("Etes-vous sûr ?", VbYesNo)
et ensuite selon la réponse à ta msgbox, tu supprimes ou pas
Enfin je pense qu'avec qqch comme ça ça doit marcher

Cwain

Ouskel> Mince, flûte, trop tard !

Merci aux 2 génies qui m'ont répondu ... cela était déjà super utile mais cela n'est pas fini... car ma demande était visiblement n'est pas très claire...(désolée)

j'aurais souhaité que vous m'aidiez sur le point VBA suivant :

Soit la colonne AA sous excel (27) et les lignes allant de 500 à 600 sous excel.
J'aimerai que si une cellule (500:600, AA) soit effacée, qu' avant de prendre en compte l'effacé (DONC UNIQUEMENT si il y a TENTATIVE de clearContents d'une de ces cellules), une message box apparaisse pour me dire "êtes vous sur de supprimer ce contenu".

Voici ce que j'ai fait sur la base de ce que vous m'avez expliqué :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 27 And Target.Row >= 500 And Target.Row < 638 Then Style = vbYesNo + vbDefaultButton1 Msg = "Etes-vous sûr de suprimer cette filiale" Title = "Attention, vous être sur le point de suprimer une filiale" Réponse = MsgBox(Msg, Style, Title) If Réponse = vbNo Then Exit Sub Else Selection.ClearContents End If End If End Sub
Merci

06/03/2007, 15h24
cwain

Heu, on veut bien t'aider, mais tu nous aides pas trop à t'aider en remettant ta question de la même manière :mouarf: . Tu ne voudrais pas la reformuler, ou mieux encore, nous mettre le code que tu as actuellement avec des commentaires sur ce que tu ne comprends pas ?

Voici plus de détails - Msg VBA

Désolée, je suis une nouvelle membre et je ne suis pas une professionnelle mais une amatrice! Voici des commentaires :
Code:

1 2 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 27 And Target.Row >= 500 And Target.Row < 638 Then
En fait, ce que je veux c'est une condition complémentaire qui est Si et seulement Si une des cellules Cells (500:600, 27) fait l'objet d'un ClearContents.

La suite de mon code est (qui je pense fonctionne):
Code:

1 2 3 4 5 6 7 8 9 10 11 Style = vbYesNo + vbDefaultButton1 Msg = "Etes-vous sûr de suprimer cette filiale" Title = "Attention, vous être sur le point de suprimer une filiale" Réponse = MsgBox(Msg, Style, Title) If Réponse = vbNo Then Exit Sub Else Selection.ClearContents End If End If End Sub
Merci bcps

Je pense qu'il vaut mieux utiliser les 2 événements Worksheet_Change et Worksheet_SelectionChange sinon, le seul fait de cliquer sur une cellule du Range, génère la demande d'effacement.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
 
Dim strCellContent As String
Dim booChangeByMacro As Boolean
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  strCellContent = Target.Value
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
  If booChangeByMacro Then
    booChangeByMacro = False
    Exit Sub
  Else
    If Target.Column = 27 And Target.Row >= 500 And Target.Row < 638 Then
      Style = vbYesNo + vbDefaultButton1
      Msg = "Etes-vous sûr de suprimer cette filiale"
      Title = "Attention, vous être sur le point de suprimer une filiale"
      Réponse = MsgBox(Msg, Style, Title)
      If Réponse = vbNo Then
        Target.Value = strCellContent
        booChangeByMacro = True
      End If
    End If
  End If
End Sub

07/03/2007, 00h13
nkhalidy
UN TOUT GRAND MERCI !!! Cela fonctionne à un poil pres qui est :

Lorsque je clique sur No, je ne sors pas du MsgBox...
Code:

1 2 3 4 5 6 If Réponse = vbNo Then Target.Value = strCellContent Else Selection.ClearContents End If
J'ai essayé comme suit :
Code:

1 2 3 4 5 6 7 If Réponse = vbNo Then Exit Sub Else Exit Sub End If End If
Cela fonctionne. L'idéal aurait été de pouvoir annuler l'opération "effacé" si VB = No.

Savez-vous comment on peut faire ?

Merci bcps!!
07/03/2007, 01h02
ouskel'n'or

Tu veux une confirmation de l'effacement de la part de l'utilisateur ?
Si c'est ça alors tu répètes le code quon t'a passé pour le msgbox ;)
Si c'est autre chose, tu dis
A+
07/03/2007, 07h32
AlainTech

J'ai modifié mon code en y ajoutant un booléen.
07/03/2007, 10h45
nkhalidy

ouskel'n'or : c'est autre chose.
Je m'explique : l'utilisateur va supprimer le contenu d'une des cellules de la plage définie Cells (500:638, 27).... Cette opération sera prise en compte par Excel alors un message Box apparaît "être vous sur de supprimer cette filiale".
Si je clique sur "Yes", alors exit sub, si je clique sur "No", alors je souhaite annuler l'opération d'effacement de la cellule (en gros revenir en arrière).

Alain Tech : le booléen ne marche pas... j'avais essayé :oops: .

Merci à tous pour votre aide sur ce sujet....:P :P
07/03/2007, 12h47
ouskel'n'or
Citation:

If Réponse = vbNo Then
Exit Sub
Else
Exit Sub
End If
End If

Si tu fais ça, ton test ne sert à rien, tu peux mettre Exit sub à la place, c'est pareil !
Teste ça ;)
Code:

1 2 3 4 5 If Réponse = vbNo Then Exit Sub Elseif Réponse = vbyes then 'Tu effaces End If
07/03/2007, 17h32
nkhalidy

Merci Ouskel'n'or

J'ai essayé mais cela ne permet pas de faire un "undo" (annuler l'effacé) qui aura déjà été fait par l'utilisateur.

Si VbNo, alors "undo"... et cela je ne sais pas faire... et vous ?

J'ai essayé ce que vous m'avez proposé aujourd'hui, et cela ne fonctionne pas .... :( :( :oops:

je crois que ça, ça va te plaire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Public adressecible As Variant
Public valeurcible As Variant
Public a As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If a = True Then
a = False
Exit Sub
End If
    If Target.Column = 27 And Target.Row >= 500 And Target.Row < 638 Then
    Style = vbYesNo + vbDefaultButton1
      Msg = "Etes-vous sûr de suprimer cette filiale"
      Title = "Attention, vous être sur le point de suprimer une filiale"
      Réponse = MsgBox(Msg, Style, Title)
 If Réponse = vbYes Then
 Exit Sub
 Else
 a = True
  Range(adressecible).Value = valeurcible
  End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    adressecible = Target.AddressLocal(True, True)
    valeurcible = Target.Value
End Sub

Voila, Voila
Bonne soirée

07/03/2007, 19h26
ouskel'n'or
La syntaxe est
Code:

1 2 3 4 5 If Réponse = vbNo Then Application.Undo Exit Sub else '...
Mais aucune autre action ne doit avoir été faite entre l'action et son annulation.
A+
07/03/2007, 20h41
nkhalidy
J'ai un petit souci :bug: :bug: (cela ne retire pas les éloges :king: !!) :

Lorsque je tape ton code
Code:

1 2 3 If Réponse = vbNo Then Application.Undo Exit sub
Il ne sort pas du Sub... en d'autres termes, lorsque je clique VbNo du MsgBox, il fait le "undo".... mais le MsgBox continue à apparaître...(comme si j'étais bloquée).... je suis obligée de cliquez sur VByes pour sortir du MsgBox....

Qu'est ce que tu en penses docteur?:bug:

Thanks!!
08/03/2007, 00h58
zazaraignée

et si tu mettais deux fois le Application.Undo ? Juste une suggestion...
08/03/2007, 07h00
AlainTech

C'est le fait de modifier le contenu de la cellule dans l'événement Change qui rappelle le même événement.
D'où l'idée du booléen.
Je n'ai pas le temps de tester maintenant mais, peut-être, en déclarant le booléen Static...?

bonjour nkhalidy
es ce que tu a essayé ce que je t'ai proposé plus haut. tu n'en dis pas un mot, pourtant, cela fais exactement ce que tu as demandé, y compris le undo. je te le redonne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Public adressecible As Variant
Public valeurcible As Variant
Public a As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If a = True Then
a = False
Exit Sub
End If
    If Target.Column = 27 And Target.Row >= 500 And Target.Row < 638 Then
    Style = vbYesNo + vbDefaultButton1
      Msg = "Etes-vous sûr de suprimer cette filiale"
      Title = "Attention, vous être sur le point de suprimer une filiale"
      Réponse = MsgBox(Msg, Style, Title)
 If Réponse = vbYes Then
 Exit Sub
 Else
 a = True
  Range(adressecible).Value = valeurcible
  End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    adressecible = Target.AddressLocal(True, True)
    valeurcible = Target.Value
End Sub

08/03/2007, 11h43
nkhalidy

alsimbad : j'ai essayé ton code TROP FORT!!!! je n'ai pas tout compris.... mais cela fonctionne!!!:yaisse2: :king: :king: :king:

Thanks!
08/03/2007, 12h01
nkhalidy

alsimbad,

Une dernière faveur (ton code est complique par rapport à mon niveau, mais j'apprends!! Merci bcp) : comment lui demander de n'exéctuer le code que sur les cellules "non vides" de la plage Range ("AA500:AA638") ?

Cette range est une colonne dans laquelle un utilisateur peut saisir, supprimer des noms de filiales...

Thanks!
:P ;)
ps : merci pour tous pour votre aide sur cette demande (qui n'était pas toujours clairement formulée....)

Voila miss

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Worksheet_Change(ByVal Target As Range)
If a = True Then
a = False
Exit Sub
End If
    If Target.Column = 27 And Target.Row >= 500 And Target.Row < 638 Then
    If Not valeurcible = "" And Not Target.Value = valeurcible Then
    Style = vbYesNo + vbDefaultButton1
      Msg = "Etes-vous sûr de suprimer cette filiale"
      Title = "Attention, vous être sur le point de suprimer une filiale"
      Réponse = MsgBox(Msg, Style, Title)
 If Réponse = vbYes Then
 Exit Sub
 Else
 a = True
  Range(adressecible).Value = valeurcible
  End If
  End If
End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    adressecible = Target.AddressLocal(True, True)
    valeurcible = Target.Value
End Sub

j'ai aussi rajouté une condition pour qu'il ne réagisse pas si la valeur entrée est la même que celle qui pré-existe, pour ceux qui auraient envie de retaper les noms

Fuseau horaire GMT +2. Il est actuellement 03h54.