Discussion :

[astridlet]

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>

[rvtoulon]

Bonjour,
essaye en utilisant la valeur de la cellule, sans la méthode copy, comme ceci, remplace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("ETP").Range("B65536").End(xlUp).Offset(1, 0).Value = Sheets(tablo(i)).Range("O101:AF" & Sheets(tablo(i)).Range("AF65536").End(xlUp).Row).Value

Tiens nous au courant.

[astridlet]

C'est bon je viens de trouver une solution comme suit:

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
Sheets("ETP").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Next i
End Sub

Merci !!