Macro supprimer une même ligne dans plusieurs feuilles

Question

Bonjour, 

J'ai créé une macro associé à un bouton pour me permettre de supprimer une même ligne dans plusieurs feuilles. 

Voilà ma Macro :

ActiveCell.EntireRow.Select
    Sheets(Array("Nomenclature", "Consultations", "Officialisations")).Select
    Sheets("Nomenclature").Activate
    Selection.Delete Shift:=xlUp

Mon problème c'est que lorsque je clique sur le bouton "SUP" qui active ma macro, seul la cellule sélectionnée est supprimée. 

Quelqu'un peut-il m'aider? 

PS: Je travail avec Excel 2013 et cette Macro fonctionnais très bien avec Excel 2010

Merci d'avance

ucfoutu · Answer

Bonjour,
 L'objet Selection ne peut concerner que la feuille active.
 On ne travaille par ailleurs pas à coups de Select, Activate, Selection, etc . (évite toujours de travailler ainsi) .., mais directement sur les objets Excel
A main levée (étant entendu que toutes les feuilles sont dans le classeur actif) :
application.displayalerts = false ' ==> évite les messages/confirmationtoto = array("Feuil5", "Feuil3") ===>> ici tes feuilles à toifor i = 0 To ubound(toto)  worksheets(toto(i)).deletenextapplication.dsplayalerts = true
Ce code supprimerait toutes les feuilles nommées dans l'array
Si tu ne veux qu'y supprimer la ligne 5, par exemple ===>>
remplace
worksheets(toto(i)).delete
par
worksheets(toto(i)).rows(5).entirerow.delete
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Loulou · Answer

Bonjour, merci pour votre réponse. 
Malheureusement ça ne marche pas du tout et ça me supprime toutes mes feuilles ce que je ne souhaite pas bien évidemment .

ucfoutu · Answer

Ah oui ?
Voilà qui m'étonnerait énormément !
Montre donc (un copié/collé) ce que tu as écrit.
As-tu au moins tenu compte de ce que j'ai écrit (code de remplacement pour n'y supprimer qu'une ligne) ?

EDIT : je viens donc (c'était inutile, mais ...) de faire les frais d'un essai ===>> "marche" sans aucune faille ...
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Macro supprimer une même ligne dans plusieurs feuilles

3 réponses

Discussions similaires