Discussion :

[bosk1000]

bonjour à tous

quelle ligne de commande me permettrais d'effacer a partir de la ligne 2 et jusqu'à la fin de mon tableau, dans la colonne A jusqu'à la colonne R ?

merci.

[issoram]

Bonjour,

Ceci devrait faire l'affaire:

Code :

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

1
2
3
4
5
6
7
Dim WS as Worksheet      'ta feuille à initialiser
Dim nmax_l As Long       'le nombre de ligne max de ta feuille
dim indl_last_data As Long  'indice de la dernière ligne non vide de la colonne A
WS = set .....            'initialisation de ta feuille
nmax_l = WS.Rows.Count
indl_last_data = WS.Range(WS.Cells(nmax_l, 1), WS.Cells(nmax_l, 1)).End(xlUp).Row
WS.Range("A2" & ":" & "R" & indc_last_data).Clear

Cordialement

[bosk1000]

merci pour ton aide

sur la 4eme ligne j'ai mis

Code :

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

1
2
 
WS = set Sheets("commande")

mais ça ne conviens pas
que dois-je mettre ?

[ZebreLoup]

Code :

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

Set WS = Sheets("Commande")

[issoram]

Oui effectivement c'est une erreur de ma part

Code :

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

Set WS = Sheets("Commande")

est la bonne syntaxe.

Cordialement

[bosk1000]

merci
ça fonctionne