Creer Une Macro Pour Copier Donnees

  • Initiateur de la discussion Initiateur de la discussion Cazinos
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Cazinos

XLDnaute Occasionnel
Bonjour le forum,

J'ai joint un fichier pour plus de clarté :

Le travail de la macro consiste à copier des données d'un onglet pour les recopier dans un autre.

Le nombre de ligne n'est jamais identique c'est pour ça que je ne peux pas me servir du magnéto (créateur de macro).

Merci
 

Pièces jointes

Re : Creer Une Macro Pour Copier Donnees

Bonjour Cazinos, bonjour le forum,

Essaie comme ça :
Code:
Sub Macro1()
Dim dest As Range 'déclare la variable dest
Set dest = Sheets("BDD TEXTE  PAYE").Range("A65536").End(xlUp).Offset(1, 0) 'définit la variable dest
Sheets("FEUILLE DE TRAVAIL").UsedRange.Copy Destination:=dest 'copie et colle
End Sub
 
Re : Creer Une Macro Pour Copier Donnees

Bonjour Cazinos, Robert le forum,
Cazino tu pourrais poser les questions sur le même post car tu demandes après sur un autre post pour une MFC de ta colonne G, pour que les valeurs je ne sais plus quoi soit en vert !!!!
enfin je pense que c'est pour le même fichier?
a +
Papou
 
Re : Creer Une Macro Pour Copier Donnees

serait-il possible de copier les données de "BDD TEXTE PAYE" selon un critère pour les collés dans la feuille "bx" "cf" "cp" "sg"
si la colonne "D" = BX alors copier les données dans la feuille BX
si la colonne "D" = CF alors copier les données dans la feuille CF
si la colonne "D" = CP alors copier les données dans la feuille CP
si la colonne "D" = SG alors copier les données dans la feuille SG
(voir dans fichier joint au début du post)

merci
 
Re : Creer Une Macro Pour Copier Donnees

Bonsoir

Je viens de m'appercevoir que j'avais un soucis avec la macro :
Les données à copier dans les entités proviennent de l'onglet "BDD TEXTE PAYE" et pas de la "FEUILLE DE TRAVAIL"
il ne faut pas tenir compte de l'onglet "BDD TEXTE PAYE"

merci et scuse si j'ai pas été clair

Sub extract()
Dim Derlig As Long
Derlig = Sheets("BDD TEXTE PAYE").[A65000].End(xlUp).Row + 1
With Sheets("FEUILLE DE TRAVAIL")
.Range("A1:I" & .[A65000].End(xlUp).Row).Copy Sheets("BDD TEXTE PAYE").Cells(Derlig, 1)
End With
With Sheets("BDD TEXTE PAYE")
Derlig = .[A65000].End(xlUp).Row
.Range("A1:M" & Derlig).Name = "base"
.[O1] = .[D1]
.Range("D1😀" & Derlig).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range( _
"O1"), Unique:=True
End With
For Each cel In Range("O2:O" & Sheets("BDD TEXTE PAYE").[O65000].End(xlUp).Row)
Sheets("BDD TEXTE PAYE").[O2] = cel
With Sheets(cel.Value)
Range("base").AdvancedFilter Action:=xlFilterCopy _
, CriteriaRange:=Sheets("BDD TEXTE PAYE").Range("O1:O2"), CopyToRange:= _
.Range("A1:M1"), Unique:=False
End With
Next cel
Sheets("BDD TEXTE PAYE").Columns("O:O").Delete
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
284
Réponses
5
Affichages
405
Retour