Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Before delete lignes

Before delete lignes

9 réponses
Avatar
Flac
Bonjour,
Excel 2000,
Avant de supprimer une ou des lignes, je voudrais savoir
la somme des valeurs de la colonne 9 des lignes
supprimées,


Y aurait-il une façon de ce faire.

Merci

Flac
Signaler un problème avec ce contenu

9 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
LSteph
Bonjour,

oui!
sélectionne la colonne 9
regarde en bas à droite dans la barre d'état c'est écrit.
Cordialement.

--
lSteph

Flac a écrit :
Bonjour,
Excel 2000,
Avant de supprimer une ou des lignes, je voudrais savoir
la somme des valeurs de la colonne 9 des lignes
supprimées,


Y aurait-il une façon de ce faire.

Merci

Flac





Avatar
Flac
Bonjour,
Ce n'est pas précisément ce que je voulais.
C'est qu'au moment où l'utilisateur sélectionne les lignes à supprimer, je
voudrais qu'on récupère, dans une macro, seulement la valeur de la colonne 9
de la ou des lignes à être supprimées.

ça pourrait ressembler à ceci

dim valeur as double
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
valeur = addition des valeurs de la colonne 9 des lignes sélectionnées
End Sub


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Sheets("Données").range("b5") = valeur
End Sub

Je ne sais pas si c'est possible, mais je fais une tentative à tout hasard

Merci d'avance

Flac



"LSteph" a écrit dans le message de news:

Bonjour,

oui!
sélectionne la colonne 9
regarde en bas à droite dans la barre d'état c'est écrit.
Cordialement.

--
lSteph

Flac a écrit :
Bonjour,
Excel 2000,
Avant de supprimer une ou des lignes, je voudrais savoir
la somme des valeurs de la colonne 9 des lignes
supprimées,


Y aurait-il une façon de ce faire.

Merci

Flac






Avatar
Fredo P
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim plg As Range, lg As Byte, Cl As Byte
Set plg = Selection
lg = plg(1, 1).Row
Set plg = Range(Range(Cells(lg, 9), Cells(lg + plg.Rows.Count - 1,
9)).Address)
MsgBox Application.Sum(plg)
End Sub

"Flac" a écrit dans le message de news:
u$
Bonjour,
Ce n'est pas précisément ce que je voulais.
C'est qu'au moment où l'utilisateur sélectionne les lignes à supprimer, je
voudrais qu'on récupère, dans une macro, seulement la valeur de la colonne
9 de la ou des lignes à être supprimées.

ça pourrait ressembler à ceci

dim valeur as double
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
valeur = addition des valeurs de la colonne 9 des lignes sélectionnées
End Sub


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Sheets("Données").range("b5") = valeur
End Sub

Je ne sais pas si c'est possible, mais je fais une tentative à tout hasard

Merci d'avance

Flac



"LSteph" a écrit dans le message de news:

Bonjour,

oui!
sélectionne la colonne 9
regarde en bas à droite dans la barre d'état c'est écrit.
Cordialement.

--
lSteph

Flac a écrit :
Bonjour,
Excel 2000,
Avant de supprimer une ou des lignes, je voudrais savoir
la somme des valeurs de la colonne 9 des lignes
supprimées,


Y aurait-il une façon de ce faire.

Merci

Flac









Avatar
Flac
Bonjour et merci Pedro P,
Ta solution fonctionne très bien pour additionner les
valeurs.
Il resterait maintenant à intégrer la valeur "Sum(plg)
lorsque les lignes sont effectivement supprimées.

Genre:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
if "l'ensemble des lignes sélectionnées" => 1 then
MsgBox Application.Sum(plg)
end if
end sub

Merci encore


Flac





"Fredo P" a écrit dans le
message de news:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim plg As Range, lg As Byte, Cl As Byte
Set plg = Selection
lg = plg(1, 1).Row
Set plg = Range(Range(Cells(lg, 9), Cells(lg + plg.Rows.Count - 1,
9)).Address)
MsgBox Application.Sum(plg)
End Sub

"Flac" a écrit dans le message de news:
u$
Bonjour,
Ce n'est pas précisément ce que je voulais.
C'est qu'au moment où l'utilisateur sélectionne les lignes à supprimer,
je voudrais qu'on récupère, dans une macro, seulement la valeur de la
colonne 9 de la ou des lignes à être supprimées.

ça pourrait ressembler à ceci

dim valeur as double
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
valeur = addition des valeurs de la colonne 9 des lignes sélectionnées
End Sub


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Sheets("Données").range("b5") = valeur
End Sub

Je ne sais pas si c'est possible, mais je fais une tentative à tout
hasard

