Discussion :

[geoffrey.brunet]

Bonjour à tous,

J'ai un problème qui m'échappe complètement.
J'utilise une macro du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    Range("E6").Select
    Selection.Copy
    Range("F6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False

Sur un excel vierge, pas de problème elle fonctionne. Par contre, quand je la copie dans un de mes fichiers un peu plus compliqué (avec sub, fonctions, variables public, tableaux structurés...), impossible de la faire fonctionner. Même si je la laisse complètement inchangée, à partir du moment où elle est dans un module de mon autre excel :
- la copie de la cellule ne fonctionne pas
- j'ai un message d'erreur concernant Pastespecial :

Erreur de compilation : Membre de méthode ou de données introuvable

Il doit y avoir un paramètre du fichier qui bloque, mais je n'ai aucune idée.

Quelqu'un aurait une idée ? D'avance merci beaucoup de votre aide.
Bonne soirée,
Geoffrey

[Philippe Tulliez]

Bonjour,
Sans évoquer l'inutilité de l'usage des méthodes Select, Activate, et propriété Selection, il n'y a aucune raison que cela ne fonctionne pas dans des procédures quelconques puisque l'on n'utilise aucune parentalité de l'objet Range donc cela doit fonctionner même si le résultat attendu ne répond pas à ton attente.

Cependant sans visualiser le code des procédures dont tu dis rencontrer des problèmes, il est impossible de pouvoir te répondre sérieusement sauf si nous étions magicien, devin, chaman, utilisateur de boule de cristal, lecteur de mars de café, etc.

[Transitoire]

Bonjour, sauf erreur ou omission de ma part, les deux macros ci-dessous font la même chose.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Range("E6").Select
Selection.Copy
Range("F6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
 
Sub Test2()
Range("F6").Value = Range("E6").Value  ' Il est d'ailleurs conseillé de rajouter systématiquement la parentalité ex: with worksheets("Feuil1") en en sortie End with
End Sub

Il doit y avoir un paramètre du fichier qui bloque, mais je n'ai aucune idée.

En ce qui concerne la question, je pencherais peut-être pour des cellules fusionnées dont la réponse peut des fois être surprenante? Mais je suis d'accord avec #Philippe Tulliez (), il n'y a pas assez de renseignements pour vous aider plus.

Cordialement

[geoffrey.brunet]

Bonjour à tous les deux, bonjour le forum,

Incompréhensible. J'ai copié tous les onglets, puis toutes les macros dans un nouvel excel. Et tout fonctionnait. Je travaille une demi journée dessus et à la fin, ça bug à nouveau. Enfin .copy fonctionne, .paste non...

J'ai finalement utilisé la solution de contournement consistant à mettre le contenu de mon tableau structuré excel dans une variable, et j'ai copié cette variable dans un autre tableau structuré excel. Non sans mal car je n'avais jamais manipulé des tableaux. En somme, je suis partie de l'idée "Range("F6").Value = Range("E6").Value" mais avec des tableaux. J'ai n'ai donc pas trouvé la cause du problème, mais j'ai trouvé une solution.

Pour répondre aux autres questions/commentaires :
- Le code très long, j'ai préféré éviter le flood et me concentrer sur le problème Copy/paste qui me semblait assez particulier (et ce code simple tel que je l'ai écrit ne fonctionnait effectivement pas)
- Assez particulier pour (j'avoue) avoir espéré que c'était un problème connu n'ayant pas besoin de faire appel à vos dons chamaniques
- Compte tenu de mon niveau vba, j'ai aussi préféré vous éviter une attaque en lisant mon code (qui doit être du niveau d'une dissertation écrite par un enfant de 4 ans)
- Le vrai code incluait évidemment les bonnes parentalités (quand même ! )
- Détail que j'aurais peut être du préciser : le copier/coller en question était un tableau structuré dans un autre tableau structuré.
- Rapport à l'enfant de 4 ans, le Selection, activate, select &co sont des outils manquant de fiabilité, mais que je ne sais pas vraiment remplacer facilement. J'essaie de plus en plus de créer les bons objets pour leur affecter des valeurs (comme ici des matrices) mais ça me demande tellement plus temps (que je n'ai pas toujours), je me laisse donc amadouer. Et puis il faut avouer que je suis un enfant de l'enregistreur de macros.

Aveux d'un massacreur de code.
Mes excuses pour le manque de clarté en tous cas, et merci à tous les deux !
Bonne journée,
Geoffrey

[Philippe Tulliez]

Bonjour Geoffrey,

Assez particulier pour (j'avoue) avoir espéré que c'était un problème connu n'ayant pas besoin de faire appel à vos dons chamaniques

La remarque était pour le fait qu'avec ce qui était montré il était impossible de répondre sérieusement ce que confirme par l'annonce que tu fais de l'utilisation des tableaux structurés.

Cette information était primordiale pour orienter la réponse

Par contre, il est tout à fait possible d'utiliser la méthode Copy avec un objet ListObject (tableau structuré)

Si le but était de copier en ne conservant que la valeur ce que laisse supposer l'usage de PasteSpecial-Value, on peut utiliser la méthode AdvancedFilter qui fonctionne parfaitement avec les objet ListObject

A lire éventuellementsur ce sujet La méthode AdvancedFilter et l'objet ListObject

[geoffrey.brunet]

Bonjour à tous,

Mea culpa, en retravaillant sur ce même fichier, je me rends compte que j'avais créer un formulaire "Selection".
Du coup, les selection.pastevalue ne fonctionnaient plus, et c'est la raison pour laquelle ça le faisait uniquement pour ce fichier.
D'où l'intérêt de partager les fichiers sur les forums...

J'ai changé le nom du formulaire, tout est revenu dans l'ordre !

Merci encore de votre aide.
Geoffrey