Supprimer une ligne sur deux feuilles
Stefan7
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,
Je rencontre un souci sur VBA Excel, j'ai un macro qui agir sur deux feuilles différentes du même classeur.
J'arrive a ajouter et modifier les lignes d'une feuille en fonction de l'autre feuille. Le souci que je rencontre est que quand je supprime une ligne sur une feuille, cela n'agit pas sur l'autre feuille.
Que faire?
Merci de bien vouloir m'aider
Stéphane AHO
Je rencontre un souci sur VBA Excel, j'ai un macro qui agir sur deux feuilles différentes du même classeur.
J'arrive a ajouter et modifier les lignes d'une feuille en fonction de l'autre feuille. Le souci que je rencontre est que quand je supprime une ligne sur une feuille, cela n'agit pas sur l'autre feuille.
Que faire?
Merci de bien vouloir m'aider
Stéphane AHO
A voir également:
- Supprimer une ligne sur deux feuilles
- Supprimer rond bleu whatsapp - Guide
- Comment supprimer une page sur word - Guide
- Comment faire un livret avec des feuilles a4 - Guide
- Comment supprimer une application préinstallée sur android - Guide
- Partager photos en ligne - Guide
2 réponses
Bonjour,
je supprime une ligne sur une feuille, cela n'agit pas sur l'autre feuille.
Vous les supprimer comment: avec du code, manuellement ?????????????
je supprime une ligne sur une feuille, cela n'agit pas sur l'autre feuille.
Vous les supprimer comment: avec du code, manuellement ?????????????
Bonjour,
avec l'évenement feuille Worksheet_BeforeDoubleClick
https://silkyroad.developpez.com/VBA/EvenementsFeuille/#LII-B
L'action se déclenche au double clic sur la ligne à supprimer
allez sur la feuille concernée et faire Alt F11 pour accèder au module de cette feuille et mettre ce code:
avec l'évenement feuille Worksheet_BeforeDoubleClick
https://silkyroad.developpez.com/VBA/EvenementsFeuille/#LII-B
L'action se déclenche au double clic sur la ligne à supprimer
allez sur la feuille concernée et faire Alt F11 pour accèder au module de cette feuille et mettre ce code:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim ligne As Integer
ligne = Target.Row
Rows(ligne & ":" & ligne).Delete Shift:=xlUp
Sheets("Feuil2").Rows(ligne & ":" & ligne).Delete Shift:=xlUp
End Sub
Merci