Effacer des feuilles

[JoelleN]

Bonjour le forum,

J'ai un bouton de commande qui efface toute les feuilles qui commence par "client_touche". Quand je clique sur le bouton il efface un feuille et apres il m'affiche un indice d'erreur: l'indice n'appartient pas à la selection.

voila mon code:


Private Sub CommandButton1_Click()
Dim WK_workbook As Workbooks
Dim Mycount, i

Mycount = Workbooks("EssaiClient").Worksheets.Count

For i = 1 To Mycount
If Left(Workbooks("EssaiClient").Worksheets(i).Name, 13) = "client_touche" Then

Workbooks("EssaiClient").Worksheets(i).Delete
End If

Next i



End Sub


Merci pr votre aide.

Bonne journée!!!

 

[ballmaster]

Re : Effacer des feuilles

Bonjour,

Pour effacer du contenu, je crois qu'il faut utiliser clearcontents et non delete.

Delete supprime et donc si je ne m'abuse, il te retourne un message d'erreur puisqu'il supprimerait l'ensemble des feuilles de ton classeur, donc pas possible.

 

[JoelleN]

Re : Effacer des feuilles

re ballmaster,

Peux tu etre plus explicite avec la fonction clearcontent????
Je la retrouve pas, comment l'utiliser ?? je la mets à la place de Delete ??

 

[GIBI]

Re : Effacer des feuilles

Bonjour,

Pour supprimer les onglets iol faur commencer par la fin, car le nombre d'onglet change à chaque suppression

For i = Mycount to 1 step -1



Par contre pour effacer le contenu remplace le delete par

Workbooks("EssaiClient").Worksheets(i).Cells.Clear


GIBI

 

[ballmaster]

Re : Effacer des feuilles

Re bonjouir,

Il faut remplacer ce bout de code ci :

Workbooks("EssaiClient").Worksheets(i).Delete

par :


Workbooks("essaiclient").Worksheets(i).Select
Selection.ClearContents

Dis moi si cela te convient

 

[JoelleN]

Re : Effacer des feuilles

Merci à vous tous, ca marche bien.