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
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
