Valeur Max et Min dans une colonne en VBA ?

Le
Apitos
Bonsoir,

Je cherche à determiner la valeur Max et Min dans une colonne en VBA,
mais je n'arrive pas

Je voulais utilise un code de AV :

Private Sub Worksheet_Change(ByVal Target As Range)

x = [max(range("a1":"a1000"))]
y = [min(range("a1":"a1000"))]

MsgBox "Valeur max = " & x
MsgBox "Valeur min = " & y

End Sub

mais il y'a des erreurs

merci de votre aide.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #4445271
Peux-tu élaborer sur le type d'erreur que tu rencontres ?



"Apitos"
Bonsoir,

Je cherche à determiner la valeur Max et Min dans une colonne en VBA,
mais je n'arrive pas ...

Je voulais utilise un code de AV :

Private Sub Worksheet_Change(ByVal Target As Range)

x = [max(range("a1":"a1000"))]
y = [min(range("a1":"a1000"))]

MsgBox "Valeur max = " & x
MsgBox "Valeur min = " & y

End Sub

mais il y'a des erreurs ...

merci de votre aide.
Mon Onc'
Le #4445251
bonsoir Apitos,

et comme ça :
x = Application.Max(Range("A1:A1000"))

cordialement

Apitos a émis l'idée suivante :
Bonsoir,

Je cherche à determiner la valeur Max et Min dans une colonne en VBA,
mais je n'arrive pas ...

Je voulais utilise un code de AV :

Private Sub Worksheet_Change(ByVal Target As Range)

x = [max(range("a1":"a1000"))]
y = [min(range("a1":"a1000"))]

MsgBox "Valeur max = " & x
MsgBox "Valeur min = " & y

End Sub

mais il y'a des erreurs ...

merci de votre aide.


Apitos
Le #4445021
Peux-tu élaborer sur le type d'erreur que tu rencontres ?


C'est l'erreur d'execution '13' :
Incompatibilité de type

et se pointe sur la ligne :

MsgBox "Valeur Max = " & x

MichDenis
Le #4444941
désolé, mais la vraie syntaxe est :


x = [max(a1:a1000)]
y = [min(a1:a1000)]

MsgBox "Valeur max = " & x
MsgBox "Valeur min = " & y



"Apitos"

Peux-tu élaborer sur le type d'erreur que tu rencontres ?


C'est l'erreur d'execution '13' :
Incompatibilité de type

et se pointe sur la ligne :

MsgBox "Valeur Max = " & x

Apitos
Le #4444781
Ca marche bien MichDenis. Merci.

Aussi la solution de Mon Onc' marche trés bien. Merci également.
Publicité
Poster une réponse
Anonyme