Bonjour à tous,
Lorsque je doubleclick la première fois dans une cellule pour y ajouter une croix, mon userform qui m'est utile par la suite disparaît!
Je ne sais pas si l'erreur vient de mon code :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C1120")) Is Nothing Then
If ActiveCell.Value = "" Then ActiveCell.FormulaR1C1 = "x": ActiveCell.Offset(1, 0).Range("A1").Select: End
If ActiveCell.Value = "x" Then ActiveCell.FormulaR1C1 = ""
Rem ActiveCell.FormulaR1C1 = "x"
ActiveCell.Offset(1, 0).Range("A1").Select
End If
End Sub
Ou de la configuration de mon userform...
Avant d'ajouter la fonction Doubleclick, mon userform fonctionnait très bien.
Pouvez-vous m'aider à résoudre ce problème ?
Bonne après-midi à tous.
Lorsque je doubleclick la première fois dans une cellule pour y ajouter une croix, mon userform qui m'est utile par la suite disparaît!
Je ne sais pas si l'erreur vient de mon code :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C1120")) Is Nothing Then
If ActiveCell.Value = "" Then ActiveCell.FormulaR1C1 = "x": ActiveCell.Offset(1, 0).Range("A1").Select: End
If ActiveCell.Value = "x" Then ActiveCell.FormulaR1C1 = ""
Rem ActiveCell.FormulaR1C1 = "x"
ActiveCell.Offset(1, 0).Range("A1").Select
End If
End Sub
Ou de la configuration de mon userform...
Avant d'ajouter la fonction Doubleclick, mon userform fonctionnait très bien.
Pouvez-vous m'aider à résoudre ce problème ?
Bonne après-midi à tous.