Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…