Collage spécial avec end.xl

Fermé

Nicolas - 9 oct. 2015 à 15:50
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 - 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

A voir également:

Collage spécial avec end.xl
Caractere special - Guide
Photo collage maker - Télécharger - Montage photo
Pic collage gratuit - Télécharger - Photo & Graphisme
Ecriture special facebook - Guide
Ecriture special instagram - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
9 oct. 2015 à 16:35

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
9 oct. 2015 à 17:10

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 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710 > Nicolas
Modifié par f894009 le 9/10/2015 à 17:32

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

Comment faire le symbole coeur vide/coeur blanc

[clavier] parenthèses {}