Trouver la valeur min et max
Bonjour à tous,
J'ai un fichier avec 2 colonnes.
Colonne A : des valeurs 1, 2, 3, 4
Colonne B : des prix correspondants au valeurs 1, 2, 3, 4
Les valeurs de la colonne A se répètent plusieurs fois dans la colonne A
Je cherche à trouver la valeur min et max correspondant à la valeur 1, 2, 3 ou 4.
La valeur 1/2/3/4 et saisie dans un userform.
Puis les valeurs max et min correspondant à la valeur choisis sont mit en C2 et D2
Or le code VBA actuelle me retourne que des valeurs 0, je ne comprends pas où est mon erreur
Quelqu'un aurait-il une idée ?
Voici mon code :
Private Sub CommandButton1_Click()
Dim laboucle As Integer
Dim lavarmax As Double
Dim lavarmin As Double
Dim toutligne As Integer
Dim test As Integer
Dim testdeux As Integer
toutligne = Range("A" & Rows.Count).End(xlUp).Row
For laboucle = 1 To toutligne
If Range("A" & laboucle) = UserForm1.TextBox1 Then test = Range("B" & laboucle)
If test > lavarmax Then lavarmax = test
If test < lavarmin Then lavarmix = test
Next laboucle
Cells(2, 3) = lavarmin
Cells(2, 4) = lavarmax
End Sub
Merci
Arya
Bonjour le forum,
C2 :
=MAX(SI($A$1:$A$1000=LIGNE()-1;$B$1:$B$1000))D2 :
=MIN(SI($A$1:$A$1000=LIGNE()-1;$B$1:$B$1000))Formules matricielles à valider avec CTRL MAJ ENTREE
Bonjour mbbp,
Merci pour ta réponse !
Par contre je veux automatiser la chose avec un userform pour que l'utilisateur entre dans l'userform la valeur 1 / 2 /3 ou 4 et le prix min max s'affichant.
Je dois traiter des bases de données qui se présent sous la même forme, j'ai simplifier la chose sur le fichier excel que j'ai mis en pièce-jointe.
C'est surtout l'erreur dans le code VBA que je n'arrive pas à comprendre et comment régler celle-ci ?
Merci beaucoup Jean-Eric j'ai suivis un peu près ce que vous avez codé (je connais pas du tout le codage avec les TCD ^^)
C'était éxactement ce que je souhaiter avec la valeur min et max dans l'userform, il n'y a pas de possibilité de récupérer ces infos sans passer par un TCD ?
Arya