Problème pour un copier/coller de valeurs VBA

Résolu

astridlet -
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention - 29 déc. 2010 à 20:23

Bonjour,

Je n'arrive pas à faire une sélection de valeurs (comme dans un collage spécial valeur)... Du coup lors de mon collage je n'ai que des #REF! ...
Quelqu'un sait-il ce qu'il faut que je modifie? :/

Voici mon code:


Sub ou()
      Dim tablo() As String, i As Integer
      tablo = Split("60601,66501", ",")
      For i = LBound(tablo) To UBound(tablo)
             Sheets(tablo(i)).Range("O101:AF" & Sheets(tablo(i)).Range("AF65536").End(xlUp).Row).Copy Destination:=Sheets("ETP").Range("B65536").End(xlUp).Offset(1, 0)
      Next i
End Sub

A voir également:

Problème pour un copier/coller de valeurs VBA
Retrouver un copier-coller android - Guide
Copier coller pdf - Guide
Copier-coller - Accueil - Informatique
Style d'écriture a copier coller - Guide
Symbole clavier copier coller - Guide

3 réponses

Réponse 1 / 3

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

Bonjour,

Essayer ce code :

Sub ou()
Dim tablo() As String, i As Integer
tablo = Split("60601,66501", ",")
For i = LBound(tablo) To UBound(tablo)
  Sheets(tablo(i)).Range("O101:AF" & _
  Sheets(tablo(i)).Range("AF65536").End(xlUp).Row).Copy
  Sheets("ETP").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial _
  (xlPasteValues)
Next i
Application.CutCopyMode = False
End Sub

Réponse 2 / 3

astridlet

c'est parfait merci!

Réponse 3 / 3

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

De rien, au plaisir de te relire sur le forum
Bonnes Fêtes

Discussions similaires

dessin avec symbole clavier

Arobase

dessin au clavier cannabis

Comment retrouver le presse papier sur iPhone ?

Votre réponse

Discussions similaires