patrick965
XLDnaute Impliqué
bonsoir
je me demande comment faire pour modifier la ligne ou je veux que mes article choisie aille:j'exlique:quand je clic sur un article a la page 3 il ce copie a la page1 mais j'aimerais qui ce copie entre les lignes 17 a 36 maintenant il se copie pour je ne sais quel raison au ligne 40 et plus mais je ne veu as sa ... expliquer moi ce qui peu ce passer je ne peu pas envoyer mon fichier il est de 600ko donc trop gros merci beaucoup du coup de pousse ...
_________________________________
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
Cancel = True
If Not Intersect(Target, Range("A7:A400")) Is Nothing Then
Dim ligne
Dim derligne
ligne = Target.Row
Range(Cells(ligne, 1), Cells(ligne, 3)).Select
Selection.Copy
Sheets("Feuil1").Select
derligne = Sheets(1).Range("A65535").End(xlUp).Row + 1
Sheets(1).Range("A" & derligne).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil3").Select
Cells(Target.Row, 6).Select
Selection.Copy
Sheets("Feuil1").Select
Sheets(1).Range("D" & derligne).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil3").Select
Cells(Target.Row, 7).Select
Selection.Copy
Sheets("Feuil1").Select
Sheets(1).Range("F" & derligne).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Feuil3").Select
End If
Application.ScreenUpdating = True
End Sub
je me demande comment faire pour modifier la ligne ou je veux que mes article choisie aille:j'exlique:quand je clic sur un article a la page 3 il ce copie a la page1 mais j'aimerais qui ce copie entre les lignes 17 a 36 maintenant il se copie pour je ne sais quel raison au ligne 40 et plus mais je ne veu as sa ... expliquer moi ce qui peu ce passer je ne peu pas envoyer mon fichier il est de 600ko donc trop gros merci beaucoup du coup de pousse ...
_________________________________
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
Cancel = True
If Not Intersect(Target, Range("A7:A400")) Is Nothing Then
Dim ligne
Dim derligne
ligne = Target.Row
Range(Cells(ligne, 1), Cells(ligne, 3)).Select
Selection.Copy
Sheets("Feuil1").Select
derligne = Sheets(1).Range("A65535").End(xlUp).Row + 1
Sheets(1).Range("A" & derligne).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil3").Select
Cells(Target.Row, 6).Select
Selection.Copy
Sheets("Feuil1").Select
Sheets(1).Range("D" & derligne).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil3").Select
Cells(Target.Row, 7).Select
Selection.Copy
Sheets("Feuil1").Select
Sheets(1).Range("F" & derligne).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Feuil3").Select
End If
Application.ScreenUpdating = True
End Sub