je comprends pas :
a =
Application.WorksheetsFunction.Max(ThisWorkbook.Worksheets("data").Range("b2
:b2000"))
retourne une erreur.
"Propriété ou methode non gérée par cet objet."
pourtant y a dans l aide :
Sub UseFunction()
Dim myRange As Range
Set myRange = Worksheets("Sheet1").Range("A1:C10")
answer = Application.WorksheetFunction.Min(myRange)
MsgBox answer
End Sub
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
Philippe.R
Bonjour Marc, Si tu suis la même logique, ça devrait fonctionner :
Dim myRange As Range Set myRange =Worksheets("data").Range("b2 :b2000") a = Application.WorksheetsFunction.Max(myRange)
la précision ThisWorkbook est à priori ici inutile -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002
"Marc" a écrit dans le message de news:3JvLc.577$
Bonjour,
je comprends pas : a > Application.WorksheetsFunction.Max(ThisWorkbook.Worksheets("data").Range("b2 :b2000")) retourne une erreur. "Propriété ou methode non gérée par cet objet." pourtant y a dans l aide :
Sub UseFunction() Dim myRange As Range Set myRange = Worksheets("Sheet1").Range("A1:C10") answer = Application.WorksheetFunction.Min(myRange) MsgBox answer End Sub
merci pour les explications ,
Bonjour Marc,
Si tu suis la même logique, ça devrait fonctionner :
Dim myRange As Range
Set myRange =Worksheets("data").Range("b2 :b2000")
a = Application.WorksheetsFunction.Max(myRange)
la précision ThisWorkbook est à priori ici inutile
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
"Marc" <spam@kk.com> a écrit dans le message de news:3JvLc.577$pr3.322@roc.nntpserver.com...
Bonjour,
je comprends pas :
a > Application.WorksheetsFunction.Max(ThisWorkbook.Worksheets("data").Range("b2
:b2000"))
retourne une erreur.
"Propriété ou methode non gérée par cet objet."
pourtant y a dans l aide :
Sub UseFunction()
Dim myRange As Range
Set myRange = Worksheets("Sheet1").Range("A1:C10")
answer = Application.WorksheetFunction.Min(myRange)
MsgBox answer
End Sub
Bonjour Marc, Si tu suis la même logique, ça devrait fonctionner :
Dim myRange As Range Set myRange =Worksheets("data").Range("b2 :b2000") a = Application.WorksheetsFunction.Max(myRange)
la précision ThisWorkbook est à priori ici inutile -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002
"Marc" a écrit dans le message de news:3JvLc.577$
Bonjour,
je comprends pas : a > Application.WorksheetsFunction.Max(ThisWorkbook.Worksheets("data").Range("b2 :b2000")) retourne une erreur. "Propriété ou methode non gérée par cet objet." pourtant y a dans l aide :
Sub UseFunction() Dim myRange As Range Set myRange = Worksheets("Sheet1").Range("A1:C10") answer = Application.WorksheetFunction.Min(myRange) MsgBox answer End Sub
merci pour les explications ,
AV
IL y a un "s" de trop dans Worksheet(s)Function !! On peut se contenter de : MsgBox [Max(data!B2:B2000)]
AV
IL y a un "s" de trop dans Worksheet(s)Function !!
On peut se contenter de :
MsgBox [Max(data!B2:B2000)]
