OVH Cloud OVH Cloud

Cherche costaud en VBA

2 réponses
Avatar
vpco
Bonjour à tous,

Alors voilà le but de ma quête :

J’ai fait un classeur pour gérer mes relevés d’horaires journalier à mon
boulot.

J’ai donc initialement dans ce classeur quand je commence une année deux
feuilles :

La feuil du « Modèle »
La feuil des « paramètres ».

Ce modèle permet la saisie de mes horaires journalier sur une semaine.

J’ai donc fait une macro qui copie le « modèle » l’intègre dans le classeur
et nomme la copie par le numéro de la semaine. L’avantage de ce procédé c’est
que je conserve toujours mon « modèle » intact. Donc en fin d’année j’ai fort
justement dans mon classeur :

Le « modèle »
Les « paramètres »
Les 52 feuilles de saisie hebdomadaires toutes nommées par leur numéro de
semaine.

Bref tout ça pour dire que je bute sur un soucis, je n’arrive pas à faire
une macro qui retrouverait une des feuilles hebdomadaires, la sélectionnerait
et la supprimerait du classeur.

Merci si vous pouvez m’aider.

2 réponses

Avatar
RedRick
Je vois deux solutions à ta recherche
les deux utilisent Sheets( identité de la feuill)
enregistre une macro qui effectue les opérations que tu veux réaliser

puis modifie la en recherchant la partie ou la feuille est sélectionnée
dans le genre

Sheets("Feuil2").Select
ActiveWindow.SelectedSheets.Delete

puis à la place de "Feuil2" indique le nom ou le numéro d'index de ta feuille
Si tu marque le nom directement, n'oublie pas de l'entourer de guillemets
s'il est inclus dans une variable , pas de guillement autour de celle ci
pour ne numéro d'index, il se constitue en fonction de l'arrivée de tes
feuilles
( et attention il se réincrémente si tu as déjà supprimé une feuille...)

après cela si tu as le coeur...
je te propose deux solutions pour rechercher le numéro de ta feuille...

dim numero_a_supprimer as string' ici c'est bien une chaine de caractère
numero_a_supprimer = inputbox( "quel est le numéro de la semaine que vous
voulez supprimer")
Sheets(numero_a_supprimer ).Select ' ic pas de guillemets car c'est une
variable que tu as définie comme string...
ActiveWindow.SelectedSheets.Delete

l'autre solution c'est la création d'une boite de dialogue "Userform" avec
un menu déroulant( combobox) ou une listbox

que tu pourra remplir avec les une procédure du genre...

For i = 1 to Thisworkbook.sheets.count
Userform1.listbox1.additem Thiswokbook.sheets(i-1).name ' l'index commence à
0 si je ne me trompe...
next

un bouton annuler
un bouton qui supprime la feuille seletionner...
et toc..




Bonjour à tous,

Alors voilà le but de ma quête :

J’ai fait un classeur pour gérer mes relevés d’horaires journalier à mon
boulot.

J’ai donc initialement dans ce classeur quand je commence une année deux
feuilles :

La feuil du « Modèle »
La feuil des « paramètres ».

Ce modèle permet la saisie de mes horaires journalier sur une semaine.

J’ai donc fait une macro qui copie le « modèle » l’intègre dans le classeur
et nomme la copie par le numéro de la semaine. L’avantage de ce procédé c’est
que je conserve toujours mon « modèle » intact. Donc en fin d’année j’ai fort
justement dans mon classeur :

Le « modèle »
Les « paramètres »
Les 52 feuilles de saisie hebdomadaires toutes nommées par leur numéro de
semaine.

Bref tout ça pour dire que je bute sur un soucis, je n’arrive pas à faire
une macro qui retrouverait une des feuilles hebdomadaires, la sélectionnerait
et la supprimerait du classeur.

Merci si vous pouvez m’aider.



Avatar
Did
Bonjour "vpco"

Je te joins un lien pour telecharger un classeur
http://cjoint.com/?fvjZBTtaY0 qui j'espere
te sera utile pour résoudre ton problème.

A+
Did

"vpco" a écrit dans le message de news:

Bonjour à tous,

Alors voilà le but de ma quête :

J'ai fait un classeur pour gérer mes relevés d'horaires journalier à mon
boulot.

J'ai donc initialement dans ce classeur quand je commence une année deux
feuilles :

La feuil du « Modèle »
La feuil des « paramètres ».

Ce modèle permet la saisie de mes horaires journalier sur une semaine.

J'ai donc fait une macro qui copie le « modèle » l'intègre dans le
classeur
et nomme la copie par le numéro de la semaine. L'avantage de ce procédé c'est
que je conserve toujours mon « modèle » intact. Donc en fin d'année j'ai
fort
justement dans mon classeur :

Le « modèle »
Les « paramètres »
Les 52 feuilles de saisie hebdomadaires toutes nommées par leur numéro de
semaine.

Bref tout ça pour dire que je bute sur un soucis, je n'arrive pas à faire
une macro qui retrouverait une des feuilles hebdomadaires, la
sélectionnerait
et la supprimerait du classeur.

Merci si vous pouvez m'aider.