Copier/coller plusieur ligne avec vb

[fred43]

Bonjour,
j'ai de nouveau un souci sur vb, je souhaite pouvoir copier un certain nombre de lignes d'un tableau excel et en suite les copier sur un autre tableau excel mais sur qui apartient à un fichier différent que les cellule a copier. je souhaiterai pouvoir faire se copier/coller avec un programme VB, le souci c'est que je débute sur VB est que j'ai aucune idée de la programmation a faire.

 

[mromain]

Re : Copier/coller plusieur ligne avec vb

bonjour fred43,

voici un début à adapter :

Dim classeurCopie As Workbook, classeurColler As Workbook
'ouvrir les classeurs
Set classeurCopie = Application.Workbooks.Open(Filename:="C:\toto.xls")
Set classeurColler = Application.Workbooks.Open(Filename:="C:\titi.xls")
'copier
classeurCopie.Sheets("Feuil1").Range("A1").Copy classeurColler.Sheets("Feuil1").Range("A1")

ce code copie la cellule A1 de la feuille "Feuil1" du classeur "toto.xls" dans la cellule A1 de la feuille "Feuil1" du classeur "titi.xls".

a+

 

[fred43]

Re : Copier/coller plusieur ligne avec vb

merci, mais si je ne connai pas le nombre de ligne a copier je fait comment.

 

[mromain]

Re : Copier/coller plusieur ligne avec vb

re,

Dim classeurCopie As Workbook, classeurColler As Workbook
'ouvrir les classeurs
Set classeurCopie = Application.Workbooks.Open(Filename:="C:\toto.xls")
Set classeurColler = Application.Workbooks.Open(Filename:="C:\titi.xls")
'copier
With classeurCopie.Sheets("Feuil1")
    .UsedRange.EntireRow.Copy classeurColler.Sheets("Feuil1").Range("A1")
End With

cette macro copie toutes les cellules de la feuille "Feuil1" du classeur "toto.xls".

a+

 

[fred43]

Re : Copier/coller plusieur ligne avec vb

oui mais je ne doit pas copier toute les cellule, seulement les cellules de ma ligne 7 jusqu'a la derniere ligne écrite.

 

[mromain]

Re : Copier/coller plusieur ligne avec vb

re,

difficile de le deviner...

à tester

Dim classeurCopie As Workbook, classeurColler As Workbook
'ouvrir les classeurs
Set classeurCopie = Application.Workbooks.Open(Filename:="C:\toto.xls")
Set classeurColler = Application.Workbooks.Open(Filename:="C:\titi.xls")
'copier
With classeurCopie.Sheets("Feuil1")
    .Range(.Cells(7, 1), .Cells(7, 1).End(xlDown)).EntireRow.Copy classeurColler.Sheets("Feuil1").Range("A1")
End With

a+

 

[fred43]

Re : Copier/coller plusieur ligne avec vb

ça ne marche pas il s'arrête a la ligne

With classeurCopie.Sheets(AjoutPièceAsm.ComboPièce.Value)

est il m'indique une erreur d'exécution 424

 

[mromain]

Re : Copier/coller plusieur ligne avec vb

re,

ça ne marche pas il s'arrête a la ligne

With classeurCopie.Sheets(AjoutPièceAsm.ComboPièce.Value)

est il m'indique une erreur d'exécution 424

je ne vois pas où est cette ligne de code

difficile de t'aider dans ces conditions

a+

 

[fred43]

Re : Copier/coller plusieur ligne avec vb

cette ligne

With classeurCopie.Sheets(AjoutPièceAsm.ComboPièce.Value)

c'est celle la dans ton programme
Dim classeurCopie As Workbook, classeurColler As Workbook
'ouvrir les classeurs
Set classeurCopie = Application.Workbooks.Open(Filename:="C:\toto.xls")
Set classeurColler = Application.Workbooks.Open(Filename:="C:\titi.xls")
'copier
With classeurCopie.Sheets("Feuil1")
.Range(.Cells(7, 1), .Cells(7, 1).End(xlDown)).EntireRow.Copy classeurColler.Sheets("Feuil1").Range("A1")
End With

 

[mromain]

Re : Copier/coller plusieur ligne avec vb

re,

j'avais bien compris ça, mais c'est difficile de débugger ton programme à distance...
envoie ton fichier qui plante, ce sera beaucoup plus facile (et rapide).

que veux-tu dire par "AjoutPièceAsm.ComboPièce.Value" ?

a+

 

[fred43]

Re : Copier/coller plusieur ligne avec vb

AjoutPièceAsm.ComboPièce.Value

c'est le texte écrit dans ma combobox "combopièce" qui est dans l'userform "Ajoutpièceasm",

je peut pas t'envoyé mon fichier, il est trop lourd, même en étant compressé

 

[mromain]

Re : Copier/coller plusieur ligne avec vb

re,

si ça correspond au nom de la feuille, faut essayer :
With classeurCopie.Sheets("AjoutPièceAsm.ComboPièce.Value")

a+

 

[fred43]

Re : Copier/coller plusieur ligne avec vb

le nom de ma feuille est la valeur que je retrouve dans ma combobox, et en mettant les "",AjoutPièceAsm.ComboPièce.Value serai le nom de ma feuille, ce que je veux c'est ouvrir la feuille don le nom a la valeur de ma combobox

 

[mromain]

Re : Copier/coller plusieur ligne avec vb

re,

comme dis plus haut, envoie ton fichier
parce que c'est vraiment difficile de débugger à distance.

a+

 

[fred43]

Re : Copier/coller plusieur ligne avec vb

mon fichier et trop lourd même en étant compressé