SheetBeforeDoubleClick
Bonjour,
Quelqu'un aurait 'il la liste des évènements possible et leurs formulation?
Je voudrait juste utiliser cet évènement :
"Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)"
Mais l'appliquer juste a une seule feuille du classeur donc par worsksheet
Je vous remercie.
Cordialement.
Bonjour
Peut-être..
Private Sub Worksheet....
Cordialement
Salut le forum
Regarde dans le module de la feuille au-lieu du module ThisWorkbook.
Pour la liste ca donne ceci
Private Sub Worksheet_Activate()
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
End Sub
Private Sub Worksheet_Calculate()
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
Private Sub Worksheet_Deactivate()
End Sub
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
End Sub
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End SubMytå
Merci beaucoup, mais du coup j'ai une autre question :
Pourquoi ce code marche sur workbook
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim Feuille As String
Feuille = ActiveSheet.Name
Target.Select
Range(Selection, Selection.End(xlToRight)).Copy
Sheets("devis").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Select
Sheets(Feuille).Select
End Sub
et celui la ne marche pas sur worksheet
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Feuille As String
Feuille = ActiveSheet.Name
Target.Select
Range(Selection, Selection.End(xlToRight)).Copy
Sheets("devis").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Select
Sheets(Feuille).Select
End Sub
A savoir que le dernier bloque sur : " erreur d'éxécution 1004 , la méthode select de la classe range a échoué"
sur la ligne : "Range("A1").Select"
Cordialement
Bonjour
Pas de solution quand à ce dysfonctionnement
Mais voici une macro qui doit faire la même chose
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Range(Target, Target.End(xlToRight)).Copy Sheets("devis").Range("A1").End(xlDown).Offset(1, 0)
End Subok. ben ca restera une enigme. merci pour votre version c'est parfait.