Discussion :

[astridlet]

Bonjour,

Voilà j'ai un problème pour supprimer une plage de données.
Je voudrais, avant de lancer mon remplissage de tableau (voir code ci dessous), supprimer toutes les anciennes données de la feuille "ttt" en commençant à la ligne B (car la ligne A contient les titres du tableau)...

Quelqu'un sait comment faire?

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub ou()
 
Dim tablo() As String, i As Integer
tablo = Split("60601,66501", ",")
For i = LBound(tablo) To UBound(tablo)
 
Sheets(tablo(i)).Range("T7:EV" & Sheets(tablo(i)).Range("EV85").End(xlUp).Row).Copy
Sheets("ttt").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Next i
End Sub

[Philippe Tulliez]

Bonjour,
Par exemple en ajoutant cette instruction juste avant la copie.

Code :

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

Sheets("ttt").Range("B1").CurrentRegion.Offset(1, 0).ClearContents

Donc

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("ttt").Range("B1").CurrentRegion.Offset(1, 0).ClearContents 
Sheets(tablo(i)).Range("T7:EV" & Sheets(tablo(i)).Range("EV85").End(xlUp).Row).Copy
Sheets("ttt").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Next i
End Sub

[astridlet]

Merci !! Cela fonctionne très bien !