Probleme méthode PasteSpécialRésolu

Question

Bonjour,

La méthode PasteSpécial de l'objet range à échoué.

Voilà le message d'erreur que je reçois en lançant la macro suivante:

Private Sub CommandButtonOK_Click()Dim numsemaine As IntegerApplication.Selection.Copy'MsgBox ActiveSheet.Namenumsemaine = Semaine.TextBoxNumSheets("Semaine Type").Copy Before:=Sheets(1)Sheets("Semaine Type (2)").SelectSheets("Semaine Type (2)").Name = "Sem " & numsemaine   Worksheets("Sem " & numsemaine).ActivateWorksheets("Sem " & numsemaine).Range("B2") = "Semaine n° " & numsemaineWorksheets("Sem " & numsemaine).Range("D11:Q39").SelectWorksheets("Sem " & numsemaine).Range("D11:Q39").PasteSpecialSemaine.HideEnd Sub

Qqn peut-il m'aider à trouver un début de piste de recherche?
Ce code marchait parfaitement dans un autre classeur
Je suis perdu!!

Merci d'avance

Lameche15 · Answer

Après avoir lu de nombreux posts sur le sujet j'ai l'impression que mon problème est insoluble.
Bref,
Je souhaiterais changer de méthode et utiliser un truc du style:

Sheets(1).Range(X)=Sheets(2).Range(Y)
Mais en conservant les mises en forme
notamment la couleur de remplissage.

Qqn sait-il faire cela?

Merci d'avance

ucfoutu · Answer

Bonjour,
Je souhaiterais changer de méthode et utiliser un truc du style:

Sheets(1).Range(X)=Sheets(2).Range(Y)
Mais en conservant les mises en forme
notamment la couleur de remplissage. 
Qqn sait-il faire cela? 
 
Evidemment. On sait tous faire cela.
Ouvre donc ton aide VBA à la méthode Range.Copy et utilise-là donc avec ses arguments, dont l'argument destination.
Et cesse de "travailler" avec ces affreuses méthodes de Select, Activate, Copy, Paste, etc ... Travaille directement depuis VBA avec les objets Excel

Lameche15 · Answer

Merci ucfoutu, 

Malheureusement je ne trouve pas comment faire si plage cible n'est pas prédéfinie dans ma macro.
Je voudrais que la plage selectionnée d'une feuille se copy dans une plage prédéfinie d'une autre.

Worksheets(nomfeuille).Range("F7:S35").Copy _
    Destination:=Worksheets("Sem" & numsemaine).Range("D11")

A savoir remplacer Range("F7:S35") par qqch du style "selection"

ucfoutu · Answer

A savoir remplacer Range("F7:S35") par qqch du style "selection"
Elle est bien bonne, celle-là ===>>> Mais FAIS-le donc !

Et n'oublie pas que, par définition, l'objet selection est forcément celui de la feuille en cours. Il ne faut donc pas préciser la feuille où est faite la sélection.
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Lameche15 · Answer

Moi je dis, à ce niveau la de bêtise, il faut arrêter le vba.

Merci ucfoutu de m'avoir sorti la tête du guidon...

ucfoutu · Answer

Non : pas "arrêter le VBA", mais simplement commencer à t'y intéresser. Il est à la portée de tous, crois-moi.
Il te faut maintenant libérer cette discussion. Cela se fait par un clic sur le tag RESOLU au niveau de ton tout premier message.

Probleme méthode PasteSpécial

6 réponses

Votre réponse

Discussions similaires