VBA PasteSpecial qui ne fonctionne pas

[Maxitos]

Bonjour tout le monde !

J'ai un problème qui me turlupine, et je pense que vos regards éclairés sauront me dire ce qui ne va pas.

Le code suivant fonctionne :

dim adresse as string
Workbooks(classeur).Sheets(feuille).Activate

Range("A1").Value = 1000
Range("A1").Copy

adresse = Range("plagenommée").Address

Range(adresse).Parent.Activate
Range(adresse).Activate

ActiveSheet.Paste

Le même mais avec un PasteSpecial ne fonctionne pas (1004 : Erreur definie par l'application ou par l'objet) :

dim adresse as string
Workbooks(classeur).Sheets(feuille).Activate

Range("A1").Value = 1000
Range("A1").Copy

adresse = Range("plagenommée").Address

Range(adresse).Parent.Activate
Range(adresse).Activate

'erreur ici :
ActiveSheet.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False

Quelqu'un aurait une idée d'où mon problème pourrait venir ?

Merci d'avance 😉

Max

 

[francedemo]

Re : VBA PasteSpecial qui ne fonctionne pas

bonjour,
je dirai, à priori que tu ne lui donne pas la bonne destination, à savoir, où il doit coller les infos :

essaye avec:
Range(adresse).PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False

à +

 

[Maxitos]

Re : VBA PasteSpecial qui ne fonctionne pas

Edit: Merci de m'aider 😱

Avec ton code j'ai "La methode PasteSpecial de la classe Range a échoué" ...

Je désespère avec ce classeur 😕

 

[francedemo]

Re : VBA PasteSpecial qui ne fonctionne pas

je pense que tu as un truc qui cloche avec "range(adresse)", l'enregistreur de macro donne une réponse approchante
tu es sur que range(adresse) correspond bien à une zone sélectionnable ?
à +

 

[Maxitos]

Re : VBA PasteSpecial qui ne fonctionne pas

Oui oui puisque le paste normal fonctionne parfaitement. Donc la sélection se fait correctement, mais pas le PasteSpecial

 

[francedemo]

Re : VBA PasteSpecial qui ne fonctionne pas

quand tu le fais en manuel, ça fonctionne ?
tes cellule sont bien en format nombre ? (multiplier un nombre avec des carottes...😉)
à +

 

[Maxitos]

Re : VBA PasteSpecial qui ne fonctionne pas

En manuel ça fonctionne bien. Et justement c pour en faire des nombres que je multiplie par un scalaire.

 

[herve62]

Re : VBA PasteSpecial qui ne fonctionne pas

J'avais trouvé aussi , mais trop lent ... enfin je confirme que : Range(adresse).PasteSpecial
est correct , j'ai testé , j'obtiens une plage avec des 0 ( multiply) qui corespond bien si on fait à la main

 

[MJ13]

Re : VBA PasteSpecial qui ne fonctionne pas

Bonjour Maxitos, Francedemo

Essaye peut-être un code de ce type:

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

 

[tototiti2008]

Re : VBA PasteSpecial qui ne fonctionne pas

Bonjour à tous,

dans la ligne

adresse = Range("plagenommée").Address

ça ne serait pas plutôt

adresse = Range("plagenommée").Value

?

(suite à ton dernier fil)

Edit : Bonjour hervé, Bonjour Michel

comme ça ça a l'air de passer

Dim adresse As String
classeur = "Classeur2.xlsx"
feuille = "Feuil1"
Workbooks(classeur).Sheets(feuille).Activate

Range("A1").Value = 1000
Range("A1").Copy

adresse = Range("plagenommée").Value

Range(adresse).Parent.Activate
Range(adresse).Activate

'erreur ici :
ActiveCell.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False

 

[ayaflo]

Re : VBA PasteSpecial qui ne fonctionne pas

Bonjour,

Il faut que tu remplaces activesheet.pastespecial par selection.pastespecial. mais dans ce cas là il faut que tu sélectionne qu préalable une cellule de destination avec un range("..").select ou activecell.offset(..,..).select,....

Ayaflo

 

[Maxitos]

Re : VBA PasteSpecial qui ne fonctionne pas

Bonjour MJ13,

Ton code fonctionne, mais tu m'accordera qu'on perd l'utilité première de mon PasteSpecial qui est de multiplier par un nombre. 😉

Mais au moins ça montre que la syntaxe PasteSpecial est la bonne, ce qui pose problème semble être a priori le Operation:=xlMultiply

Lorsque je met Operation:=xlMultiply , il s'arrête avant de coller sans afficher d'erreur maintenant. Si je termine à la main ça marche

 

[Maxitos]

Re : VBA PasteSpecial qui ne fonctionne pas

tototiti2008, c'est bien .Address parce que "plagenommée" est une formule qui renvoie une plage , .Value me renverai la valeur de la premiere cellule de la plage il me semble

 

[tototiti2008]

Re : VBA PasteSpecial qui ne fonctionne pas

Bonjour ayaflo,
Re,

je ne crois pas, mais bon, essaye le code que je t'ai proposé et dis-nous

 

[Maxitos]

Re : VBA PasteSpecial qui ne fonctionne pas

Afin d'éviter tout problème sur les adresses, j'ai repris a la main les références de plage :

Ce code me fait donc un copier coller classique et fonctionnel :

Workbooks(classeur).Sheets(feuille).Activate

Range("A1").Value = 1000
Range("A1").Copy
Sheets("h24").Activate
Range("Q3:Q543").Select

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

Tandisque celui la ne fait rien (enfin selectionne bien A1, la copie, selectionne la range, mais ne colle pas avec multiply comme prévu)

Workbooks(classeur).Sheets(feuille).Activate

Range("A1").Value = 1000
Range("A1").Copy
Sheets("h24").Activate
Range("Q3:Q543").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, SkipBlanks _
        :=False, Transpose:=False

J'espère que j'ai été clair,

Merci à tous 😉