trouver la valeur maximale dans une colonne defini

[nicroq]

Bonsoir a tous et merci pour votre aide!

je souhaiterai faire ceci en VBA :

j' ai plusieurs colonne avec un nom différent sur la première ligne par exemple (colone 1 : titre; colonne2 : valeur; colonne 3:taille etc... )

est ce qu il serait possible que la macro chercher par exemple dans la colonne ("taille"), la valeur maximale.

je souhaiterai cela par VBA car les colonnes peuvent etre des places différentes donc la recherche du titre de la colonne est importante!

merci a vous bonne soirée

 

[job75]

Re : trouver la valeur maximale dans une colonne defini

Bonsoir nicroq,

Le principe, à adapter :

Sub MaxColonne()
Dim x As String, c As Range, maxi As Double
x = "taille" 'à adapter
Set c = Cells.Find(x, , xlValues, xlWhole)
If Not c Is Nothing Then
  maxi = Application.Max(c.EntireColumn)
  MsgBox maxi 'pour tester
End If
End Sub

A+

 

[CISCO]

Re : trouver la valeur maximale dans une colonne defini

Bonsoir

je souhaiterai cela par VBA car les colonnes peuvent etre des places différentes donc la recherche du titre de la colonne est importante!

merci a vous bonne soirée

C'est tout à fait faisable avec des formules, mais pour cela un petit fichier exemple serait le bienvenu.

@plus

 

[nicroq]

Re : trouver la valeur maximale dans une colonne defini

merci Job75!!

c est exactement ce que je voulais!!

bonne soirée

 

[job75]

Re : trouver la valeur maximale dans une colonne defini

Bonsoir CISCO,

C'est tout à fait faisable avec des formules

Bien sûr, c'est très simple si la recherche doit se faire toujours en ligne 1 :

=MAX(DECALER(A:A;;EQUIV("taille";1:1;0)-1))

A+

 

[job75]

Re : trouver la valeur maximale dans une colonne defini

Re,

Si la recherche doit se faire dans un tableau déplaçable :

-nommer T le tableau en englobant la ligne des titres

- formule :

=MAX(INDEX(T;;EQUIV("taille";INDEX(T;1;);0)))

A+

 

[Si...]

Re : trouver la valeur maximale dans une colonne defini

salut

Tableau nommé T avec un titre nommé Taille,

formule :

=MAX(T[Taille])

=Application.Max([T[Taille]])

 

[job75]

Re : trouver la valeur maximale dans une colonne defini

Bonjour Si..., le fil, le forum,

A priori notre ami est sur Excel 2003.

On peut alors juste créer une liste par la commande Données-Liste.

La commande crée le nom masqué _FilterDatabase qu'on peut utiliser dans la feuille de calcul.

En VBA cette macro peut être utilisée sur toute version :

Sub MaxColonne()
Dim x$, col As Object, maxi
x = "Taille" 'Tailles 'à adapter
On Error Resume Next
Set col = ActiveSheet.ListObjects(1).ListColumns(x)
maxi = Application.Max(col.Range)
MsgBox maxi 'pour tester
End Sub

Bonne journée.

 

[job75]

Re : trouver la valeur maximale dans une colonne defini

Re,

Si plusieurs listes ou tableaux ont été créés on utilisera (quelle que soit la version Excel) :

Sub MaxColonne()
Dim x$, liste As Object, maxi As Variant
x = "Taille" 'à adapter
On Error Resume Next
For Each liste In ActiveSheet.ListObjects
  maxi = "pas de colonne '" & x & "'"
  maxi = Application.Max(liste.ListColumns(x).Range)
  MsgBox liste.Name & " => " & maxi, , x & " maximum"
Next
End Sub

A+