G
Goldorak
Guest
Bonjour à tous,
Ce code VBA qui ne fonctionne plus soudainement :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("B5:S64")) Is Nothing Then
With Sheets("DEVIS-FACTURE")
.Range("S" & .Rows.Count).End(xlUp)(2, 1) = Target
Info.Show
Cancel = True
End With
End If
End Sub
Le code me permettait de copier/coller par clic, d'une feuille à l'autre dans la colonne "S" une référence à la suite de cette même colonne. J'ai également un UserForm de confirmation qui s'affiche à chaque clic et lui fonctionne.
Mais rien ne se copie et aucune erreur ne s'affiche.
Je ne comprend pas d'où vient l'erreur subite.
Merci de votre aide.
Ce code VBA qui ne fonctionne plus soudainement :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("B5:S64")) Is Nothing Then
With Sheets("DEVIS-FACTURE")
.Range("S" & .Rows.Count).End(xlUp)(2, 1) = Target
Info.Show
Cancel = True
End With
End If
End Sub
Le code me permettait de copier/coller par clic, d'une feuille à l'autre dans la colonne "S" une référence à la suite de cette même colonne. J'ai également un UserForm de confirmation qui s'affiche à chaque clic et lui fonctionne.
Mais rien ne se copie et aucune erreur ne s'affiche.
Je ne comprend pas d'où vient l'erreur subite.
Merci de votre aide.
