Problème pour un copier/coller de valeurs VBA
Résolu
astridlet
-
Patrice33740 Messages postés 8930 Statut Membre -
Patrice33740 Messages postés 8930 Statut Membre -
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:
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 - Accueil - Informatique
- Copier coller pdf - Guide
- Style d'écriture a copier coller - Guide
- Symbole clavier copier coller - Guide
3 réponses
Bonjour,
Essayer ce code :
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