Macro pour copier/coller un sélect lignes dans un autre classeur...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide pour écrire une macro afin de copier une sélection de ligne et la coller dans un autre classeur...comme indiqué dans le fichier joint.

Je vous remercie pour le temps que vous voudrez bien m'accorder.

Bien amicalement,
Christian

 

[gbinforme]

Re : Macro pour copier/coller un sélect lignes dans un autre classeur...

bonsoir à tous,

Voici ton classeur modifié :
- avec un bouton pour lancer une macro qui sélectionne les lignes à la souris
- ouvre un fichier
' vérifier le chemin avant de lancer la macro et corriger éventuellement
"C:\Mes documents\Commandes Fournisseurs.xls"

- copie les lignes sélectionnées en supprimant les anciennes.

Bon test et @+

 

[Christian0258]

Re : Macro pour copier/coller un sélect lignes dans un autre classeur...

Bonsoir à tout le forum, gbinforme,

Salut à toi, l'artiste, et merci (à nouveau) pour ton aide dans mon projet.

Je teste et te tiens au courant.

à+

Christian

 

[Christian0258]

Re : Macro pour copier/coller un sélect lignes dans un autre classeur...

Re , gbinforme,

Je viens de tester, c'est bon mais je souhaiterais ne copier que les col A à H.

J'ai en effet dans la feuille "Semaine" à partir de la colonne J des formules...

à+

Merci encore,
Christian

 

[gbinforme]

Re : Macro pour copier/coller un sélect lignes dans un autre classeur...

Bonjour Christian,

Je viens de tester, c'est bon mais je souhaiterais ne copier que les col A à H.

Pas de problème, juste un paramètre à changer ....

@+

 

[Christian0258]

Re : Macro pour copier/coller un sélect lignes dans un autre classeur...

Bonjour gbinforme, le forum,


Après essai, c'est bizarre, j'ai l'impression que le "coller" ne tient pas compte de la sélection faite...ça copie toute les lignes renseignées jusqu'aux lignes ect/ect/ect.

Peux-tu me dire ?
Merci pour ton aide

à+
Christian

 

[gbinforme]

Re : Macro pour copier/coller un sélect lignes dans un autre classeur...

Bonjour Christian

..ça copie toute les lignes renseignées jusqu'aux lignes ect/ect/ect. Peux-tu me dire ?

C'est peut-être un problème sur le fichier en ligne , je te remets le fichier.

 

[Christian0258]

Re : Macro pour copier/coller un sélect lignes dans un autre classeur...

Re,
Salut, gbinforme

Après plusieurs essais je te confirme que lorsque je fait une sélection de lignes (ou même une seule ligne) le collage ne se fait pas en fonction de la sélection, mais avec l'ensemble de la base de données de la feuille source...

à +

Merci pour ton aide,
Christian

 

[gbinforme]

Re : Macro pour copier/coller un sélect lignes dans un autre classeur...

bonsoir Christian,

Après plusieurs essais je te confirme que lorsque je fait une sélection de lignes (ou même une seule ligne) le collage ne se fait pas en fonction de la sélection, mais avec l'ensemble de la base de données de la feuille source...

dans ta feuille CDes en VBA as-tu bien ce code ?

Private Sub Cmdsel_Click()
Dim choix
Dim w1 As Worksheet
Dim w2 As Worksheet
Set w1 = ActiveSheet
    Set choix = Application.InputBox(prompt:="Choisissez les lignes à copier", Title:="Sélection lignes", Top:=5, Left:=100, Type:=8)
    If choix Is Nothing Then
        MsgBox "choix erroné"
        Exit Sub
    End If

' vérifier le chemin
    Workbooks.Open Filename:="C:\Mes documents\Commandes Fournisseurs.xls"
   
    Sheets("Semaine").Activate
    Set w2 = ActiveSheet
    w2.Cells(2, 1).Resize(Cells(63536, 1).End(xlUp).Row, 1).EntireRow.Delete
    w1.Cells(choix.Row, 1).Resize(choix.Count, 8).Copy
    ActiveSheet.Paste Destination:=w2.Range("a2")
    Application.CutCopyMode = False
End Sub

La copie se fait bien avec ton choix :
w1.Cells(choix.Row, 1).Resize(choix.Count, 8).Copy

ligne début (choix.Row) + nombre de lignes (choix.Count) sur 8 colonnes.

Que dit la vérif ?

 

[Christian0258]

Re : Macro pour copier/coller un sélect lignes dans un autre classeur...

Re le forum, gbinforme,

J'ai bien le bon code, le dernier, suite à ta modification concernant le nbre de col copiées (8).

à+
Christian

 

[gbinforme]

Re : Macro pour copier/coller un sélect lignes dans un autre classeur...

re Christian,

le collage ne se fait pas en fonction de la sélection, mais avec l'ensemble de la base de données de la feuille source...

Avec les données que j'ai, cela voudrait dire que Excel ne tient pas compte de la zone copiée pour faire le coller :
c'est assez impensable !

tu devrais essayer avec la version qui copiait toute la ligne (04/08/2007 15h19) et fonctionnait apparemment et remplacer :

w1.Cells(choix.Row, 1).Resize(choix.Count).entirerow.Copy
par
w1.Cells(choix.Row, 1).Resize(choix.Count, 8).Copy

 

[Christian0258]

Re : Macro pour copier/coller un sélect lignes dans un autre classeur...

Re, bonsoir

J'ai mis les deux fichiers pour que tu puisses faire un essai...


Merci à toi

à+
Christian

 

[gbinforme]

Re : Macro pour copier/coller un sélect lignes dans un autre classeur...

bonsoir Christian,

OK, j'ai compris ton problème et donc il devrait être corrigé avec ce fichier.

Mon utilisation n'était effectivement pas celle que tu utilisais, à bon escient pourtant...

Bon test et à+

 

[Christian0258]

Re : Macro pour copier/coller un sélect lignes dans un autre classeur...

Re , Bonjour à tout le forum, gbinforme,

C'est impec, ça fonctionne comme je le souhaitais.

Merci pour tout et mes excuses pour les dérangements ...tu es sympha.

à+
Christian