Microsoft 365 Ajouter une condition dans une VBA

Nathan027

XLDnaute Junior
Bonjour à toutes et à tous

Pensez vous qu'il est possible de bloquer ce code quand il est appliqué dans une cellule ou il y a déjà une formule ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
temp = Array("X", "")
If Not Application.Intersect(Target, Range("bk11:fl2000")) 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


Merci de votre aide :)
 
Solution
Bonjour à toutes et à tous

Pensez vous qu'il est possible de bloquer ce code quand il est appliqué dans une cellule ou il y a déjà une formule ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
temp = Array("X", "")
If Not Application.Intersect(Target, Range("bk11:fl2000")) 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


Merci de votre aide :)
Bonjour,
Essaye comme ceci
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If...

Jacky67

XLDnaute Barbatruc
Bonjour à toutes et à tous

Pensez vous qu'il est possible de bloquer ce code quand il est appliqué dans une cellule ou il y a déjà une formule ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
temp = Array("X", "")
If Not Application.Intersect(Target, Range("bk11:fl2000")) 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


Merci de votre aide :)
Bonjour,
Essaye comme ceci
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If Application.Intersect(Target, Range("bk11:fl2000")) Is Nothing Then Exit Sub
    If Application.IsFormula(Target) Then Exit Sub
    Target.Value = IIf(UCase(Target) = "X", "", "X")
End Sub
 

Discussions similaires

Réponses
2
Affichages
181
Réponses
1
Affichages
112

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
313 271
Messages
2 096 724
Membres
106 720
dernier inscrit
Alain EDZOA