Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Déclencher une macro lors d'une suppression de ligne

Déclencher une macro lors d'une suppression de ligne

6 réponses
Avatar
Denys
Bonjour =E0 tous,

Est-il possible de d=E9clencher une macro lors d'une suppression de
ligne par l'usager?

La raison de ma demande est que lorsque l'on supprime une ligne, les
calculs sont affect=E9s sur les autres feuilles. Alors, je vais cr=E9er
une macro qui refera tous les calculs sur chaque page lorsque
quelqu'un supprimera une ligne dans n'importe quelle feuille.... A
moins que vous ayez une fa=E7on d'=E9viter cela..

Merci

Denys
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jpmonnier
Bonjour,
Il y a une solution simple,
Tu déprotèges les cellules ou l'utilisateur doit avoir accès
(Menu/Format/Cellules/Protection/ Décocher Verrouillée
Puis tu protèges ta feuille
Ancune ligne ne pourra etre supprimée
--
Cordialement


"Denys" a écrit dans le message de
news:
Bonjour à tous,

Est-il possible de déclencher une macro lors d'une suppression de
ligne par l'usager?

La raison de ma demande est que lorsque l'on supprime une ligne, les
calculs sont affectés sur les autres feuilles. Alors, je vais créer
une macro qui refera tous les calculs sur chaque page lorsque
quelqu'un supprimera une ligne dans n'importe quelle feuille.... A
moins que vous ayez une façon d'éviter cela..

Merci

Denys
Avatar
Denys
OOOOOOOOOoooooopppppppppsssssssss,

J'ai dû mal m'exprimer..... De temps en temps, l'usager doit supprimer
des lignes....... d'où le besoin de cette macro....

Denys
Avatar
Daniel.C
Bonsoir.
Dans un module :

Public Lignes As Long

Dans le module de ta feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count Mod 256 = 0 And ActiveSheet.UsedRange.Rows.Count <
Lignes Then
' ici ta macro
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Lignes = ActiveSheet.UsedRange.Rows.Count
End Sub

Valable sauf pour XL2007 (remplacer 256 par 16384 (sous toute réserve).
Cordialement.
Daniel
"Denys" a écrit dans le message de news:

OOOOOOOOOoooooopppppppppsssssssss,

J'ai dû mal m'exprimer..... De temps en temps, l'usager doit supprimer
des lignes....... d'où le besoin de cette macro....

Denys
Avatar
Denys
Bonsoir Daniel,

Merci infiniment, je vais sauver beaucoup de temps....

Bonne soirée

Denys
Avatar
Daniel.C
Bonjour.
Le test n'est pas suffisant. Utilise à la place :

If Target.Rows.Count * 256 = Target.Count And _
ActiveSheet.UsedRange.Rows.Count < Lignes Then
' ici ta macro
End If

Daniel
"Denys" a écrit dans le message de news:

Bonsoir Daniel,

Merci infiniment, je vais sauver beaucoup de temps....

Bonne soirée

Denys
Avatar
Flac
Bonjour,
Excel 2000,
Si je voulais obtenir la somme des valeurs de la colonne 9 des lignes
supprimées,
y aurait-il une façon de ce faire.

Merci

Flac


"Daniel.C" a écrit dans le message de news:
%
Bonjour.
Le test n'est pas suffisant. Utilise à la place :

If Target.Rows.Count * 256 = Target.Count And _
ActiveSheet.UsedRange.Rows.Count < Lignes Then
' ici ta macro
End If

Daniel
"Denys" a écrit dans le message de news:

Bonsoir Daniel,

Merci infiniment, je vais sauver beaucoup de temps....

Bonne soirée

Denys