Bonjour les magiciens d'XL,
Avec 1 macro, j'aimerais avec le double click afficher un "X" dans
les cellules d'1 range d=E9fini sur 1 feuille de calcul.
J'ai d=E9j=E0 la macro pour afficher le "X" et le deleter par le doucle
click,
mais je ne sais pas comment integrer la restriction du range !
Quelqu'un pour m'aider ???
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect([A1:B3], Target) Is Nothing And Target.Count = 1 Then If Target.Value = "" Then Target.Value = "X" Else Target.Value = Empty End If End If End Sub
Cordialement JB
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Not Intersect([A1:B3], Target) Is Nothing And Target.Count = 1
Then
If Target.Value = "" Then
Target.Value = "X"
Else
Target.Value = Empty
End If
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect([A1:B3], Target) Is Nothing And Target.Count = 1 Then If Target.Value = "" Then Target.Value = "X" Else Target.Value = Empty End If End If End Sub
