Collage spécial avec end.xl

Nicolas -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention - 9 oct. 2015 à 17:19

Bonjour,

je souhaiterai pouvoir coller en valeur une sélection de cellules dans la première colonne vide, seulement le code de collage spécial ne fonctionne pas
Ci dessous le code qui bug :

Sheets("base").Range("C1:Q159").Copy
Range("C1").End(xlToRight)(1, 1).Select
<code>ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

J'ai besoin de copier en valeur car des cellules contiennent des calculs et ces derniers ce modifient en changeant de destination

Quelqu'un aurait-il une astuce ?

Merci d'avance pour votre aide

Afficher la suite

A voir également:

Collage spécial avec end.xl
Caractere special - Guide
Dossier spécial - Guide
Symbole special - Guide
Ecriture special instagram - Guide
Ecriture special facebook - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

Sub test()
    Sheets("base").Range("C1:Q159").Copy
    Range("C1").End(xlToRight)(1, 2).Select     '(1,1) derniere cellule non vide de la ligne
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
End Sub

Nicolas

Oui effectivement c'est bien Range("C1").End(xlToRight)(1, 2).Select je me suis trompé en copiant dans le post
En revanche cela ne marche pas non plus avec Selection et en allant à la ligne aprèsOperation:=xlNone et après SkipBlanks _
...

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713 > Nicolas

Re,

il faut recoller les morceaux

Sub test()
    Sheets("base").Range("C1:Q159").Copy
    Range("C1").End(xlToRight)(1, 2).Select     '(1,1) derniere cellule non vide de la ligne
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

Discussions similaires

Coller un script dans la console

♡ Coeur vide : Comment le faire ? (Solution !)

Saisie des symboles à l'aide du clavier

annuler la touche coller

Votre réponse

Discussions similaires