clic droit pour ouvrir usf dans la colonne D

[pascal21]

bonsoir
je cherche la syntaxe VBA qui permet d'ouvrir un USF mais uniquement sur la colonne D

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Intersect(Target, Columns("f:j")) Is Nothing Then Exit Sub
If IsEmpty(ActiveCell.Value) Then

ActiveCell.Value = "1"
ElseIf ActiveCell.Value = "1" Then

ActiveCell.Value = ""
End If
Cancel = True

j'utilise ça dans un autre classeur pour ajouter ou supprimer une valeur
mais je ne sais pas comment faire pour adapter pour commander l'ouverture d'un usf
merci

 

[Gorfael]

Re : clic droit pour ouvrir usf dans la colonne D

Salut pascal21 et le forum
Voilà ce qui arrive quand on ne comprend pas un code qu'on utilise !

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Columns(4)) Is Nothing Then Exit Sub
Cancel = True
Mon_USF.show
End if

Tu te prépare de douces nuits blanches : supprimer les erreurs ne les a jamais corrigées. En suivant la loi de Murphy, quand tu t'en rendras compte, ce sera au pire moment possible.
A+

 

[pascal21]

Re : clic droit pour ouvrir usf dans la colonne D

bonsoir et merci pour tes encouragements
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Columns(4)) Is Nothing Then Exit Sub
Cancel = True
Mon_USF.show
End if
end sub


comment tu disais déjà à propos des erreurs ?

 

[Gorfael]

Re : clic droit pour ouvrir usf dans la colonne D

Salut pascal21 et le forum

comment tu disais déjà à propos des erreurs ?

Pas sûr de tout comprendre : quand on est débutant, avant de se moquer de quelqu'un, on teste !
Je te conseillerais d'aller voir l'aide "If...Then...Else, instruction" (première syntaxe) et de comparer avec la ligne

If Intersect(Target, Columns(4)) Is Nothing Then Exit Sub

et d'essayer de comprendre mon code avant de le critiquer
A+