Discussion :

[A_blz]

Bonjour à tous,

Je souhaite coller une plage de cellule dans laquelle se situe des listes déroulantes.
J'utilise donc un collage spécial par valeur et format.

Code :

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

1
2
3
4
5
6
 
Sheets("OngletA").Range("E1:E9").Copy
Sheets("OngletB").Select
Cells(lastLign + 2, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlPasteFormats

NB : lastLign a été définie plus haut.
Cependant, lorsque j’exécute ma macro, le collage se fait correctement, mais il n'est pas en mode "special", en effet, les cellules déroulantes sont toujours là.

NB2 : lorsque j’exécute le code pas à pas j'obtiens l'erreur suivante :
Erreur 1004 : la méthode PasteSpecial de la classe Range a échoué


Merci de votre aide.

[Marc-L]

Bonjour, bonjour,

et en copiant juste les valeurs ? Sinon suffit de supprimer la validation après la copie, non ?

A lire …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[A_blz]

Vous pensez que le fait de choisir aussi "Format" entraîne la transformation de mes cellules collées en liste ?

Qu'appelez vous "validation après copie " ?

[Marc-L]

D'où viennent ces listes déroulantes, comment ont-elles été créées ?

[A_blz]

Bonjour,
Dans mon premier onglet j'ai 3 listes déroulantes créées à la main.
Je souhaite les coller dans un second onglet, mais juste par valeur et format.
Je ne souhaite pas que dans le second onglet on puisse changer la valeur de celles ci.

[A_blz]

Pardon du double post.

Je reviens sur mon code, j'ai essayé de plusieurs manières :

Code :

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

1
2
3
4
5
6
7
8
'Avec l'utilisation d'un WITH
lastlign = Sheets("FeuilleB").Range("A" & Rows.Count).End(xlUp).Row
Sheets("FeuilleA").Range("A1:F9").Copy
 
With Sheets("Historisation")
    .Cells(lastlign + 2, 1).PasteSpecial Paste:=xlPasteValues
    .Cells(lastlign + 2, 1).PasteSpecial.PasteSpecial Paste:=xlPasteFormats
End With

Code :

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

1
2
3
'Sans le WITH
Sheets("FeuilleA").Range("A1:F9").Copy
Sheets("FeuilleB").Cells(lastlign + 2, 1).PasteSpecial Paste:=xlPasteFormats

Toujours la même erreur, erreur dans la méthode SpecialPaste.

Quelqu'un a t'il une idée ?

[yaqqq]

1. version excel?

2. en fenetre VBA:
a) allez a "View" (affichage?) -> "Object browser" (explorateur d'objets?) *desole, j'ai seulement version anglais
b) cherchez sur bibliotheques (Excel) pour "XlPasteType" (c'est enum class dans excel)
c) dans "Members of XlPasteType" cherchez xlPasteFormats ou xlPasteValues; si les deux sont la - c'est vraiment bizarre...
si non - essayez:

Code :

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

1
2
3
 
Selection.PasteSpecial Paste:= -4163
Selection.PasteSpecial Paste:= -4122