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

Microsoft 365 Erreur Visual Basic (Macro Excel)

Sitoun

XLDnaute Nouveau
Bonjour à tous,

Je viens de créer une macro, mais lorsque je la lance, j'obtiens un message qui me demande d'activer le "débogage". Si je dis oui, le codage s'affiche avec en surbrillance jaune "ActiveSheet.Paste". Je n'arrive pas à résoudre cette erreur qui empêche ma macro de s'effectuer correctement:

...
End With
Range("J1").Select
ActiveSheet.Paste
Range("I1").Select
ActiveSheet.Paste
Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.RowHeight = 37.2
Range("B1").Select
ActiveCell.FormulaR1C1 = "=+TODAY()"
Range("B1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
...
Quelqu'un sait-il de quoi il s'agit et de quelle manière je peux régler ce problème? Je ne connais pas du tout ce language (codification derrière les macros Excel)

Merci par avance.
 

Pièces jointes

  • Erreur MACRO_ActiveSheet. Paste.docx
    114 KB · Affichages: 3

fanfan38

XLDnaute Barbatruc
Bonjour
Il manque quelque chose car (quand tu es en débogage tu appuies sur f1 pour avoir l'aide)
ActiveSheet.Paste : Cette méthode colle le contenu du Presse-papiers dans la feuille.
C'est le fichier excel (sans données compromettantes) qu'il faut joindre..
A+ François
 

job75

XLDnaute Barbatruc
Bonsoir Sitoun, fanfan38,

Quand il n'y a rien dans le presse-papiers ActiveSheet.Paste crée forcément un bug.

Il ne faut pas que le classeur soit modifié entre l'opération de copie et le collage.

A+
 

Discussions similaires

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