Kael_88
XLDnaute Occasionnel
Le forum,
Quand je double-clic dans la Feuille A sur une cellule de la colonne B, toute la ligne de cette cellule est copiée sur la feuille B
Est il possible de ne sélectionner que la plage de C à F de cette ligne ?
ci dessous le code que j'utilise actuellement.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim WsSEr As Worksheet
Set WsSEr = Sheets("Synthèse Erreur") 'Feuil source
Application.ScreenUpdating = False
If Target.Column <> 2 Then Exit Sub 'si le double-clic n'est pas dans la colonne 2, sort de la procédure
Cancel = True 'évite le mode [Édition] lié au double-clic
Rows(Target.Row).Copy Destination:=WsSEr.Range("A" & WsSEr.Range("A" & Rows.Count).End(xlUp).Row + 1)
Application.ScreenUpdating = True
MsgBox ("Le transfert de la ligne a été fait") 'previent ligne copiée
Application.CutCopyMode = False 'annule le clignotement dû au "Copier"
End Sub
Merci de votre cooperation
Quand je double-clic dans la Feuille A sur une cellule de la colonne B, toute la ligne de cette cellule est copiée sur la feuille B
Est il possible de ne sélectionner que la plage de C à F de cette ligne ?
ci dessous le code que j'utilise actuellement.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim WsSEr As Worksheet
Set WsSEr = Sheets("Synthèse Erreur") 'Feuil source
Application.ScreenUpdating = False
If Target.Column <> 2 Then Exit Sub 'si le double-clic n'est pas dans la colonne 2, sort de la procédure
Cancel = True 'évite le mode [Édition] lié au double-clic
Rows(Target.Row).Copy Destination:=WsSEr.Range("A" & WsSEr.Range("A" & Rows.Count).End(xlUp).Row + 1)
Application.ScreenUpdating = True
MsgBox ("Le transfert de la ligne a été fait") 'previent ligne copiée
Application.CutCopyMode = False 'annule le clignotement dû au "Copier"
End Sub
Merci de votre cooperation