Select sheet

[clautu]

Bonjour à tous du forum,

J'ai une question consernant une macro.
J'utilise une macro comme celle-ci
Sheets("feuil1").Select
ActiveWindow.SelectedSheets.Delete
pour suprimer une feuille. Mes feuille étant masquées j'aimerais remplacer "feuil1" par une variable. Ou je pourrais sélectionner dans un banque de noms de feuilles celle que je voudrais supprimer.
J'ai essayé avec
Sheets("activecell.value").Select
ActiveWindow.SelectedSheets.Delete
mais ça ne marche pas.
Quelqu'un peu , encore une fois venir à mon aide SVP

Merci

 

[wilfried_42]

Re : Select sheet

bonjour clautu

eneve les "" et ca devrait fonctionner, personnellement j'ai horreur des select qui provoquent un deplacement physique d'excel

si ca marche, à prouver !, je te propose : sheets(activecells.value).delete

bonne soirée

 

[gianluca]

Re : Select sheet

Bonsoir le fil, Le forum...


Pardon de me greffer sur ce post, mais Wilfried, peut-on éviter les select ?
en les remplaçant par activate ?


Bonne soirée

Gianluca

 

[wilfried_42]

Re : Select sheet

bonjour gianluca

je n'utilise jamais les activate et le moins possible les select, j'utilise les select lorsque je dois me positionner à un endroit precis pour une action utilisateur.

Des que je peux faire autrement, meme si le code est lourd, je le fais, le gain de temps est appreciable puisque tout est evolutif donc peut prendre de grosses proportions.

bonne soirée et à + sur le forum

 

[gianluca]

Re : Select sheet

Re le fil...


Merci Wilfried de ta réponse... je crois que mon niveau ne me permet pas de me passer des select 🙂 Dommage, cela aurait sans doute résolu mon Pb de barres grises en plein écran.


Bonne soirée à tous

Gianluca.

 

[wilfried_42]

Re : Select sheet

re:

d'apres ce que j'ai compris, tes barres grises seraient dues au mode plein ecran.Sinon on peu y remedier

 

[clautu]

Re : Select sheet

Salut Wilfried 42
J'ai essayé le sheets(activecell.value).delete et ça ne fonctionne pas.
Il doit y avoir un moyen
Je veux que mes onglets de feuilles restent masqués . J'ai donc créé une macro qui me retranscrit dans une colonne le noms de chaque feuilles et lorsque je veux supprimer une feuille. Je la selectionner en b1 ou b2 ou b3 ...par exemple et à ce moment le nom disparait de cette liste et disparait aussi de mes oglets.

Merci de m'aider à trouver la solution

 

[clautu]

Re : Select sheet

Salut à tous,
Je me répond à moi même pour vous dire que j'ai trouver la solution à mon
problème Je me suis fait un combobox et je suis passé par
Sheets(combobox.value).delete
et Ca marche.

Mais j' ai un autre probleme.
Maintenant que j'ai supprimer la feuille son nom demeure dans ma liste.
Y a -t-il une formule qui dirait "si tu trouve ce nom dans une cellule de la colonne a1 à a100 supprime ce nom"
Merci à tous et Je vous trouve extrêmement aimables , compétents et patients

A+

 

[gianluca]

Re : Select sheet

Re Clautu, le fil...


Alors j'essaie une première réponse...

Dim Cell as Range

For Each Cell In Range("A7:A100")
If Cell.Value = ComboBox.value Then
Cell.Value = " "
ComboBox.value = " "
End If
Exit For
Next Cell
l

A tester.... Mais les experts qui suivent ce forum auront sans doute mieux à te proposer...

Bonne journée

Gianluca.

 

[wilfried_42]

Re : Select sheet

bonjour à tous

voici un fichier exemple pour supprimer une feuille
je suis positionné sur une cellule qui contient le nom de la feuille et j'appuie sur le bouton

 

[clautu]

Re : Select sheet

Merci à tous,
Gianluca tu as exactement ce qu'ils me faut mais il semble ne pas fonctionné il ne supprime le nom de la cellule. IL ne me met pas de message d erreur mais il ne supprime pas le contenu de la cellule. Je vais essayé de le retravauillé. Mais c'est exactement cela que je voulais. C'est à dire trouver une valeur dans une plage et si elle y est, la supprimer

Merci

 

[gianluca]

Re : Select sheet

Re le fil,

je t'ai joins un petit fichier. j'avais un peu merdu dans mon premier essai
🙂

Bonne soirés

Gianluca

 

[clautu]

Re : Select sheet

Salut le forun,
Merci mille fois pour vcotre aide c'est exactement ce que je voulais.
Vous êtes extrêmement sympathique. Je vous en suis reconnaissant

Merci

😉 🙂