Discussion :

[Marcello-Th]

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.

[unparia]

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.

[Marcello-Th]

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?

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

[unparia]

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 :

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.

[Marcello-Th]

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

[unparia]

qui ne sert malheureusement à personne

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

[Arkham46]

Bonsoir,

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.

[eriiic]

Bonjour à tous,

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

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

Code :

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

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