Supprimer des enregistrement avant import

E

ERIC

Guest

• 9 Novembre 2005

• #2

HA j'oubliais j'aurais voulu garder les 3 premières lignes de titre

 

Vote positif 0 Vote négatif

T

ThomasR

XLDnaute Occasionnel

• 9 Novembre 2005

• #3

Bonsoir ERIC, le forum,

tu peux essayer ca

Sub thomas()
Dim ligne As Integer
ligne = Sheets('Nom_de_ta_feuille').Range('A6500').End(xlUp).Row
Sheets('Nom_de_ta_feuille').Range('A4:O' & ligne).Value = ''
End Sub

 

Vote positif 0 Vote négatif

E

ERIC

Guest

• 10 Novembre 2005

• #4

Merci ca focntionne impec juste pour ceux qui prendrait la formule
il faut mette 65536 au lieu de 6500 je pense ?

 

Vote positif 0 Vote négatif