XL 2021 VBA Excel Erreur 2023

[MICHIS]

Bonjour

Dans une partie de programme VBA Excel, je veux copier la formule d’une plage ActiveCell.Offset(0, 9).Resize(1, 2) sur la plage du dessus : ActiveCell.Offset(-1, 9).Resize(1, 1)

Range("Noms").End(xlDown).Select
ActiveCell.Offset(0, 9).Resize(1, 2).Select
Selection.Copy
Range("Noms").End(xlDown).Select
ActiveCell.Offset(-1, 9).Resize(1, 1).Selection
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

J’ai un retour d’erreur 2023 dans la ligne de programmation : ActiveCell.Offset(-1, 9).Resize(1, 1) Pourquoi ? Merci de me répondre
Mon mail est : michibj@gmail.com

 

[wDog66]

Bonjour,

Pour moi tout est dans le nombre de colonne dans resize
Le premier est sur 2, le deuxième est seulement sur 1

Nota : merci de mettre votre code entre balises grâce au bouton prévu à cet effet

 

[MICHIS]

J'ai tenu compte de votre remarque. J'ai modifié le code :

Range("Noms").End(xlDown).Select
ActiveCell.Offset(2, 9).Resize(2, 1).Select 'aller aux 2 cases Prov des 2 dernières lignes
Selection.Copy ' copier les formules F des 2 cases
ActiveCell(-1, 1).Resize(2, 1).Select ' aller aux 2 cases Prov au-dessus
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False ' coller les formules F sur ces 2 cases

et ... je n'ai pas eu d'erreur 2023 ??? .. un peu par hasard ??? Mais c'est bon !!.
Merci !!! .... même si je n'ai pas bien compris pourquoi !!