VB :'Comment faire pour ne sélecctionner que les cellules ABCDFGF de la ligne activée

[lmylvc]

Hello les amis,
dans une de mes macro je rencontre le pb expliqué ci-dessous en rouge,
Quelqu'un peut-il m'aider ?

'Comment faire pour ne sélecctionner que les cellules ABCDFGF de la ligne activée
'Là où se trouve mon curseur

Range("A140,B140,C140,D140,F140,G140").Select
Range("G140").Activate
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
'Coller sur la premièr ligne vide de la feuille
Sheets("Feuil2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select

ActiveSheet.Paste


Merci d'avance

Vincent

😕

 

[Pierrot93]

Re : VB :'Comment faire pour ne sélecctionner que les cellules ABCDFGF de la ligne ac

Bonjour,

perso pas de problème avec tes 2 lignes en rouge.. ou alors quelque chose doit m'échapper..

bon après midi
@+

 

[lmylvc]

Re : VB :'Comment faire pour ne sélecctionner que les cellules ABCDFGF de la ligne ac

Hello Pierrot93
Je n'ai pas de pb avec le code actuel, simplement je voudrais pouvoir
le faire évoluer afin de sélectionner les cellules A?B.C.D.F.G de la ligne activée.

Voilà !
Aussi je relance ma demande d'aide.

Merci

Vincent

 

[gilbert_RGI]

Re : VB :'Comment faire pour ne sélecctionner que les cellules ABCDFGF de la ligne ac

bonjour

evoluer dans ce sens ?

Sub test()
Range("A140:D140,F140:G140").Copy Sheets("Feuil2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Sub

😕

 

[Pierrot93]

Re : VB :'Comment faire pour ne sélecctionner que les cellules ABCDFGF de la ligne ac

Re,

Aarf, désolé je n'avais point compris... essayce ceci :

Range("A" & ActiveCell.Row & ":D" & ActiveCell.Row & _
    ",F" & ActiveCell.Row & ":G" & ActiveCell.Row).Select
Selection.Copy

Edition : bonjour Gilbert

 

[gilbert_RGI]

Re : VB :'Comment faire pour ne sélecctionner que les cellules ABCDFGF de la ligne ac

ou alors comme ceci

Sub test()
derl = Range("a65536").End(xlUp).Row
Range("A" & derl & ":D" & derl & ",F" & derl & ":G" & derl).Copy Sheets("Feuil2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Sub

Edit bonjour Pierrot

😕 🙄

 

[Pierrot93]

Re : VB :'Comment faire pour ne sélecctionner que les cellules ABCDFGF de la ligne ac

Re,

A noter que l'on pourrait le faire en une seule instruction :

Range("A" & ActiveCell.Row & ":D" & ActiveCell.Row & _
    ",F" & ActiveCell.Row & ":G" & ActiveCell.Row).Copy _
    Destination:=Sheets("Feuil2").Cells(Rows.Count, 1).End(xlUp)(2)

 

[lmylvc]

Re : VB :'Comment faire pour ne sélecctionner que les cellules ABCDFGF de la ligne ac

Hello Gilbert & Pierrot93

Le bout de code de Pierrot fonctionne à merveille.
Celui-ci va me permettre de gagner en ergonomie dans le cadre de mes saisies.
Aussi, merci à vous deux pour votre aide.
Je vous dis à bientôt

Vincent 🙂😛