Merci d'avance

Flac



"LSteph" a écrit dans le message de news:

Bonjour,

oui!
sélectionne la colonne 9
regarde en bas à droite dans la barre d'état c'est écrit.
Cordialement.

--
lSteph

Flac a écrit :
Bonjour,
Excel 2000,
Avant de supprimer une ou des lignes, je voudrais savoir
la somme des valeurs de la colonne 9 des lignes
supprimées,


Y aurait-il une façon de ce faire.

Merci

Flac













Avatar
Fredo P
"Flac" a écrit dans le message de news:

Bonjour et merci Pedro P,


Eh! je n'suis pas le mari de la Conchita!
Je ne suis pas certain d'avoir compris, si tu souhaites avoir le résultat
sur une cellule ex A1, rien de plus simple
en lieu et plce de MsgBox Application.Sum(plg) , [A1]=Application.Sum(plg)

Ta solution fonctionne très bien pour additionner les
valeurs.
Il resterait maintenant à intégrer la valeur "Sum(plg)
lorsque les lignes sont effectivement supprimées.

Genre:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
if "l'ensemble des lignes sélectionnées" => 1 then
MsgBox Application.Sum(plg)
end if
end sub

Merci encore


Flac





"Fredo P" a écrit dans le
message de news:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim plg As Range, lg As Byte, Cl As Byte
Set plg = Selection
lg = plg(1, 1).Row
Set plg = Range(Range(Cells(lg, 9), Cells(lg + plg.Rows.Count - 1,
9)).Address)
MsgBox Application.Sum(plg)
End Sub

"Flac" a écrit dans le message de news:
u$
Bonjour,
Ce n'est pas précisément ce que je voulais.
C'est qu'au moment où l'utilisateur sélectionne les lignes à supprimer,
je voudrais qu'on récupère, dans une macro, seulement la valeur de la
colonne 9 de la ou des lignes à être supprimées.

ça pourrait ressembler à ceci

dim valeur as double
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
valeur = addition des valeurs de la colonne 9 des lignes sélectionnées
End Sub


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Sheets("Données").range("b5") = valeur
End Sub

Je ne sais pas si c'est possible, mais je fais une tentative à tout
hasard

Merci d'avance

Flac



"LSteph" a écrit dans le message de news:

Bonjour,

oui!
sélectionne la colonne 9
regarde en bas à droite dans la barre d'état c'est écrit.
Cordialement.

--
lSteph

Flac a écrit :
Bonjour,
Excel 2000,
Avant de supprimer une ou des lignes, je voudrais savoir
la somme des valeurs de la colonne 9 des lignes
supprimées,


Y aurait-il une façon de ce faire.

Merci

Flac

















Avatar
LSteph
;o))) Salut Pedro F

mdr

@+
--
lSteph

(...d'ici à ce que notre ami veuille supprimer la ligne1 ;-)

Fredo P a écrit :
"Flac" a écrit dans le message de news:

Bonjour et merci Pedro P,


Eh! je n'suis pas le mari de la Conchita!
Je ne suis pas certain d'avoir compris, si tu souhaites avoir le résultat
sur une cellule ex A1, rien de plus simple
en lieu et plce de MsgBox Application.Sum(plg) , [A1]=Application.Sum(plg)


Avatar
Jacky
Hé Pedro. ;o))))))))))
... la valeur "Sum(plg) lorsque les lignes sont effectivement supprimées.


0 zéro
;o))
--
Salutations
JJ


"Fredo P" a écrit dans le
message de news: eBFf$

"Flac" a écrit dans le message de news:

Bonjour et merci Pedro P,


Eh! je n'suis pas le mari de la Conchita!
Je ne suis pas certain d'avoir compris, si tu souhaites avoir le résultat
sur une cellule ex A1, rien de plus simple
en lieu et plce de MsgBox Application.Sum(plg) ,
[A1]=Application.Sum(plg)

Ta solution fonctionne très bien pour additionner les
valeurs.
Il resterait maintenant à intégrer la valeur "Sum(plg)
lorsque les lignes sont effectivement supprimées.

Genre:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
if "l'ensemble des lignes sélectionnées" => 1 then
MsgBox Application.Sum(plg)
end if
end sub

Merci encore


Flac





"Fredo P" a écrit dans le
message de news:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim plg As Range, lg As Byte, Cl As Byte
Set plg = Selection
lg = plg(1, 1).Row
Set plg = Range(Range(Cells(lg, 9), Cells(lg + plg.Rows.Count - 1,
9)).Address)
MsgBox Application.Sum(plg)
End Sub

