Discussion :

[nkhalidy]

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

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If msgbox("Effacer ?",vbyesno) = vbyes then 'tu effaces

[cwain]

Bonjour,
Tu peux utiliser l'évènement de feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheeet_Change(ByVal Target As Range)

en précisant la zone à surveiller

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[nkhalidy]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 . 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 ?

[nkhalidy]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[AlainTech]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nkhalidy]

UN TOUT GRAND MERCI !!! Cela fonctionne à un poil pres qui est :

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!!

[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+

[AlainTech]

J'ai modifié mon code en y ajoutant un booléen.

[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é .

Merci à tous pour votre aide sur ce sujet....

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
   If Réponse = vbNo Then
      Exit Sub
    Elseif Réponse = vbyes then
      'Tu effaces
    End If

[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 ....

[alsimbad]

je crois que ça, ça va te plaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

La syntaxe est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[nkhalidy]

J'ai un petit souci (cela ne retire pas les éloges !!) :

Lorsque je tape ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

Thanks!!

[zazaraignée]

et si tu mettais deux fois le Application.Undo ? Juste une suggestion...

[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...?

[alsimbad]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nkhalidy]

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

Thanks!