Collage spécial avec end.xl

Nicolas -  
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

1 réponse

  1.  f894009
    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
    0
    1. 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
    2. f894009
      @NicolasRe,

      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

Discussions similaires

annuler la touche coller
coller

2 réponses
Comment faire le symbole attention
Juliaaa

17 réponses
Symbole Attention dans Word
Nortec59

33 réponses
Coller un script dans la console
Temp

5 réponses
Comment faire le signe de croix (chrétiens) ?
Chachaba

15 réponses