XL 2013 Copie données

[onyirimba]

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 "

Fichier FTE FINALE VBA
Regarde la pièce jointe 1120268

 

[sousou]

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

 

[onyirimba]

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

bonjour,

Merci beaucoup je regarde

Cordialement.

 

[onyirimba]

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

Bonjour,

Je crois que vous avez oublié la Macro dans le fichier que vous avez joint, car elle ne contient pas de programmation VBA

 

[sousou]

Yes!
Mauvais fichier.
Regarde ainsi

 

[onyirimba]

Yes!
Mauvais fichier.
Regarde ainsi

Merci

 

[sousou]

correction d'une rreur Ici

 

[onyirimba]

correction d'une rreur Ici

Merci

 

[onyirimba]

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

 

[sousou]

Sans plus d'explications, compliqué!
Quel fichier correspond à FTE vba ou Fte vba final?
Quelle feuille Concernée?
Pourquoi ne pas fournir les bons fichiers en anonymisant les données