Discussion :

[mahdiweb]

Bonjour,

J'ai un tableau sur Feuil3 qui contient des données dans les colonnes ("B:M"), la colonne A est vide et ne doit pas être copier et lorsque je fais double clic sur n'import quelle cellule de mes colonnes ("B:M") la macro doit copier toute la ligne de la cellule sélectionnée et la collée sur une autre feuille nommée ST à partir de la deuxième colonne B voici le code que j'ai sur la Feuil3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Columns("B:M")) Is Nothing Then
Cancel = False
dlg = Sheets("ST").Range("A" & Sheets("ST").Rows.Count).End(xlUp).Row
If dlg < 1 Then dlg = 1
Rows(Target.Row).Copy Sheets("ST").Range("A" & dlg + 1)
Cancel = True
End If
End Sub

ma question est la suivante : comment je peux adapter ce code pour coller sur la deuxième colonne au lieu de la première colonne de la feuille ST, sachant que la première colonne de la feuille ST contient des informations qui ne doit pas être effacé ?

[deedolith]

Heu ...
Adapte les adresses de cellule, la première colonne c'est A, la deuxième c'est B, la troisième c'est C ect ...

[BENNASR]

Bonjour
juste remplace A par B et au lieu de la ligne complète copier juste de B à M

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Columns("B:M")) Is Nothing Then
Cancel = False
dlg = Sheets("ST").Range("B" & Sheets("ST").Rows.Count).End(xlUp).Row
If dlg < 1 Then dlg = 1
Range(Cells(Target.Row, "B"), Cells(Target.Row, "M")).Copy Sheets("ST").Range("B" & dlg + 1)
Cancel = True
End If
End Sub

[mahdiweb]

Bonjour
juste remplace A par B et au lieu de la ligne complète copier juste de B à M

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Columns("B:M")) Is Nothing Then
Cancel = False
dlg = Sheets("ST").Range("B" & Sheets("ST").Rows.Count).End(xlUp).Row
If dlg < 1 Then dlg = 1
Range(Cells(Target.Row, "B"), Cells(Target.Row, "M")).Copy Sheets("ST").Range("B" & dlg + 1)
Cancel = True
End If
End Sub

Bonsoir,

Avec ce code j'ai le message d'erreur suivant :

[BENNASR]

j'ai déja modifié mon message
voir cette partie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Cells(Target.Row, "B"), Cells(Target.Row, "M")).Copy Sheets("ST").Range("B" & dlg + 1)

[mahdiweb]

j'ai déja modifié mon message
voir cette partie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Cells(Target.Row, "B"), Cells(Target.Row, "M")).Copy Sheets("ST").Range("B" & dlg + 1)

Super merci infiniment @Bennasr