Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Copier-collage spécial valeur - PB cellules fusionnées

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

2 réponses
Avatar
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 _
:=False, Transpose:=False
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
--------
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Philippe.R
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" a écrit dans le message de
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
--------


Avatar
Sunburn
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" a écrit dans le message de
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
> --------