Macro pour copier et coller à la suite

[WITER]

Re bonjour, je cherche une macro pour copier des données d'une feuille excel et les recopier à la suite de la derniere ligne non vide dans une autre feuille excel.
Attention j'ai déja dans mon ficher ces 2 macroS. Il faudrais donc quelle soit compatible.

Function CoulFond(champ As Range, couleurFond, Txt)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex = couleurFond And InStr(1, c.Value, Txt, vbTextCompare) <> 0 Then
temp = temp + 1
End If
Next c
CoulFond = temp
End Function
Function Coulint(ch As Range) As Integer
Coulint = ch.Interior.ColorIndex
End Function

Merci encore pour votre aide indispensable

 

[bruno33]

Re : Macro pour copier et coller à la suite

Bonjour

Voici la macro pour copier dans la première cellule non vide

Range("a3:d3").Select
Selection.Copy

With Sheets("journal")
Sheets("journal").Range("A65536").End(xlUp).Offset(1, 0).EntireRow.Range("A1:d1").Value = ActiveCell.EntireRow.Range("A1:d1").Value

End With

A+

 

[wilfried_42]

Re : Macro pour copier et coller à la suite

Salut Witer

Je viens de me creer cette macro, c'est peut etre ce que tu cherches

Range("I" & CStr(index - 1) & ":K" & CStr(index - 1)).Select
Selection.AutoFill Destination:=Range("I" & CStr(index - 1) & ":K" & CStr(index)), Type:=xlFillDefault
Range("I" & CStr(index - 1) & ":K" & CStr(index)).Select

rem : index = au n° de la ligne qui recoit la copie

salutations

 

[WITER]

Re : Macro pour copier et coller à la suite

Oui ca me va ,mais en faite je sais pas trop comment les utiliser
Vous serait il possible de m'integrer votre macro à la suite de la mienne (faite avec l'enregistreure de macro )
Cette macro ouvre un ficher texte, converti les donnée et copie les lignes A1 à A29. Comment y intégrer votre macro pour que les lignes A1 et A29 soit coller dans la feuille 2 du classeur ou est enregistré la macro ( dans le classeur d'origine, pas dans le classeur obtenue apres la conversion des données ) à la suite de la derniere ligne non vide
merci encore

Sub RECUP_EDIT()
'
' RECUP_EDITET Macro
' Macro enregistrée le 26/11/2006 par witer
'

'
Workbooks.OpenText Filename:="J:\Activité\RU_Dispo.txt", Origin _
:=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array _
(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array( _
10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), _
Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), Array( _
23, 1), Array(24, 1), Array(25, 1), Array(26, 1)), TrailingMinusNumbers:=True
Rows("1:29").Select
Selection.Copy
End Sub

 

[wilfried_42]

Re : Macro pour copier et coller à la suite

resalut

si tu veux passer les donnée d'une feuille à l'autre, il te faut un copié coller
avant le traitement de ton fichier

range("A1:A29").select
selection.copy
sheet("Feuil2").range("A1").select
activesheets.selection.copy

salutations

 

[Pierrot93]

Re : Macro pour copier et coller à la suite

Bonjour Witer, Bruno, Wilfried

Wilfried, ta dernière ligne de code a 1 problème, tu ne peux pas sélectionner une cellule à partir d'une autre feuille... d'autre part c'est "sheet" avec un "s", la collection.

Pour faire un copier coller d'une feuille vers une autre, utiliser le code ci-dessous :

Range("A1:A29").Copy Sheets("Feuil2").Range("A1")

Bon dimanche
@+

 

[michel_m]

Re : Macro pour copier et coller à la suite

Bonjour à tous

sans utiliser les très longs et très lourds select-copypaste

Valable quelque soit la taille du fichier texte mais transfert à partir de A1

