Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Valeur Max et Min dans une colonne en VBA ?

Valeur Max et Min dans une colonne en VBA ?

5 réponses
Avatar
Apitos
Bonsoir,

Je cherche =E0 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 =3D [max(range("a1":"a1000"))]
y =3D [min(range("a1":"a1000"))]

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

End Sub

mais il y'a des erreurs ...

merci de votre aide.
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
MichDenis
Peux-tu élaborer sur le type d'erreur que tu rencontres ?



"Apitos" a écrit dans le message de news:

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.
Avatar
Mon Onc'
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.


Avatar
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

Avatar
MichDenis
désolé, mais la vraie syntaxe est :


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

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



"Apitos" a écrit dans le message de news:


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

Avatar
Apitos
Ca marche bien MichDenis. Merci.

Aussi la solution de Mon Onc' marche trés bien. Merci également.