Effacer feuille

[britchouleloup]

j'ai affecté à une variable la valeur d'une cellule:

empruntasuppr=ActiveCell.Value

je voudrais effacer les feuilles du classeur dont le nom est "empruntasuppr", j'ai tenté :

sheets(empruntasuppr).delete

mais cela ne marche pas. J'ai cherché sur le forum, mais je ne trouve pas de sujet y répondant, merci par avance.

 

[Catrice]

Re : Effacer feuille

Bonsoir,

Peux tu préciser ?
Tu dis : effacer les feuilles du classeur qui portent le nom ...
Les noms de feuilles sont uniques dans un classeur ?!
Un petit fichier pour mieux comprendre ?...

ActiveCell.Value contient le nom d'une feuille ?

 

[dixit]

Re : Effacer feuille

bonsoir,
une remarque préalable qui ne sert peut-être à rien, mais un même classeur ne peut pas contenir plusieurs feuilles avec le même nom.
pour delete, il me semble qu'il faut d'abord select.
sheets(empruntasuppr).select
activesheet.delete
quand tu dis que cela ne marche pas, soit plus précis : quel est le message d'erreur.

ps : bonsoir Catrice : le même discours en 1 mn !

 

[dixit]

Re : Effacer feuille

re
finalement, cela fonctionne sans select.
voir classeur joint la macro efface la Feuil1
donc tu dois avoir une salade dans ta ou tes variables : mal définies ou autre ...

 

[britchouleloup]

Re : Effacer feuille

Voici
Dim empruntasuppr As String
empruntasuppr = ActiveCell.Value

Sheets(empruntasuppr).Delete

En fait la cellule porte le nom d'un emprunt, pour lequel j'avais préalablement crée une feuille(le nom emprunt=nom feuille). Je selectionne l'emprunt et je clique sur mon bouton, c'est censé supprimer la feuille correspondante.
Message d'erreur affiché = .
"erreur d'execution '9' L'indice n'appartien pas à la selection. "
Peut parceque il n'y a pas de guillement entourant mon nom emprunt dans la cellule active,non?

 

[Catrice]

Re : Effacer feuille

Bonjour,

Ca fonctionne tres bien, voir le fichier joint.

Sub test()
empruntasuppr = ActiveCell.Value
Sheets(empruntasuppr).Delete
End Sub

Ton probleme est à mon avis :
- soit la cellule active ne contient pas le bon nom d'onglet
- soit tu n'est pas sur la cellule qui contient un nom de de l'onglet à supprimer au moment de l'execution de la macro.

 

[britchouleloup]

Re : Effacer feuille

C'est, je crois, un détail mais j'ai oublié le "s" à sheets. Ce doit être pour ça
merci beaucoup quand même

 

[britchouleloup]

Re : Effacer feuille

Ca marche nickel mon truc
J'ai reflechit au pb n'est ce pas parceque j'ai définit la variable "empruntasuppr as String" quand je mets as Variant ou rien cela marche.
Autre question, comment éviter que le message me demandant de confirmer la suppression de la feuille n'apparaisse. Alors que j'en prevoit dejà un. merci de bien vouloir m'aider.

 

[Dull]

Re : Effacer feuille

Salut britchouleloup, Catrice, Dixit, le Forum

Essaye ça

Application.DisplayAlerts = false
'....................
Application.DisplayAlerts = True

bonne Journée