Microsoft 365 Erreur Visual Basic (Macro Excel)

[Sitoun]

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.

 

[fanfan38]

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]

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+