Pastespecial

[JC de Lorient]

Bonjour le forum
j'ai un soucis que je ne m'esplique pas
je fais un copier coller en VBA et ma macro bugge sur Paste special
With Sheets('Feuil1')
b = Range('A65536').End(xlUp).Row + 1
.Range('A' & b).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With

Dans un autre macro ça fonctionne
Là je suis complètement perdu

Merci a vous

 

[ArnaudEIC]

Salut,
Pour coller il faut d'abord avoir copier quelque chose et apparement si tu ne le fais pas ça explose. J'ai rajouter une ligne de copie avant le PasteSpecial et ton code fonctionne.

 

[JC de Lorient]

salut Arnaud
je l'ai ma copie
en mode pas à pas quand j'arrive sur cette ligne
et que je fasse un CTRL V en manuel ça fonctionne
C'est là que je pige pas

 

[ArnaudEIC]

je comprend pas tout. La copie que tu fais, c'est àla main ou par programation ?
Si c'est à la main avant de lancer la macro c'est normal que cela ne fonctionne pas.

 

[JC de Lorient]

re
non c'est la macro qui le fait
moi j'ai simplement tester en manuel pour voir ce que j'avais dans mon presse papier
et j(ai bien ma copie VBA
c'est un grand mystère !!

 

[ArnaudEIC]

tu pourrai mettre un peu plus de ton code que ça soit plus simple de reproduire comme sur ton poste ?

 

[JC de Lorient]

re
impossible de le joindre en live (le forum plante quand je soumets)

et impossible de joindre fichier
plus de lien içi

 

[MichelXld]

bonjour JC , bonjour Arnaud

tu peux faire un essai en precisant le nom de la feuille lors de la recherche de la 1ere ligne vide

With Sheets('Feuil1')
b = .Range('A65536').End(xlUp).Row + 1
.Range('A' & b).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With


bonne soiree
MichelXld