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+