Erreur d'exécution 57121 Excel 2003

Bonjour, à tou-te-s,

J'ai un souci avec l'exécution d'une macro sous Excel 2003 pourtant simple !

Une copie d'une plage de cellule sur une autre feuille ?

Pour info, ça fonctionne sous Excel 2016

Voici le bug :

Sub FeuilAFeuil()

'

' FeuilAFeuil Macro

' Macro enregistrée le 13/03/2019 par JGO

'

'

Sheets("Suivi Cotises").Select

Range("A7:B12").Select

Selection.Copy

Sheets("Labo Tri").Select (le blocage se situe lors de la sélection de la feuille ???)

Range("A7").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

Selection.ClearContents

Range("A7").Select

Sheets("Suivi Cotises").Select

Range("A7").Select

End Sub

D'avance, je vous remercie pour votre aide

Jacques

Bonjour,

Vérifie le nom ou l'existence de la feuille Labo Tri.

Sinon, ta procédure revisitée.

Sub FeuilAFeuil()    '
' FeuilAFeuil Macro
' Macro enregistrée le 13/03/2019 par JGO
    Sheets("Suivi Cotises").Range("A7:B12").Copy
    Sheets("Labo Tri").Range("A7").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    'Selection.ClearContents ?? pourquoi effacer la copie effectuée
    With Sheets("Suivi Cotises")
        .Activate
        .Range("A7").Select
    End With
End Sub

Bonjour Jean-Eric,

Merci pour cette correction mais j'ai encore un bug à la ligne 3 soit :

Sub FeuilAFeuil2() '

' FeuilAFeuil Macro

' Macro enregistrée le 13/03/2019 par JGO

Sheets("Suivi Cotises").Range("A7:B12").Copy

Sheets("Labo Tri").Range("A7").PasteSpecial Paste:=xlPasteValues (Erreur d'exécution)

Application.CutCopyMode = False

'Selection.ClearContents ?? pourquoi effacer la copie effectuée

With Sheets("Suivi Cotises")

.Activate

.Range("A7").Select

End With

End Sub

Je me permets d'attirer ton attention que c'est un Excel 2003 car j'ai testé sur Excel2016 ça fonctionne parfaitement.

Par ailleurs, tu me poses la question, dans ta proposition de code, pourquoi j'efface la copie réalisée ? En fait, c'est un contournement pour réaliser un tri sur ma feuil ("Suivi Cotises") qui est colorisée 1 ligne sur 2 mais voilà le tri me bouleverse cette mise en forme. Du coup, je copie les valeurs provisoirement mes données sur autre feuil ("Labo Tri") donc après le tri, je recopie vers la 1ère et je supprime sur la 2ème.

Merci pour ton aide.

Jacques

Re,

J'a écrit :

Vérifie le nom ou l'existence de la feuille Labo Tri.

Cdlt.

Oui ! c'est bien la bonne syntaxe.

Bonjour à tous,

après tests de ce code sous XL2003:

Sheets("Suivi Cotises").Range("A7:B12").Copy
Sheets("Labo Tri").Range("A7").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

Pas d'erreurs !

Ce serait quand même bien le nom de feuille "Labo Tri" qui poserait problème. un espace en trop quelque part et la feuille n'est pas reconnue.

A tout hasard , une solution de contournement qui fonctionne chez moi :

 Sheets("Labo Tri").Range("A7:B12") = Sheets("Suivi Cotises").Range("A7:B12").Value

S'il y avait encore une erreur, ce serait effectivement le nom de feuille...... ( ou Excel à changer.... )

Bonjour,

Tu double-cliques sur l'onglet de ta feuille et tu cpie le nom puis tu le colles dans la procédure et là, tout devrait rentrer dans l'ordre

Bonjour,

Ça fonctionnait sur toutes les autres feuilles sauf celle là. J'ai fini par comprendre qu'une TextBox et ListBox étaient activées sur cette feuille qui fonctionnent sur les versions 2007 et plus, en revanche pas sur Excel 2003 et c'est bien ça qui ne permettait pas d'exécuter la macro VBA. J'ai donc intégré cette TextBox et ListBox dans un UserForm compatible Excel 2003 et tout est rentré dans l'ordre.

Encore merci pour vos conseils

A bientôt

Jacques