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

redounezha@hotmail.fr

XLDnaute Nouveau
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
 

Pièces jointes

  • COPIER COLLER A LA SUITE.xlsm
    43.2 KB · Affichages: 11

Phil69970

XLDnaute Barbatruc
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. o_O

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

XLDnaute Occasionnel
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.
VB:
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

XLDnaute Nouveau
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.
VB:
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

XLDnaute Nouveau
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

XLDnaute Nouveau
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
 

Discussions similaires

Réponses
9
Affichages
375

Statistiques des forums

Discussions
299 847
Messages
1 979 548
Membres
206 771
dernier inscrit
Charles Fabre