Supprimer une ligne sur deux feuilles
Fermé
Stefan7
-
Modifié le 22 mars 2018 à 18:56
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 23 mars 2018 à 10:51
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 23 mars 2018 à 10:51
A voir également:
- Supprimer une ligne sur deux feuilles
- Supprimer compte instagram - Guide
- Supprimer une page word - Guide
- Supprimer compte facebook - Guide
- Supprimer une conversation messenger pour les deux personnes ✓ - Forum Facebook
- Comment ne pas apparaître en ligne sur whatsapp - Guide
2 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
23 mars 2018 à 07:52
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 ?????????????
je supprime une ligne sur une feuille, cela n'agit pas sur l'autre feuille.
Vous les supprimer comment: avec du code, manuellement ?????????????
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
23 mars 2018 à 10:51
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:
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
23 mars 2018 à 08:13
Merci