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:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 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
<config>Windows XP / Firefox 3.0.19</config>
Partager