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.
 

Fichiers joints

fanfan38

XLDnaute Accro
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+
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas