Comment faire pour avoir le maximum ou le minimum d'1 série de lettres ou
mots dans une collonne
ex : série = PA, PB, PC, PD, PE
Min (série) = "PA"
Max (série) = "PE"
<> Pourquoi plg & ":" & plg ? ;-)) j'en sais fichtre rien ! Un résidu de tests ? Un copier/coller malheureux ? Pas très génant mais bizarre quand même :-) !
<> 2.-------- Je te laisse l'entière responsablité de l'intégralité du texte qui suit le 2 ! ;-)
<> Faut quand même avouer que la fonction TRIV() de Laurent apparaît comme un très <> bon choix. :-) Je n'en doute pas un instant ! Par principe je n'utilise pas (ou très rarement) de xla pour des raisons de compatibilité planétaire ;-) Plus sérieusement : à la longue, on finit par oublier que ce ne sont pas des fonctions natives et on balance des trucs qui fonctionnent...... jusqu'à la porte du bureau ! ;-)
Pour une proc (sans limitation, il me semble ?) :
Option Compare Text Sub MAX_ALPHA() x = Selection(1).Value For Each c In Selection If c > x Then Lg = c.Row: Cl = c.Column x = c End If Next On Error Resume Next MsgBox Cells(Lg, Cl).Value If Err.Number = 0 Then Exit Sub MsgBox Selection(1).Value End Sub
On va finir par ennuyer notre interlocuteur ;-) AV
Re,
<> Pourquoi plg & ":" & plg ?
;-)) j'en sais fichtre rien !
Un résidu de tests ? Un copier/coller malheureux ?
Pas très génant mais bizarre quand même :-) !
<> 2.--------
Je te laisse l'entière responsablité de l'intégralité du texte qui suit le 2 !
;-)
<> Faut quand même avouer que la fonction TRIV() de Laurent apparaît comme un
très
<> bon choix. :-)
Je n'en doute pas un instant !
Par principe je n'utilise pas (ou très rarement) de xla pour des raisons de
compatibilité planétaire ;-)
Plus sérieusement : à la longue, on finit par oublier que ce ne sont pas des
fonctions natives et on balance des trucs qui fonctionnent...... jusqu'à la
porte du bureau ! ;-)
Pour une proc (sans limitation, il me semble ?) :
Option Compare Text
Sub MAX_ALPHA()
x = Selection(1).Value
For Each c In Selection
If c > x Then
Lg = c.Row: Cl = c.Column
x = c
End If
Next
On Error Resume Next
MsgBox Cells(Lg, Cl).Value
If Err.Number = 0 Then Exit Sub
MsgBox Selection(1).Value
End Sub
On va finir par ennuyer notre interlocuteur ;-)
AV
<> Pourquoi plg & ":" & plg ? ;-)) j'en sais fichtre rien ! Un résidu de tests ? Un copier/coller malheureux ? Pas très génant mais bizarre quand même :-) !
<> 2.-------- Je te laisse l'entière responsablité de l'intégralité du texte qui suit le 2 ! ;-)
<> Faut quand même avouer que la fonction TRIV() de Laurent apparaît comme un très <> bon choix. :-) Je n'en doute pas un instant ! Par principe je n'utilise pas (ou très rarement) de xla pour des raisons de compatibilité planétaire ;-) Plus sérieusement : à la longue, on finit par oublier que ce ne sont pas des fonctions natives et on balance des trucs qui fonctionnent...... jusqu'à la porte du bureau ! ;-)
Pour une proc (sans limitation, il me semble ?) :
Option Compare Text Sub MAX_ALPHA() x = Selection(1).Value For Each c In Selection If c > x Then Lg = c.Row: Cl = c.Column x = c End If Next On Error Resume Next MsgBox Cells(Lg, Cl).Value If Err.Number = 0 Then Exit Sub MsgBox Selection(1).Value End Sub
On va finir par ennuyer notre interlocuteur ;-) AV
bsh77
Merci à vous tous pour toutes ces solutions.
rq : remerciement tardive mais période des fetes oblige . Bonne année à toutes et à tous. BS
"AV" a écrit dans le message de news: OlCjut#
Re,
<> Pourquoi plg & ":" & plg ? ;-)) j'en sais fichtre rien ! Un résidu de tests ? Un copier/coller malheureux ? Pas très génant mais bizarre quand même :-) !
<> 2.-------- Je te laisse l'entière responsablité de l'intégralité du texte qui suit le 2 !
;-)
<> Faut quand même avouer que la fonction TRIV() de Laurent apparaît comme un
très <> bon choix. :-) Je n'en doute pas un instant ! Par principe je n'utilise pas (ou très rarement) de xla pour des raisons de
compatibilité planétaire ;-) Plus sérieusement : à la longue, on finit par oublier que ce ne sont pas des
fonctions natives et on balance des trucs qui fonctionnent...... jusqu'à la
porte du bureau ! ;-)
Pour une proc (sans limitation, il me semble ?) :
Option Compare Text Sub MAX_ALPHA() x = Selection(1).Value For Each c In Selection If c > x Then Lg = c.Row: Cl = c.Column x = c End If Next On Error Resume Next MsgBox Cells(Lg, Cl).Value If Err.Number = 0 Then Exit Sub MsgBox Selection(1).Value End Sub
On va finir par ennuyer notre interlocuteur ;-) AV
Merci à vous tous pour toutes ces solutions.
rq : remerciement tardive mais période des fetes oblige .
Bonne année à toutes et à tous.
BS
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
OlCjut#xDHA.1616@TK2MSFTNGP11.phx.gbl...
Re,
<> Pourquoi plg & ":" & plg ?
;-)) j'en sais fichtre rien !
Un résidu de tests ? Un copier/coller malheureux ?
Pas très génant mais bizarre quand même :-) !
<> 2.--------
Je te laisse l'entière responsablité de l'intégralité du texte qui suit le
2 !
;-)
<> Faut quand même avouer que la fonction TRIV() de Laurent apparaît comme
un
très
<> bon choix. :-)
Je n'en doute pas un instant !
Par principe je n'utilise pas (ou très rarement) de xla pour des raisons
de
compatibilité planétaire ;-)
Plus sérieusement : à la longue, on finit par oublier que ce ne sont pas
des
fonctions natives et on balance des trucs qui fonctionnent...... jusqu'à
la
porte du bureau ! ;-)
Pour une proc (sans limitation, il me semble ?) :
Option Compare Text
Sub MAX_ALPHA()
x = Selection(1).Value
For Each c In Selection
If c > x Then
Lg = c.Row: Cl = c.Column
x = c
End If
Next
On Error Resume Next
MsgBox Cells(Lg, Cl).Value
If Err.Number = 0 Then Exit Sub
MsgBox Selection(1).Value
End Sub
On va finir par ennuyer notre interlocuteur ;-)
AV
rq : remerciement tardive mais période des fetes oblige . Bonne année à toutes et à tous. BS
"AV" a écrit dans le message de news: OlCjut#
Re,
<> Pourquoi plg & ":" & plg ? ;-)) j'en sais fichtre rien ! Un résidu de tests ? Un copier/coller malheureux ? Pas très génant mais bizarre quand même :-) !
<> 2.-------- Je te laisse l'entière responsablité de l'intégralité du texte qui suit le 2 !
;-)
<> Faut quand même avouer que la fonction TRIV() de Laurent apparaît comme un
très <> bon choix. :-) Je n'en doute pas un instant ! Par principe je n'utilise pas (ou très rarement) de xla pour des raisons de
compatibilité planétaire ;-) Plus sérieusement : à la longue, on finit par oublier que ce ne sont pas des
fonctions natives et on balance des trucs qui fonctionnent...... jusqu'à la
porte du bureau ! ;-)
Pour une proc (sans limitation, il me semble ?) :
Option Compare Text Sub MAX_ALPHA() x = Selection(1).Value For Each c In Selection If c > x Then Lg = c.Row: Cl = c.Column x = c End If Next On Error Resume Next MsgBox Cells(Lg, Cl).Value If Err.Number = 0 Then Exit Sub MsgBox Selection(1).Value End Sub
On va finir par ennuyer notre interlocuteur ;-) AV
sabatier
sauf que c'est encore pas le nouvel an chinois.... jps
bsh77 wrote:
Merci à vous tous pour toutes ces solutions.
rq : remerciement tardive mais période des fetes oblige . Bonne année à toutes et à tous. BS
"AV" a écrit dans le message de news: OlCjut#
Re,
<> Pourquoi plg & ":" & plg ? ;-)) j'en sais fichtre rien ! Un résidu de tests ? Un copier/coller malheureux ? Pas très génant mais bizarre quand même :-) !
<> 2.-------- Je te laisse l'entière responsablité de l'intégralité du texte qui suit le 2 !
;-)
<> Faut quand même avouer que la fonction TRIV() de Laurent apparaît comme un
très <> bon choix. :-) Je n'en doute pas un instant ! Par principe je n'utilise pas (ou très rarement) de xla pour des raisons de
compatibilité planétaire ;-) Plus sérieusement : à la longue, on finit par oublier que ce ne sont pas des
fonctions natives et on balance des trucs qui fonctionnent...... jusqu'à la
porte du bureau ! ;-)
Pour une proc (sans limitation, il me semble ?) :
Option Compare Text Sub MAX_ALPHA() x = Selection(1).Value For Each c In Selection If c > x Then Lg = c.Row: Cl = c.Column x = c End If Next On Error Resume Next MsgBox Cells(Lg, Cl).Value If Err.Number = 0 Then Exit Sub MsgBox Selection(1).Value End Sub
On va finir par ennuyer notre interlocuteur ;-) AV
sauf que c'est encore pas le nouvel an chinois....
jps
bsh77 wrote:
Merci à vous tous pour toutes ces solutions.
rq : remerciement tardive mais période des fetes oblige .
Bonne année à toutes et à tous.
BS
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
OlCjut#xDHA.1616@TK2MSFTNGP11.phx.gbl...
Re,
<> Pourquoi plg & ":" & plg ?
;-)) j'en sais fichtre rien !
Un résidu de tests ? Un copier/coller malheureux ?
Pas très génant mais bizarre quand même :-) !
<> 2.--------
Je te laisse l'entière responsablité de l'intégralité du texte qui suit le
2 !
;-)
<> Faut quand même avouer que la fonction TRIV() de Laurent apparaît comme
un
très
<> bon choix. :-)
Je n'en doute pas un instant !
Par principe je n'utilise pas (ou très rarement) de xla pour des raisons
de
compatibilité planétaire ;-)
Plus sérieusement : à la longue, on finit par oublier que ce ne sont pas
des
fonctions natives et on balance des trucs qui fonctionnent...... jusqu'à
la
porte du bureau ! ;-)
Pour une proc (sans limitation, il me semble ?) :
Option Compare Text
Sub MAX_ALPHA()
x = Selection(1).Value
For Each c In Selection
If c > x Then
Lg = c.Row: Cl = c.Column
x = c
End If
Next
On Error Resume Next
MsgBox Cells(Lg, Cl).Value
If Err.Number = 0 Then Exit Sub
MsgBox Selection(1).Value
End Sub
On va finir par ennuyer notre interlocuteur ;-)
AV
sauf que c'est encore pas le nouvel an chinois.... jps
bsh77 wrote:
Merci à vous tous pour toutes ces solutions.
rq : remerciement tardive mais période des fetes oblige . Bonne année à toutes et à tous. BS
"AV" a écrit dans le message de news: OlCjut#
Re,
<> Pourquoi plg & ":" & plg ? ;-)) j'en sais fichtre rien ! Un résidu de tests ? Un copier/coller malheureux ? Pas très génant mais bizarre quand même :-) !
<> 2.-------- Je te laisse l'entière responsablité de l'intégralité du texte qui suit le 2 !
;-)
<> Faut quand même avouer que la fonction TRIV() de Laurent apparaît comme un
très <> bon choix. :-) Je n'en doute pas un instant ! Par principe je n'utilise pas (ou très rarement) de xla pour des raisons de
compatibilité planétaire ;-) Plus sérieusement : à la longue, on finit par oublier que ce ne sont pas des
fonctions natives et on balance des trucs qui fonctionnent...... jusqu'à la
porte du bureau ! ;-)
Pour une proc (sans limitation, il me semble ?) :
Option Compare Text Sub MAX_ALPHA() x = Selection(1).Value For Each c In Selection If c > x Then Lg = c.Row: Cl = c.Column x = c End If Next On Error Resume Next MsgBox Cells(Lg, Cl).Value If Err.Number = 0 Then Exit Sub MsgBox Selection(1).Value End Sub
On va finir par ennuyer notre interlocuteur ;-) AV
Daniel.M
De rien.
Bonne année à toi aussi.
Daniel M.
"bsh77" wrote in message news:bsrpo9$fqv$
Merci à vous tous pour toutes ces solutions.
rq : remerciement tardive mais période des fetes oblige . Bonne année à toutes et à tous. BS
De rien.
Bonne année à toi aussi.
Daniel M.
"bsh77" <bang-son.huynh@wanadoo.fr> wrote in message
news:bsrpo9$fqv$1@news-reader4.wanadoo.fr...
Merci à vous tous pour toutes ces solutions.
rq : remerciement tardive mais période des fetes oblige .
Bonne année à toutes et à tous.
BS
rq : remerciement tardive mais période des fetes oblige . Bonne année à toutes et à tous. BS
bsh77
Chez nous, nous fetons tout, il n'y a pas de nouvel an chinois ou francais. pour info, la fete du Têt' cette année sera le 22 janvier 2004.
Meilleurs voeux à toutes et à tous , longue vie à mfpe
BS
"sabatier" a écrit dans le message de news:
sauf que c'est encore pas le nouvel an chinois.... jps
bsh77 wrote:
Merci à vous tous pour toutes ces solutions.
rq : remerciement tardive mais période des fetes oblige . Bonne année à toutes et à tous. BS
"AV" a écrit dans le message de news: OlCjut#
Re,
<> Pourquoi plg & ":" & plg ? ;-)) j'en sais fichtre rien ! Un résidu de tests ? Un copier/coller malheureux ? Pas très génant mais bizarre quand même :-) !
<> 2.-------- Je te laisse l'entière responsablité de l'intégralité du texte qui suit le
2 !
;-)
<> Faut quand même avouer que la fonction TRIV() de Laurent apparaît comme
un
très <> bon choix. :-) Je n'en doute pas un instant ! Par principe je n'utilise pas (ou très rarement) de xla pour des raisons
de
compatibilité planétaire ;-) Plus sérieusement : à la longue, on finit par oublier que ce ne sont pas
des
fonctions natives et on balance des trucs qui fonctionnent...... jusqu'à
la
porte du bureau ! ;-)
Pour une proc (sans limitation, il me semble ?) :
Option Compare Text Sub MAX_ALPHA() x = Selection(1).Value For Each c In Selection If c > x Then Lg = c.Row: Cl = c.Column x = c End If Next On Error Resume Next MsgBox Cells(Lg, Cl).Value If Err.Number = 0 Then Exit Sub MsgBox Selection(1).Value End Sub
On va finir par ennuyer notre interlocuteur ;-) AV
Chez nous, nous fetons tout, il n'y a pas de nouvel an chinois ou francais.
pour info, la fete du Têt' cette année sera le 22 janvier 2004.
Meilleurs voeux à toutes et à tous ,
longue vie à mfpe
BS
"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de news:
3FF16BF1.9F4D2C72@wanadoo.fr...
sauf que c'est encore pas le nouvel an chinois....
jps
bsh77 wrote:
Merci à vous tous pour toutes ces solutions.
rq : remerciement tardive mais période des fetes oblige .
Bonne année à toutes et à tous.
BS
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
OlCjut#xDHA.1616@TK2MSFTNGP11.phx.gbl...
Re,
<> Pourquoi plg & ":" & plg ?
;-)) j'en sais fichtre rien !
Un résidu de tests ? Un copier/coller malheureux ?
Pas très génant mais bizarre quand même :-) !
<> 2.--------
Je te laisse l'entière responsablité de l'intégralité du texte qui
suit le
2 !
;-)
<> Faut quand même avouer que la fonction TRIV() de Laurent apparaît
comme
un
très
<> bon choix. :-)
Je n'en doute pas un instant !
Par principe je n'utilise pas (ou très rarement) de xla pour des
raisons
de
compatibilité planétaire ;-)
Plus sérieusement : à la longue, on finit par oublier que ce ne sont
pas
des
fonctions natives et on balance des trucs qui fonctionnent......
jusqu'à
la
porte du bureau ! ;-)
Pour une proc (sans limitation, il me semble ?) :
Option Compare Text
Sub MAX_ALPHA()
x = Selection(1).Value
For Each c In Selection
If c > x Then
Lg = c.Row: Cl = c.Column
x = c
End If
Next
On Error Resume Next
MsgBox Cells(Lg, Cl).Value
If Err.Number = 0 Then Exit Sub
MsgBox Selection(1).Value
End Sub
On va finir par ennuyer notre interlocuteur ;-)
AV
Chez nous, nous fetons tout, il n'y a pas de nouvel an chinois ou francais. pour info, la fete du Têt' cette année sera le 22 janvier 2004.
Meilleurs voeux à toutes et à tous , longue vie à mfpe
BS
"sabatier" a écrit dans le message de news:
sauf que c'est encore pas le nouvel an chinois.... jps
bsh77 wrote:
Merci à vous tous pour toutes ces solutions.
rq : remerciement tardive mais période des fetes oblige . Bonne année à toutes et à tous. BS
"AV" a écrit dans le message de news: OlCjut#
Re,
<> Pourquoi plg & ":" & plg ? ;-)) j'en sais fichtre rien ! Un résidu de tests ? Un copier/coller malheureux ? Pas très génant mais bizarre quand même :-) !
<> 2.-------- Je te laisse l'entière responsablité de l'intégralité du texte qui suit le
2 !
;-)
<> Faut quand même avouer que la fonction TRIV() de Laurent apparaît comme
un
très <> bon choix. :-) Je n'en doute pas un instant ! Par principe je n'utilise pas (ou très rarement) de xla pour des raisons
de
compatibilité planétaire ;-) Plus sérieusement : à la longue, on finit par oublier que ce ne sont pas
des
fonctions natives et on balance des trucs qui fonctionnent...... jusqu'à
la
porte du bureau ! ;-)
Pour une proc (sans limitation, il me semble ?) :
Option Compare Text Sub MAX_ALPHA() x = Selection(1).Value For Each c In Selection If c > x Then Lg = c.Row: Cl = c.Column x = c End If Next On Error Resume Next MsgBox Cells(Lg, Cl).Value If Err.Number = 0 Then Exit Sub MsgBox Selection(1).Value End Sub
On va finir par ennuyer notre interlocuteur ;-) AV
