XL 2013 Copie données

onyirimba

XLDnaute Occasionnel
Supporter XLD
Bonjour,


Je souhaite copier les données des onglets du fichier " FTE VBA " dans l'onglet "Données" du fichier FTE FINALE VBA de la manière décrite ci-dessous et présenté dans la 2ième capture d'écran :
  1. Fichier "FTE FINALE VBA" : la colonne F du mois => les 12 mois de l'année 2022 soient copiés pour chaque personne (01/01/2022, 02/02/2022... au 01/12/2022)
  2. Fichier "FTE FINALE VBA" : Colonne C et colonne D => le nom et le prénom de chaque personne soit copié à 12 reprises (car 12 mois de l'année)
  3. Fichier "FTE FINALE VBA" : la colonne B correspond à une formule => est-ce que la formule peut être copier à 12 reprises pour chaque personne
  4. Fichier "FTE FINALE VBA" : la colonne A => est-ce que la cellule correspondante à chaque personne dans le fichier FTE VBA (colonne C) peut être copier à 12 reprises pour chaque personne ?
  5. Est-ce que la programmation VBA peut tenir compte des 2 onglets F102 et F104 du fichier " FTE VBA " ?
  6. Fichier "FTE FINALE VBA" : est-ce que les données peuvent être copiés les uns en dessous des autres par la Macro ?

Merci de votre aide.

fichier " FTE VBA "
1635928296204-png.1120267



Fichier FTE FINALE VBA
Regarde la pièce jointe 1120268
 

Pièces jointes

  • FTE FINALE VBA.xlsm
    10.4 KB · Affichages: 1
  • FTE VBA.xlsm
    14 KB · Affichages: 0
Dernière édition:

sousou

XLDnaute Barbatruc
Bonjour
Je te propose la macro dans le fichier joint.
On suppose que les deux fichiers sont ouvert.
J'ai remplacé la fromule par un calcul dans la macro, mais c'est possible avec la formule
 

Pièces jointes

  • FTE VBA.xlsm
    13.6 KB · Affichages: 10

onyirimba

XLDnaute Occasionnel
Supporter XLD
correction d'une rreur Ici
Bonjour,

J'ai essayé d'adapter la macro avec ce fichier mais cela ne fonctionne pas
est-ce que vous pouvez regarder ?
Merci.

J'ai essayé la programmation ci-après :
Public inc
Sub deb()
inc = 0
With Workbooks("FTE FINALE VBA.xlsm").Sheets("données")
.Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count, 6)).Delete
End With
For Each f In ThisWorkbook.Sheets
With f
Set celdeb = .Cells(12, 3)
While celdeb <> ""
ccpaye = celdeb.Value
nom = celdeb.Offset(0, 1)
prénom = celdeb.Offset(0, 2)
Call ecriture(ccpaye, nom, prénom)
Set celdeb = celdeb.Offset(1, 0)
Wend
End With
Next
End Sub



Sub ecriture(c, p, n)
With Workbooks("FTE FINALE VBA.xlsm").Sheets("données")
Set addepart = .Cells(2, 1)
For mois = 1 To 12
'
addepart.Offset(inc, 0).Value = c
addepart.Offset(inc, 2).Value = n
addepart.Offset(inc, 3).Value = p
addepart.Offset(inc, 5).Value = CDate("1/" & mois & "/2022")
inc = inc + 1
Next

End With


End Sub



1635954191159.png

1635954346308.png
 

Discussions similaires

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 848
dernier inscrit
Djigbenou