"Flac" a écrit dans le message de news:
u$
Bonjour,
Ce n'est pas précisément ce que je voulais.
C'est qu'au moment où l'utilisateur sélectionne les lignes à supprimer,
je voudrais qu'on récupère, dans une macro, seulement la valeur de la
colonne 9 de la ou des lignes à être supprimées.

ça pourrait ressembler à ceci

dim valeur as double
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
valeur = addition des valeurs de la colonne 9 des lignes sélectionnées
End Sub


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Sheets("Données").range("b5") = valeur
End Sub

Je ne sais pas si c'est possible, mais je fais une tentative à tout
hasard

Merci d'avance

Flac



"LSteph" a écrit dans le message de news:

Bonjour,

oui!
sélectionne la colonne 9
regarde en bas à droite dans la barre d'état c'est écrit.
Cordialement.

--
lSteph

Flac a écrit :
Bonjour,
Excel 2000,
Avant de supprimer une ou des lignes, je voudrais savoir
la somme des valeurs de la colonne 9 des lignes
supprimées,


Y aurait-il une façon de ce faire.

Merci

Flac





















Avatar
Flac
Bonjour,
Tu n'es pas loin d'avoir bien compris. C'est que je veux avoir la somme de
toutes les suppressions, même si elles ne se font pas en même temps.
Or, je remarque que la macro semble s'exécuter 2 fois.
Une fois quand je sélectionne les lignes avec le bouton gauche de la souris
et une autre fois quand je les supprime avec le bouton droit.
C'est la raison pour laquelle je voulais récupérer la valeur dans le
"SelectionChange" et l'appliquer dans
"WorksheetChange" quand des lignes entières sont sélectionnées.
Et pour répondre à LSteph, oui, j'aurai besoin d'aide lorsque je devrai
supprimer la première de la plage de données.

Merci à tous,

Flac
"Fredo P" a écrit dans le
message de news: eBFf$

"Flac" a écrit dans le message de news:

Bonjour et merci Pedro P,


Eh! je n'suis pas le mari de la Conchita!
Je ne suis pas certain d'avoir compris, si tu souhaites avoir le résultat
sur une cellule ex A1, rien de plus simple
en lieu et plce de MsgBox Application.Sum(plg) ,
[A1]=Application.Sum(plg)

Ta solution fonctionne très bien pour additionner les
valeurs.
Il resterait maintenant à intégrer la valeur "Sum(plg)
lorsque les lignes sont effectivement supprimées.

Genre:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
if "l'ensemble des lignes sélectionnées" => 1 then
MsgBox Application.Sum(plg)
end if
end sub

Merci encore


Flac





"Fredo P" a écrit dans le
message de news:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim plg As Range, lg As Byte, Cl As Byte
Set plg = Selection
lg = plg(1, 1).Row
Set plg = Range(Range(Cells(lg, 9), Cells(lg + plg.Rows.Count - 1,
9)).Address)
MsgBox Application.Sum(plg)
End Sub

"Flac" a écrit dans le message de news:
u$
Bonjour,
Ce n'est pas précisément ce que je voulais.
C'est qu'au moment où l'utilisateur sélectionne les lignes à supprimer,
je voudrais qu'on récupère, dans une macro, seulement la valeur de la
colonne 9 de la ou des lignes à être supprimées.

ça pourrait ressembler à ceci

dim valeur as double
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
valeur = addition des valeurs de la colonne 9 des lignes sélectionnées
End Sub


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Sheets("Données").range("b5") = valeur
End Sub

Je ne sais pas si c'est possible, mais je fais une tentative à tout
hasard

Merci d'avance

Flac



"LSteph" a écrit dans le message de news:

Bonjour,

oui!
sélectionne la colonne 9
regarde en bas à droite dans la barre d'état c'est écrit.
Cordialement.

--
lSteph

Flac a écrit :
Bonjour,
Excel 2000,
Avant de supprimer une ou des lignes, je voudrais savoir
la somme des valeurs de la colonne 9 des lignes
supprimées,


Y aurait-il une façon de ce faire.

Merci

Flac





















Avatar
Fredo P
Même que je ris encore o))

"LSteph" a écrit dans le message de news:
%23$
;o))) Salut Pedro F

mdr

@+
--
lSteph

(...d'ici à ce que notre ami veuille supprimer la ligne1 ;-)

Fredo P a écrit :
"Flac" a écrit dans le message de news:

Bonjour et merci Pedro P,


Eh! je n'suis pas le mari de la Conchita!
Je ne suis pas certain d'avoir compris, si tu souhaites avoir le résultat
sur une cellule ex A1, rien de plus simple
en lieu et plce de MsgBox Application.Sum(plg) ,
[A1]=Application.Sum(plg)