Supprimer les mêmes lignes sur 2 feuilles

  • Initiateur de la discussion Initiateur de la discussion mister fx
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

mister fx

XLDnaute Nouveau
Bonsoir, après quelques recherches et quelques essais avec ce que j'ai pu trouver ici et là sur le forum, je n'arrive toujours pas à résoudre mon problème.

En gros je possède 2 feuilles, je souhaite supprimer des lignes (case fusionné) sur les 2. Les lignes à supprimer sont les mêmes sur les 2 feuilles. J'utilise pour l'instant cette macro, je sélectionne une case sur la ligne que je souhaite supprimer et je lance la macro. Ensuite pour supprimer la même ligne sur la seconde feuille je dois recliquer sur une case de la ligne en utilisant un inputbox. Je voudrais que la suppression de l'autre feuille se fasse directement sans passer par cet étape.

Sub Supprimer()

Worksheets("feuil1").Activate
ActiveCell.Range("A1:A4").Select
Selection.EntireRow.Delete

Worksheets("feuil2").Activate
Set Etape = Application.InputBox("Sélectionner la ligne à copier", Type:=8)
Etape.Range("A1:A4").Select
Selection.EntireRow.Delete

End Sub

Si vous avez une idée, je vous en remercie d'avance.
Cordialement
 
Re : Supprimer les mêmes lignes sur 2 feuilles

Hello,

Essaie comme ceci..
Code:
Sub Supprimer()

Worksheets("feuil1").Activate
ActiveCell.Range("A1:A4").EntireRow.Delete

Worksheets("feuil2").Activate
ActiveCell.Range("A1:A4").EntireRow.Delete

End Sub
Si tu veux revenir sur la feuil1, après la dernière ligne du code tu rajoutes..
Code:
Sheets("Feuil1").Select
 
Re : Supprimer les mêmes lignes sur 2 feuilles

Bonsoir merci de votre aide, mais cette solution ne correspond pas à ce que je recherche. Dans ce cas l'activecell sur la deuxième feuille n'étant pas la même que sur la première, cela ne me supprime pas les mêmes lignes sur les 2 feuilles. C'est pour cela que je passe par un inputbox, pour activer la même cellule que sur la feuille précédente.
 
Re : Supprimer les mêmes lignes sur 2 feuilles

Bonjour Mr fx, Hulk

essaye peut être ainsi, suppose la feuille 1 soit la feuille active :

Code:
Sheets("Feuil2").Range(ActiveCell.MergeArea.Address).EntireRow.Delete
ActiveCell.MergeArea.EntireRow.Delete

bonne journée
@+
 
Re : Supprimer les mêmes lignes sur 2 feuilles

Re, en effet je m'étais planté cela marche du feu de dieu. Merci.

Sinon est ce qu'il y a moyen de mémoriser l'adresse d'une activecell pour s'en reservir plus tard (car entre temps mon activecell a changer).

Encore merci et bonne journée.
 
Re : Supprimer les mêmes lignes sur 2 feuilles

Re,

essaye ainsi :

Code:
Dim monadresse As String
monadresse = ActiveCell.Address
'ton code
Range(monadresse).Select

A noter, si tu veux pouvoir utiliser cette variable dans une autre procédure, il faut la déclarer en public sur la première ligne d'un module standard.

Code:
Public monadresse As String

bon après midi
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
259
  • Question Question
XL 2021 listbox
Réponses
18
Affichages
301
Réponses
5
Affichages
180
Retour