Microsoft 365 VBA Incompatibilité de type 13 dans une boucle

chris6999

XLDnaute Impliqué
Bonjour

Je rencontre un pb d'incompatibilité de type 13 dans une boucle que je ne comprends pas.
Je souhaite passer le code sur la ligne 1 de la colonne F jusqu'à la dernière colonne de mon tableau déclarée dercol

Quelqu'un voit-il où se situe le pb ? Je mets un fichier test en ¨PJ

Merci d'avance pour vos réponses

Bonne journée à tous

'dernière cellule non vide sur la colonne B
dercol = Cells(4, Columns.Count).End(xlToLeft).Column

For Each c In Range(Cells(1, "F"), Cells(1, "dercol"))
c.Offset(0, 0).FormulaR1C1 = "=IF(R[3]C<>"""",DATEVALUE(R[3]C&""/""&XLOOKUP(R3C6,mois!C1,mois!C2,"""",0,1)&""/""&YEAR(TODAY())),DATEVALUE(R[3]C[-1]&""/""&XLOOKUP(R3C6,mois!C1,mois!C2,"""",0,1)&""/""&YEAR(TODAY())))"
Next
 

Pièces jointes

  • TEST BOUCLE.xlsm
    21.2 KB · Affichages: 2

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 948
Membres
101 849
dernier inscrit
florentMIG