Sub copier_plage()
Dim plage As Range
Set plage = Sheets(1).Range("A1").CurrentRegion
plage.Copy Sheets(2).Cells(Range("A65536").End(xlUp).Row + 1, 1)
' nettoie la plage en feuille1 pour de nouveaux transferts
' Sheets(1).plage.clearcontents
set plage= nothing
End Sub

Quant au transfert de fichier texte vers excel, tu as des démos très intéressante dans le WIKI du forum

Bon dimanche


bonjour Pierrot, je n'avais pas rafraichi ze machin

 

[WITER]

Re : Macro pour copier et coller à la suite

Voila jai refais la macro avec l'enregistreur elle fonctionne mais il me manque, le coller à la suite de la dernier ligne non vide dans la feuil2 du classeur "Plan.xls". Pourriez vous me modifier la macro pour y rajouter cette option;
Je supPose qu'il faut remplacer le
"Rows("30:30").Select"
par un
"coller à la suite de la dernier ligne non vide du classeur "Plan.xls". feuil2.
merci encore

 

[WITER]

Re : Macro pour copier et coller à la suite

Oupss j'avais oublié la macro

Sub RECUP_EDITEUR()
'
'

'
ActiveWorkbook.Save
Workbooks.OpenText Filename:="J:\Activité\RU.txt", Origin _
:=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 4), Array(2, 1), Array _
(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array( _
10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), _
Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), Array( _
23, 1), Array(24, 1), Array(25, 1), Array(26, 1)), TrailingMinusNumbers:=True
Windows("RU.txt").Activate
Rows("1:29").Select
Selection.Copy
Windows("Plan.xls").Activate
Rows("30:30").Select
ActiveSheet.Paste
Windows("RU.txt").Activate
ActiveWindow.Close
End Sub

 

[WITER]

Re : Macro pour copier et coller à la suite

Je ne comprend pas, je rajoute vos macro a la mienne mais ca ne fonctionne pas, j'ai un message d'erreur

helpppppp meeeeeeeee !!!!!!!!!!!
SVP

 

[pierrejean]

Re : Macro pour copier et coller à la suite

A tester (mais sans garantie !!!)

Sub RECUP_EDITEUR()
'
'

'
ActiveWorkbook.Save
Workbooks.OpenText Filename:="J:\Activité\RU.txt", Origin _
:=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 4), Array(2, 1), Array _
(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array( _
10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), _
Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), Array( _
23, 1), Array(24, 1), Array(25, 1), Array(26, 1)), TrailingMinusNumbers:=True
Windows("RU.txt").Activate
Rows("1:29").Select
Selection.Copy
Windows("Plan.xls").sheets("Feuil2").Activate
Range("A65536").end(xlup).offset(1,0).select
ActiveSheet.Paste
Windows("RU.txt").Activate
ActiveWindow.Close
End Sub

 

[WITER]

Re : Macro pour copier et coller à la suite

Merci pierre jean, mais la macro plante à la ligne:

Windows("Plan.xls").Sheets("Feuil2").Activate

je tente de la modifié mais ca marche pas

 

[WITER]

Re : Macro pour copier et coller à la suite

En faite c bon, ca bugé parce que je lance la macro depuis la feuil2, donc j'ai remplacé le:

Windows("Plan.xls").Sheets("Feuil2").Activate

par:

Windows("Plan.xls").Activate

sans mentionner la "feuil2"

Merci encore à tous pour votre aide

 

[pierrejean]

Re : Macro pour copier et coller à la suite

re

il me semblait bien que ça devait clocher

teste pour que cela foctionne a partir de n'importe quelle feuille

Windows("Plan.xls").Activate
Sheets("Feuil2").select
Range("A65536").end(xlup).offset(1,0).select

 

[WITER]

Re : Macro pour copier et coller à la suite

Oui mais en faite je veu declencher la macro avec un bouton, et la sa passe pas. Quand je lance la macro par "executer" ca fonctionne.
Mais quand je la lance avec le bouton créer ca plante à

Rows("A1:AH60").Select

Ya t'il une difference d'ecriture quand on excecute une macro avec un bouton