[Résolu] Modification de macro

Lone-wolf

XLDnaute Barbatruc

• 17 Avril 2016

• #2

Re : Modification de macro

Bonsoir riton

Dans la feuille2 supprime la macro Worksheet_Change()

et met celles-ci

Code:

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

 

Dernière édition: 17 Avril 2016

Vote positif 0 Vote négatif

riton00

XLDnaute Impliqué

• 17 Avril 2016

• #3

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 18 Avril 2016

• #4

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

 

Vote positif 0 Vote négatif

riton00

XLDnaute Impliqué

• 18 Avril 2016

• #5

Re : Modification de macro

Bonjour pierrejean, Lone-wolf

pierrejean à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif