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
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
A voir également:
- Supprimer une ligne sur deux feuilles
- Comment supprimer une page sur word - Guide
- Supprimer compte instagram - Guide
- Comment aller à la ligne sur excel - Guide
- Partager photos en ligne - Guide
- Site de vente en ligne particulier - Guide
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
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
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
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