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 :
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)
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)
Fichier "FTE FINALE VBA" : la colonne B correspond à une formule => est-ce que la formule peut être copier à 12 reprises pour chaque personne
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 ?
Est-ce que la programmation VBA peut tenir compte des 2 onglets F102 et F104 du fichier " FTE VBA " ?
Fichier "FTE FINALE VBA" : est-ce que les données peuvent être copiés les uns en dessous des autres par la Macro ?
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 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 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
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
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