Supprimer une ligne sur deux feuilles

Fermé
Stefan7 - Modifié le 22 mars 2018 à 18:56
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 23 mars 2018 à 10:51
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
A voir également:

2 réponses

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
23 mars 2018 à 07:52
Bonjour,

je supprime une ligne sur une feuille, cela n'agit pas sur l'autre feuille.
Vous les supprimer comment: avec du code, manuellement ?????????????
0
aks2018 Messages postés 1 Date d'inscription jeudi 22 mars 2018 Statut Membre Dernière intervention 23 mars 2018
23 mars 2018 à 08:13
Merci de me répondre, c'est avec un code que j'arrive a ajouter et modifier. Mais je n'arrive pas a supprimer. si vous connaissez un code pour la suppression, je pense que cela pourra faire l'affaire.
Merci
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
23 mars 2018 à 10:51
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:

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


0