Copier-collage spécial valeur - PB cellules fusionnées

Le
Sunburn
Bonjour,
je souhaite dépalcer des informations, en faisant un copier-collage valeur.
j'utilise cette macro, mais ça plante lorsque ma cellule de la copie est une
cellule fusionnée.
Est-ce possible de remédier à ce problème ?
Merci . YANN
-
Sub DEPFTS80()
'onglet 10_21
Sheets("10_21").Select
'deplacement
Range("H8:H18").Select
Selection.Copy
Range("D8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse
Application.CutCopyMode = False
'effacement
Range("E8:G18,F21,E24,E36,A40").Select
Selection.ClearContents
'on met la valeur NA en A4
Range("A4") = "NA"
End Sub
--
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #17945981
Bonjour,
Le mieux est de supprimer la fusion, avec cette ligne de code
Selection.UnMerge
après Range("D8").Select
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Sunburn" news:
Bonjour,
je souhaite dépalcer des informations, en faisant un copier-collage
valeur.
j'utilise cette macro, mais ça plante lorsque ma cellule de la copie est
une
cellule fusionnée.
Est-ce possible de remédier à ce problème ?
Merci . YANN
----
Sub DEPFTS80()
'onglet 10_21
Sheets("10_21").Select
'deplacement
Range("H8:H18").Select
Selection.Copy
Range("D8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
_
:úlse, Transpose:úlse
Application.CutCopyMode = False
'effacement
Range("E8:G18,F21,E24,E36,A40").Select
Selection.ClearContents
'on met la valeur NA en A4
Range("A4") = "NA"
End Sub
--------


Sunburn
Le #17946521
merci
yann

"Philippe.R" a écrit :

Bonjour,
Le mieux est de supprimer la fusion, avec cette ligne de code
Selection.UnMerge
après Range("D8").Select
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Sunburn" news:
> Bonjour,
> je souhaite dépalcer des informations, en faisant un copier-collage
> valeur.
> j'utilise cette macro, mais ça plante lorsque ma cellule de la copie est
> une
> cellule fusionnée.
> Est-ce possible de remédier à ce problème ?
> Merci . YANN
> ----
> Sub DEPFTS80()
> 'onglet 10_21
> Sheets("10_21").Select
> 'deplacement
> Range("H8:H18").Select
> Selection.Copy
> Range("D8").Select
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
> _
> :úlse, Transpose:úlse
> Application.CutCopyMode = False
> 'effacement
> Range("E8:G18,F21,E24,E36,A40").Select
> Selection.ClearContents
> 'on met la valeur NA en A4
> Range("A4") = "NA"
> End Sub
> --------




Publicité
Poster une réponse
Anonyme