Bonjour, je sollicite votre aide sur un sujet qui me bloque.
Je voudrais mettre deux codes dans la même feuille, mais si je les mets l'une après l'autre ca me créé un conflit
Chaque code fonctionne indépendamment.
Premier code (double clic - affichant un "x" dans la cellule sélectionnée)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
temp = Array("X", "")
If Not Application.Intersect(Target, Range("B13:d1000,AF13:BM1000")) Is Nothing Then
With Target
p = Application.Match(Target, temp, 0)
If Not IsError(p) Then
If p = UBound(temp) + 1 Then p = 0
Else
p = 0
End If
Target = temp(p)
Cancel = True
End With
End If
End Sub
Second code pour copier dans H9 le contenu de la cellule sélectionnée de H15:H2000
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Application.Intersect(Target, Range("H15:H2000")) Is Nothing Then Exit Sub
Sheets("Planning").Range("H9").Value = Target.Value
Cancel = True
End Sub
J'espère que vous pourrez m'aider
Merci d'avance
Je voudrais mettre deux codes dans la même feuille, mais si je les mets l'une après l'autre ca me créé un conflit
Chaque code fonctionne indépendamment.
Premier code (double clic - affichant un "x" dans la cellule sélectionnée)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
temp = Array("X", "")
If Not Application.Intersect(Target, Range("B13:d1000,AF13:BM1000")) Is Nothing Then
With Target
p = Application.Match(Target, temp, 0)
If Not IsError(p) Then
If p = UBound(temp) + 1 Then p = 0
Else
p = 0
End If
Target = temp(p)
Cancel = True
End With
End If
End Sub
Second code pour copier dans H9 le contenu de la cellule sélectionnée de H15:H2000
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Application.Intersect(Target, Range("H15:H2000")) Is Nothing Then Exit Sub
Sheets("Planning").Range("H9").Value = Target.Value
Cancel = True
End Sub
J'espère que vous pourrez m'aider
Merci d'avance