Déclencher une macro lors d'une suppression de ligne
6 réponses
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..
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
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
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
jpmonnier-no-spam@neuf.fr
"Denys" <denys.perreault@rbc.com> a écrit dans le message de
news:f4f166f3-bb95-4037-95a8-b2f22fb2df77@w7g2000hsa.googlegroups.com...
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..
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
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
OOOOOOOOOoooooopppppppppsssssssss,
J'ai dû mal m'exprimer..... De temps en temps, l'usager doit supprimer
des lignes....... d'où le besoin de cette macro....
J'ai dû mal m'exprimer..... De temps en temps, l'usager doit supprimer des lignes....... d'où le besoin de cette macro....
Denys
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
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" <denys.perreault@rbc.com> a écrit dans le message de news:
7835a37f-c81f-4576-8900-f7c75415e890@x41g2000hsb.googlegroups.com...
OOOOOOOOOoooooopppppppppsssssssss,
J'ai dû mal m'exprimer..... De temps en temps, l'usager doit supprimer
des lignes....... d'où le besoin de cette macro....
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
Denys
Bonsoir Daniel,
Merci infiniment, je vais sauver beaucoup de temps....
Bonne soirée
Denys
Bonsoir Daniel,
Merci infiniment, je vais sauver beaucoup de temps....
Merci infiniment, je vais sauver beaucoup de temps....
Bonne soirée
Denys
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
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" <denys.perreault@rbc.com> a écrit dans le message de news:
766514a1-857a-4193-ac08-f3497af09df1@k37g2000hsf.googlegroups.com...
Bonsoir Daniel,
Merci infiniment, je vais sauver beaucoup de temps....
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
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
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23JJtFG9FJHA.828@TK2MSFTNGP03.phx.gbl...
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" <denys.perreault@rbc.com> a écrit dans le message de news:
766514a1-857a-4193-ac08-f3497af09df1@k37g2000hsf.googlegroups.com...
Bonsoir Daniel,
Merci infiniment, je vais sauver beaucoup de temps....