Discussion :

[Polygos]

Bonjour,
je suis un peu perdu dans la myriade de thèmes pour les forums, j'espère étre dans le bon.
Mon souci que je n'arrive pas à résoudre, est le suivant:
dans un fichier excel mis à jour quotidiennement, j'ai installé le code suivant dans la feuille Excel concernée pour mettre en rouge mes modifs d'une fois sur l'autre.

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
'With Selection.Offset(-1, 0).Font
With Target.Font
.ColorIndex = 3
.Bold = True
End With
End Sub

Depuis, je n'ai plus la fonctionnalité de la touche "annulation" ou marche arrière si vous préférez.
Ce doit être tout bête..
Comment faire ?
Merci de vos lumières

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

[patricktoulon]

Bonjour
ca ne serait pas plutôt une bascule que tu cherche a faire
c'est a dire

1. sélectionner ---> elle devient rouge
2. sélectionner une autre --->elle devient rouge et la précédente redevient blanche

edit :autant pour moi

la modif se fait l'ors du changement de la valeur alors il va te falloir récréer l'évènement annuler

en mémorisant les valeur initial les adress et en utilisant application on key exclusivement sur le sheets concerné
mais c'est chaux quand même

1 question quand tu dis annuler ca veut dire remettre l'ancienne valeur ou pas ?????

[patricktoulon]

re
trouvant la chose intéressant je me suis essayé a recréer la fonction annule
alors voila comment je procède

dans l'évènement change du sheets tu mettra

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
With Target
dico(Replace(.Address, "$", "")) = 1
.Font.ColorIndex = 3
.Font.Bold = True
End With
End If
End Sub

dans son activate tu mettra ceci:

Code :

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

1
2
3
4
Private Sub Worksheet_Activate()
Application.OnKey "^z", "annule"
memo
End Sub

et dans son déactivate tu mettra cela

Code :

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

1
2
3
Private Sub Worksheet_Deactivate()
Application.OnKey "^z"
End Sub

maintenant dans un module standard tu mettra ca

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
Public tableau
Public dico
Sub memo()
tableau = Sheets(1).Range("A1:A20").Value
Set dico = CreateObject("Scripting.Dictionary")
End Sub
Sub annule()
For Each elem In dico
ligne = Range(elem).Row
col = Range(elem).Column
e = elem
Next
If ligne <> 0 Then
Cells(ligne, col) = tableau(ligne, col)
Cells(ligne, col).Font.Color = 0
Cells(ligne, col).Font.Bold = False
dico.Remove (e)
End If
End Sub

résultat tu peut modifier tant que tu veux de A1 a A20
des que tu tape control et "z" tu annule la dernière action et ainsi de suite jusqu'à revenir a l'initial

ca te remet en noir et non bold le font et remet aussi l'ancienne valeur
a toi d'adapter