Collage spécial avec end.xl

Nicolas -
f894009 Messages postés 17417 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
Caractere spécial - Guide
Ecriture special facebook - Guide
Logiciel collage photo - Télécharger - Montage photo
Ecriture special instagram - Guide

1 réponse

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

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 _
...
0
1. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717 > 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
  
  0

Collage spécial avec end.xl

1 réponse

Discussions similaires

Newsletters