XL 2010 COPIER A LA SUITE D UNE FEUILLE A UNE AUTRE

[redounezha@hotmail.fr]

BONJOUR EST CE QUE QUELQU UN AURAIT UNR SOLUTION POUR MOI JE VOUDRAIS COLLER A PARTIR D UN FICHIER D UNE FEUILLE A UNE AUTRE A LA SUITE MERCI
JE PRECISE JE SUIS VRAIMENT UN DEBUTANT
Sub copier_coller()
Dim ws_feuil1 As Worksheet
Dim ws_feuil3 As Worksheet
Dim der_ligne As Long
Dim ligne_coller As Long
Dim lstrw As Long
Dim ligne As Integer

'definir mes feuilles
Set ws_1 = Worksheets("ADRESSAGE")
Set ws_3 = Worksheets("MEN")
'identifier la derniere lignes
'lstrw = ws_1.Cells(Rows.Count, 1).End(xlDown).Row

'ligne_coller = ws_1.Cells(Rows.Count, 1).End(xlDown).Row + 1

'ligne_coller = lstrw + 1

der_ligne = ws_3.Cells(Rows.Count, 1).End(xlUp).Row
'ligne = [A50000].End(xlUp).Row + 1
ligne = [h5000].End(xlUp).Row + 1

'boucle sur les donnée
For i = 2 To der_ligne

'copier les valeurs et les coller
'ws_3.Range(ws_3.Cells(i, 1), ws_3.Cells(i, 26)).Copy ws_1.Cells(2,8)


ws_3.Range(ws_3.Cells(i, 1), ws_3.Cells(i, 26)).Copy ws_1.Cells(ligne, 8)


'ligne_coller = ws_1.Cells(Rows.Count, 1).End(xlUp).Row + 1
Next i
End Sub

 

[Phil69970]

Bonjour @redounezha@hotmail.fr

1)Ecrire en majuscule c'est CRIER donc merci de mettre le titre en minuscule ainsi que le texte.
Je n'aime pas quand on me crie dessus.

2)Merci de préciser exactement ce que tu veux copier.
Exemple :
Les données A2:F10 de la feuille X vers la feuille Y à la suite des données qui se trouvent après la ligne A152
Dont on effacer les données qui viennent d'être copier ?

@Phil69970

 

[yal]

Bonsoir
Je ne comprends pas très bien ce que tu veux faire mais s'il s'agit de copier toutes les lignes la boucle est inutile.

Sub copierColler2()
  Dim shMen As Worksheet, shAdr As Worksheet
  Dim dlMen As Integer
 
  Set shMen = Sheets("MEN")
  Set shAdr = Sheets("ADRESSAGE")
    
  dlMen = shMen.Cells(Rows.Count, 1).End(xlUp).Row
  shMen.Range("A2:D" & dlMen).Copy shAdr.Range("H2")
 
End Sub

 

[redounezha@hotmail.fr]

Bonsoir
Je ne comprends pas très bien ce que tu veux faire mais s'il s'agit de copier toutes les lignes la boucle est inutile.

Sub copierColler2()
  Dim shMen As Worksheet, shAdr As Worksheet
  Dim dlMen As Integer
 
  Set shMen = Sheets("MEN")
  Set shAdr = Sheets("ADRESSAGE")
   
  dlMen = shMen.Cells(Rows.Count, 1).End(xlUp).Row
  shMen.Range("A2:D" & dlMen).Copy shAdr.Range("H2")
 
End Sub

 

[redounezha@hotmail.fr]

bonsoir et merci pour vos réponse ceci n est que le début de se que je veux automatisé en vérité je voudrais rajouté quelque conditions je vais essaié de reprendre ce que tu viens de m'envoié et rajouté mes conditions en espérant réussir et encore une fois désolé d'avoir écris en majuscule et encore merci pour vos reponse je vous tiens au courant de mon avancement merci les gars

 

[redounezha@hotmail.fr]

voila j explique mieux ce je veux faire ,car oui faire un copier coller est un peu banale ,mon but est de recopier chaque ligne dans ma première feuille(men) et de la coller dans ma feuille (adressage) ,mais j'ai une condition a rajouté c'est que si ma valeur dans la colonne (u) de ma feuille( men) est 1 alors j'avance d'une ligne mais si ma valeur est 2 alors je saute une ligne et je colle et si ma valeur est 3 alors je saute de 2 ligne et je colle ,je reste dispo pour plus de détails et merci d'avance

 

[redounezha@hotmail.fr]

Rebonjour tout le monde, je n'arrive toujours pas à trouver de solution est ce que quelqu'un pourrait m'aider svp merci.