créer une macro supprimant des onglets selon certaines conditions

[dedel74]

Bonjour à tous,
Je reviens vers vous car j'ai encore besoin d'aide pour le développement de mes macros.
J'ai créé une trame de devis dans un classeur avec différents onglet :
- Produit
- Options
- Accessoires
-Récapitulatif
J'ai créer une macro qui me permet de supprimer pour chaque onglet les lignes qui n'ont pas été renseignée, mais il se peut qu'une personne sélectionne seulement un produit donc je n'aurai pas besoin des feuilles options et acessoires, je voudrais donc les supprimer si celles sont vides (c'est à dire aucune quantité renseignées en colonne E).
Pouvez vous m'aider, je n'ai pas trouver de réponse en surfant sur le forum.
Merci d'avance
dedel74

 

[tototiti2008]

Re : créer une macro supprimant des onglets selon certaines conditions

Bonjour dedel,

c'est à dire aucune quantité renseignées en colonne E

Tu devrais peut-être tester la somme des cellule de la colonne E

Genre

with sheets("Options")
if application.SUM(.range("E1:E65536")) = 0 then
application.displayalerts = false
.delete
application.displayalerts = true
end if
end with

et même chose avec l'autre feuille
Le 65536 est à adapter à 2007 (pour le nombre de lignes d'une feuille)

 

[dedel74]

Re : créer une macro supprimant des onglets selon certaines conditions

MERCI BEAUCOUP
Cela fonctionne, cela fait un moment que je cherche, vous m'enlevez une grosse épine du pieds.
Merci encore pour votre réponse, votre rapidité, c'est génial.
Dedel74

 

[dedel74]

Re : créer une macro supprimant des onglets selon certaines conditions

MERCI BEAUCOUPCela fonctionne, cela fait un moment que je cherche, vous m'enlevez une grosse épine du pieds.
Merci encore pour votre réponse, votre rapidité, c'est génial.
Dedel74

 

[dedel74]

Re : créer une macro supprimant des onglets selon certaines conditions

Re Bonjour,

Je vous embête encore une fois mais j'ai encore une question sur le même dossier.
Dans ma dernière feuille Récapitulatif
J'ai une ligne :
- produit
- Options
- Accessoires
reprenant le total de chaque feuille
Etant donné que j'a irentré la forumule pour supprimer la feuille option lorsque celle ci est vide, je voudrais supprimer la ligne 9 de la feuille récapitulatif en même tempes. Est ce possible ?
Merci d'avance
dedel74

 

[tototiti2008]

Re : créer une macro supprimant des onglets selon certaines conditions

Re,


peut-être

with sheets("Options")
if application.SUM(.range("E1:E65536")) = 0 then
application.displayalerts = false
.delete
sheets("Recapitulatif").range("A9").entirerow.delete
application.displayalerts = true
end if
end with

 

[dedel74]

Re : créer une macro supprimant des onglets selon certaines conditions

Merci pour votre réponse
Mais sur ce coup là, cela ne marche pas
Il me met en surbrillance la ligne : sheets("Recapitulatif").range("A9").entirerow.delete
Merci quand même pour votre réponse
dedel74

 

[tototiti2008]

Re : créer une macro supprimant des onglets selon certaines conditions

Re,

Chez moi ça marche bien, as-tu vérifié le nom de la feuille Récapitulatif ?
le code est dans un module ou dans le code d'une feuille ?

 

[Pierrot93]

Re : créer une macro supprimant des onglets selon certaines conditions

Bonjour,

sheets("Recapitulatif").range("A9").entirerow.dele te

attention, tu as une espace dans le mot "delete"

sheets("Recapitulatif").range("A9").entirerow.delete

bonne soirée
@+

 

[dedel74]

Re : créer une macro supprimant des onglets selon certaines conditions

MERCI BEAUCOUP
J'avais une erreur dans le titre de ma feuille, c'est OK.
Merci encore pour votre aide.
C'est génial
dedel74