pas de sujet

Je suis d'accord avec le fait que le Range "B4:B5" a été utilisé dans le
seul but de créer la mcro et que ce Range "B4:B5" n'est plus nécessaire
et que c'est de lui que doit venir le probleme.
OK, mais par quoi le remplacer dans ma macro ?
J'ai mis en commentaire Range("B4:B5").Select, mais ça ne marche tjrs pa
s
Sub CollerValeur()
' Range("B4:B5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlank
s:= _
False, Transpose:=False
End Sub

NB : Pour Misange : je veux bien sur créer un bouton apres, mais il faut
d'abord que la macro marche...

>Bonjour.
>A mon avis, c'est une macro enregistrée. La ligne Range("B4:B5").Select
doit
>être supprimée et remplacée par une sélection manuelle.
>Daniel
>"Bruno LOUIS" <bruno@hamelin-lecardonnel.fr> a écrit dans le message de

>news: 42e9f25f$0$25029$8fcfb975@news.wanadoo.fr...
>> Bonjour Eric,
>>
>> Le plantage vient probablement du fait qu'il n'y a rien à copier, le

>> presse-papier est vide.
>>
>> Il te faudrait une commande du type Selection.Copy avant ton instruct
ion
>> Range("B4:B5").Select
>>
>> Je ne comprends pas l'intérêt de ta macro. Telle qu'elle est rédigée
la
>> zone B4:B5 est la cible. Elle se trouvera donc écrasée à chaque fois

>> qu'elle s'exécutera.
>>
>> Cordialement,
>>
>> Bruno
>>
>> "eric" <eric@eric.fr> a écrit dans le message de news:
>> dccq8m$j78$1@news.x-echo.com...
>>> Bonjour,
>>> En ce moment, je fais beaucoup de coper/collage spécial/Formules,Val
eurs
>>> ou Formats.
>>> POur automatiser cela, j'ai fait ce qui suit :
>>> 1) je selectionne mes cellules et je fais copier .
>>> 2) je selectionne la zone à copier et je crée une nouvelle macro, je
fai
>>> s collagespécial/Valeurs, OK et j'arrete la macro avant de lui donn
er u
>>> n nom.
>>> 3) Pour tester ma macro, je copie lescellules, et j'exécute la macro
, ma
>>> is j'obtiens le message suivant : "erreur d'exécution 1004, la métho
de P
>>> asteSpecial de la classe Range a échoué".
>>> Voilà le contenu de ma macro :
>>> Sub CollerValeur()
>>> Range("B4:B5").Select
>>> Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBl
ank
>>> s:= _
>>> False, Transpose:=False
>>> End Sub
>>> Une explication ?
>>> Merci d'avance
>>> Eric
>>>
>>> =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
>>> Article poste via Voila News - http://www.news.voila.fr
>>> Le : Fri Jul 29 10:44:06 2005 depuis l'IP : 81.255.5.245 [VIP
>>> 215971270583]
>>
>>
>
>


=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Article poste via Voila News - http://www.news.voila.fr
Le : Fri Jul 29 14:31:34 2005 depuis l'IP : 81.255.5.245 [VIP 215971270583]