Supprimer une ligne sur deux feuilles

Fermé

Stefan7 - Modifié le 22 mars 2018 à 18:56
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 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:

Supprimer une ligne sur deux feuilles
Supprimer une page word - Guide
Supprimer compte instagram - Guide
Deux comptes whatsapp - Guide
Aller à la ligne sur excel - Guide
Apparaitre hors ligne instagram - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
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 ?????????????

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

Réponse 2 / 2

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
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

Discussions similaires

Comment supprimer une conversation Messenger pour les 2 personnes ?

Statut « en ligne » alors que non

Que veut dire "correspondant occupé" lors d'un appel ?

On me voit connecté sur facebook alors que je n'y suis pas

Discussions similaires

Newsletters