[Résolu] Modification de macro

[riton00]

Bonsoir à tous les excelliens et excelliennes

Je solliciterais un petit coup de main pour me modifier une macro qui me permet d'imposer un X en majuscule par double clic, et qui me permet aussi de le supprimer par double clic.

Voir commentaire sur Feuil1 puis sur Feuil2

Merci de votre aide

Cordialement

Henri

 

[Lone-wolf]

Re : Modification de macro

Bonsoir riton

Dans la feuille2 supprime la macro Worksheet_Change()

et met celles-ci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("a1:d50")) Is Nothing Then
If ActiveCell.Value <> "X" Then
Target.Value = Target.Value
Else
ActiveCell.ClearContents
End If
End If
Cancel = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("a1:d50")) Is Nothing Then ActiveCell.Value = ActiveCell.Value
End Sub

 

[riton00]

Re : Modification de macro

Bonsoir, Lone-wolf

En fait ta macro fonctionne mais le hic, c'est que l'imposition du X ne se fait plus par double clic comme avant mais par simple clic et cela ne me convient pas puisqu'en sélectionnant une cellule je met automatiquement un X, par contre le positif c'est que maintenant on supprime bien le X par double clic.

Henri

 

[pierrejean]

Re : Modification de macro

Bonjour riton
Salut Lone-wolf

atester:

Target.Value = IIf(Target.Value = "X", "", "X") au lieu de Target.Value = IIf(Target.Value = "x", "", "x")

 

[riton00]

Re : Modification de macro

Bonjour pierrejean, Lone-wolf

Target.Value = IIf(Target.Value = "X", "", "X")

Merci pierrejean pour le bout de code, c'est exactement ce qui me fallait pour faire fonctionner comme je le voulais la macro de Lone-wolf.

Merci à vous deux de votre amabilité et de votre dévouement

Henri