Undo désactivé

Citation:

---

Envoyé par unparia

Bonjour
Ta dernière action (modification du style et non de la valeur) n'est pas réversible -->> pas de "marche arrière" (Undo) , donc.
Et puisque ton évènement Change n'est pas limité à une plage de données, ma foi, tu t'en vas ainsi de cellule en cellule, sans jamais avoir de Undo disponible.
Subordonne donc ce traitement à une plage de cellule (conditions sur l'objet Target) et tu retrouveras ton bouton "undo" lors de la modification de la valeur de toute autre cellule non comprise dans Target.

---

Bonjour,
j'ai le même problème.
Je suis complètement néophyte en VBA et suis arrivé à récupérer et adapter un exemple de programmation pour mon besoin et ça fonctionne, mais j'ai le même soucis de "Undo" qui ne fonctionne plus et j'ai du mal à réaliser une correction avec vos explications.

Par avance merci de votre retour.

Pièce jointe 515499

Bonjour Marcello

Ouvre donc ton aide VBA à la rubrique Application.Undo, méthode, lis-en attentivement son paragraphe "Remarque" et tu en connaîtras la raison. ;)

Bonjour Unparia,
merci pour votre réactivité et votre retour.
J'ai pris le temps de trouver et lire ce que vous m'avez indiquer, mais malheureusement ça ne m'éclaire guère plus (je suis vraiment néophyte).

Vous proposez de je cite: "subordonne donc ce traitement à une plage de cellule (conditions sur l'objet Target) et tu retrouveras ton bouton "undo" lors de la modification de la valeur de toute autre cellule non comprise dans Target.": la solution est sûrement là, mais comment coder ça? 8O :ptdr:

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 27

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   If Not Intersect(Target, Range("L3:L500")) Is Nothing And Target.Count = 1 Then Me.ListBox1.MultiSelect = fmMultiSelectMulti Me.ListBox1.List = Sheets("BD").Range("A2:A7").Value a = Split(Target, " ") If UBound(a) >= 0 Then For i = 0 To Me.ListBox1.ListCount - 1 If Not IsError(Application.Match(Me.ListBox1.List(i), a, 0)) Then Me.ListBox1.Selected(i) = True Next i End If Me.ListBox1.Height = 100 Me.ListBox1.Width = 100 Me.ListBox1.Top = Target.Top Me.ListBox1.Left = Target.Left + Target.Width Me.ListBox1.Visible = True Else Me.ListBox1.Visible = False End If End Sub   Private Sub ListBox1_Change() For i = 0 To Me.ListBox1.ListCount - 1 If Me.ListBox1.Selected(i) = True Then temp = temp & Me.ListBox1.List(i) & " " Next i ActiveCell = Trim(temp) End Sub

---

Citation:

---

malheureusement ça ne m'éclaire guère plus (je suis vraiment néophyte).

---

Ah .
néophyte en français également, pour ne pas comprendre le sens de ceci :

Citation:

---

Remarques


Cette méthode n'annule que la dernière opération commandée par l'utilisateur avant l'exécution de la macro et doit figurer en première ligne dans la macro. Elle ne peut être utilisée pour annuler des commandes Visual Basic.

---

8O

OK.
merci quand même pour votre étal de matière grise qui ne sert malheureusement à personne!

Citation:

---

qui ne sert malheureusement à personne

---

Dans ce cas :ne remercie alors pas, si cela ne t'a pas servi. ;)

Bonsoir,

Citation:

---

Envoyé par unparia

Dans ce cas :ne remercie alors pas, si cela ne t'a pas servi. ;)

---

Chacun est libre de remercier qui il veut.
Chacun est libre d'aider comme il le souhaite.
Par contre il serait préférable de rester courtois et respecter ceux qui ont moins d'expérience, encore une fois.

Pour le code, placez le entre balise [code] (le bouton # dansl 'éditeur), c'est plus lisible qu'une image.

Bonjour à tous,

Citation:

---

la solution est sûrement là, mais comment coder ça?

---

C'est déjà ce que tu fais avec :

Code:

---

If Not Intersect(Target, Range("L3:L500")) Is Nothing And Target.Count = 1 Then

---

Sur des modifs en dehors de L3:L500 tu peux faire Ctrl+z.
Dès que tu cliques dans L3:L500 là tu perds toute la pile des annulations.

Si tu veux récupérer Ctrl+z partout n'utilises pas SelectionChange
Met ta macro de maj sur un bouton que tu appelles au coup par coup.
Ou bien sur le Worksheet_Deactivate. Ta maj se fera en quittant la feuille.
Au lancement de la macro tu perdras toujours les annulations, mais au moins tu es maître de l'action.
eric