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
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
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
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
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
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
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
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" <lecocosteph@frite.fr> a écrit dans le message de news:
ecbho70HJHA.1088@TK2MSFTNGP02.phx.gbl...
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
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
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
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" <luc_bt@hotmail.com> a écrit dans le message de news:
u$U2RK1HJHA.1160@TK2MSFTNGP05.phx.gbl...
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" <lecocosteph@frite.fr> a écrit dans le message de news:
ecbho70HJHA.1088@TK2MSFTNGP02.phx.gbl...
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
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
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
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" <ponsinet.frederic363etdesbrouettes@orange.fr> a écrit dans le
message de news: eVoiji1HJHA.1304@TK2MSFTNGP02.phx.gbl...
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" <luc_bt@hotmail.com> a écrit dans le message de news:
u$U2RK1HJHA.1160@TK2MSFTNGP05.phx.gbl...
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" <lecocosteph@frite.fr> a écrit dans le message de news:
ecbho70HJHA.1088@TK2MSFTNGP02.phx.gbl...
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
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
"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)
"Flac" <luc_bt@hotmail.com> a écrit dans le message de news:
uOfHa41HJHA.4232@TK2MSFTNGP03.phx.gbl...
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)
"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)
... la valeur "Sum(plg) lorsque les lignes sont effectivement supprimées.
"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
... la valeur "Sum(plg) lorsque les lignes sont effectivement supprimées.
"Flac" <luc_bt@hotmail.com> a écrit dans le message de news:
uOfHa41HJHA.4232@TK2MSFTNGP03.phx.gbl...
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" <ponsinet.frederic363etdesbrouettes@orange.fr> a écrit dans le
message de news: eVoiji1HJHA.1304@TK2MSFTNGP02.phx.gbl...
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" <luc_bt@hotmail.com> a écrit dans le message de news:
u$U2RK1HJHA.1160@TK2MSFTNGP05.phx.gbl...
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" <lecocosteph@frite.fr> a écrit dans le message de news:
ecbho70HJHA.1088@TK2MSFTNGP02.phx.gbl...
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
... la valeur "Sum(plg) lorsque les lignes sont effectivement supprimées.
"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
"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
"Flac" <luc_bt@hotmail.com> a écrit dans le message de news:
uOfHa41HJHA.4232@TK2MSFTNGP03.phx.gbl...
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" <ponsinet.frederic363etdesbrouettes@orange.fr> a écrit dans le
message de news: eVoiji1HJHA.1304@TK2MSFTNGP02.phx.gbl...
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" <luc_bt@hotmail.com> a écrit dans le message de news:
u$U2RK1HJHA.1160@TK2MSFTNGP05.phx.gbl...
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" <lecocosteph@frite.fr> a écrit dans le message de news:
ecbho70HJHA.1088@TK2MSFTNGP02.phx.gbl...
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
"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
;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)
;o))) Salut Pedro F
mdr
@+
--
lSteph
(...d'ici à ce que notre ami veuille supprimer la ligne1 ;-)
Fredo P a écrit :
"Flac" <luc_bt@hotmail.com> a écrit dans le message de news:
uOfHa41HJHA.4232@TK2MSFTNGP03.phx.gbl...
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)
;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)