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

XL 2021 VBA Excel Erreur 2023

MICHIS

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

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

XLDnaute Nouveau
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 !!
 

Discussions similaires

Réponses
2
Affichages
286
  • Question
Microsoft 365 Code VBA
Réponses
2
Affichages
421
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…