Comment puis je obtenir , d'abord dans une variable puis dans une cellule,
la référence L & C de la cellule ou se trouve la maximum d'un range ?
j'ai tenté de fusionner
Range("E2").FormulaLocal = [=MAX(A1:A20)]
avec
toto = activecell.address
J'ai besoin le faire le max d'un range référencé en cells( L,C ) et non pas
en A1:A20, sans m'occupé de la position du focus.
activecell.address donne un résultat "$G$4 dans une var. Est-ce possible de
l'avoir sous la forme : cells (4, 7) ?
Je mélange, je touille, je cafouille et la sauce prend pas.
De rien !!! Le Dim PlageATester As Range n'est obligatoire que si tu as placé Option Explicit en haut de ton mondule. Cette façon de procéder te permet d'avoir l'ensemble des adresses des maximum dans une variable range !
-----Message d'origine----- Bravo, ça marche
Set PlageATester = Range("A1:A20") même pas obligé de mettre Dim PlageAtester As Range
merci pour cette solution et ton aide -- à+twinley "Vincent." a écrit dans le message de
news:635d01c47542$34215eb0$ Il faut définir la PlageATester de la façon suivante : Set PlageATester = Range(A1:A20) par ex !
-----Message d'origine----- Bonsoir Vincent
merci pour ta solution. il y a une "err d'exec 424 objet requis" que je ne sais pas corriger...sur
la ligne Set LesMax= PlageATester.Find([=MAX(A1:A20)], lookin:=xlValues)
? -- à+twinley "Vincent." a écrit dans le message de
news:5e8801c474d6$d65d5240$ Avec Find je pense : non testé !!! dim LesMax As Range Set LesMax= PlageATester.Find([=MAX(A1:A20)], _ lookin:=xlValues) If Not LesMax Is Nothing Then Do Set LesMax = Union(LesMax , _ PlageATester.FindNext(LesMax)) Loop While Not LesMax Is Nothing And _ LesMax.Address <> firstAddress End If
mais ça devrait le faire, non? A+
-----Message d'origine----- Bonsoir à tous,
Comment puis je obtenir , d'abord dans une variable puis dans une cellule,
la référence L & C de la cellule ou se trouve la maximum d'un range ?
j'ai tenté de fusionner
Range("E2").FormulaLocal = [=MAX(A1:A20)]
avec
toto = activecell.address
J'ai besoin le faire le max d'un range référencé en cells
( L,C ) et non pas
en A1:A20, sans m'occupé de la position du focus. activecell.address donne un résultat "$G$4 dans une var. Est-ce possible de
l'avoir sous la forme : cells (4, 7) ? Je mélange, je touille, je cafouille et la sauce prend pas.
Merci pour votre aide
-- à+twinley
.
.
.
De rien !!!
Le Dim PlageATester As Range n'est obligatoire que si tu
as placé Option Explicit en haut de ton mondule.
Cette façon de procéder te permet d'avoir l'ensemble des
adresses des maximum dans une variable range !
-----Message d'origine-----
Bravo, ça marche
Set PlageATester = Range("A1:A20")
même pas obligé de mettre Dim PlageAtester As Range
merci pour cette solution et ton aide
--
à+twinley
"Vincent." <vincnet.N0SP@MfallasATfr.pwc.com> a écrit
dans le message de
news:635d01c47542$34215eb0$a601280a@phx.gbl...
Il faut définir la PlageATester de la façon suivante :
Set PlageATester = Range(A1:A20)
par ex !
-----Message d'origine-----
Bonsoir Vincent
merci pour ta solution.
il y a une "err d'exec 424 objet requis" que je ne sais
pas corriger...sur
la ligne
Set LesMax= PlageATester.Find([=MAX(A1:A20)],
lookin:=xlValues)
?
--
à+twinley
"Vincent." <vincnet.N0SP@MfallasATfr.pwc.com> a écrit
dans le message de
news:5e8801c474d6$d65d5240$a601280a@phx.gbl...
Avec Find je pense :
non testé !!!
dim LesMax As Range
Set LesMax= PlageATester.Find([=MAX(A1:A20)], _
lookin:=xlValues)
If Not LesMax Is Nothing Then
Do
Set LesMax = Union(LesMax , _
PlageATester.FindNext(LesMax))
Loop While Not LesMax Is Nothing And _
LesMax.Address <> firstAddress
End If
mais ça devrait le faire, non?
A+
-----Message d'origine-----
Bonsoir à tous,
Comment puis je obtenir , d'abord dans une variable puis
dans une cellule,
la référence L & C de la cellule ou se trouve la maximum
d'un range ?
j'ai tenté de fusionner
Range("E2").FormulaLocal = [=MAX(A1:A20)]
avec
toto = activecell.address
J'ai besoin le faire le max d'un range référencé en
cells
( L,C ) et non pas
en A1:A20, sans m'occupé de la position du focus.
activecell.address donne un résultat "$G$4 dans une var.
Est-ce possible de
l'avoir sous la forme : cells (4, 7) ?
Je mélange, je touille, je cafouille et la sauce prend
pas.
De rien !!! Le Dim PlageATester As Range n'est obligatoire que si tu as placé Option Explicit en haut de ton mondule. Cette façon de procéder te permet d'avoir l'ensemble des adresses des maximum dans une variable range !
-----Message d'origine----- Bravo, ça marche
Set PlageATester = Range("A1:A20") même pas obligé de mettre Dim PlageAtester As Range
merci pour cette solution et ton aide -- à+twinley "Vincent." a écrit dans le message de
news:635d01c47542$34215eb0$ Il faut définir la PlageATester de la façon suivante : Set PlageATester = Range(A1:A20) par ex !
-----Message d'origine----- Bonsoir Vincent
merci pour ta solution. il y a une "err d'exec 424 objet requis" que je ne sais pas corriger...sur
la ligne Set LesMax= PlageATester.Find([=MAX(A1:A20)], lookin:=xlValues)
? -- à+twinley "Vincent." a écrit dans le message de
news:5e8801c474d6$d65d5240$ Avec Find je pense : non testé !!! dim LesMax As Range Set LesMax= PlageATester.Find([=MAX(A1:A20)], _ lookin:=xlValues) If Not LesMax Is Nothing Then Do Set LesMax = Union(LesMax , _ PlageATester.FindNext(LesMax)) Loop While Not LesMax Is Nothing And _ LesMax.Address <> firstAddress End If
mais ça devrait le faire, non? A+
-----Message d'origine----- Bonsoir à tous,
Comment puis je obtenir , d'abord dans une variable puis dans une cellule,
la référence L & C de la cellule ou se trouve la maximum d'un range ?
j'ai tenté de fusionner
Range("E2").FormulaLocal = [=MAX(A1:A20)]
avec
toto = activecell.address
J'ai besoin le faire le max d'un range référencé en cells
( L,C ) et non pas
en A1:A20, sans m'occupé de la position du focus. activecell.address donne un résultat "$G$4 dans une var. Est-ce possible de
l'avoir sous la forme : cells (4, 7) ? Je mélange, je touille, je cafouille et la sauce prend pas.
