Archiver le tableau avant de le vider

[denis-J]

Bonjour à tous

Sous excel 2000

mon probléme aujourd'hui : dans la formule suivante

If Range("A29").Value <> "" Then
msg = MsgBox("Vous êtes arrivé en fin de tableau, voulez vous purger les données ?", 4, "ATTENTION")
If msg = 6 Then
Range("A7:q29").ClearContents
ElseIf msg = 7 Then
Unload CasesACocher
Exit Sub
End If

Quant je suis en (a29) j'ai ce méssage ( ça marche) mais et-il possible SVP d'archiver avant la suppression des lignes

Merci d'avance
@+ denis

 

[denis-J]

bonsoir à tous

excel 2000

j'ai l'impression que ma question n'est pas claire.

alors je recommence parcque là!, j'y pige que dale.

en fin de tableau: il occupe la case de a7 à z7 jusqu'a la ligne 29, avec un ClearContents je purge les données. là ça va!.
mais avant de le vider est'il possible de sauvegarder toutes les données dans un autre fichier en VBA bien-sur

Salutations à tous
Denis

 

[denis-J]

Bonsoir à tous

Excuser, toc toc!... je voudrais pas abuser mais je suis coincé

j'ai bien changer ma formule mais:

Private Sub cmdCmpt_Click()
Dim msg As Integer
If Range("A9").Value <> "" Then
msg = MsgBox("Vous êtes arrivé en fin de tableau, voulez vous purger les données ?", 4, "ATTENTION")
If msg = 6 Then
Range("A3:c9").Select
Range("a3").Activate
ElseIf msg = 7 Then
Unload UserForm1
Exit Sub
End If
Comment sauvegarder avec un autre nom de feuil

Voila si Qlq'1 à la soluce
Merci Bcp
@ + denis