Discussion :

[fuentmat]

Bonjour,

Je suis débutant en VBA et j'aimerais faire la chose suivante :

J'ai une plage de données de cette forme (simplifiée ici) :

4	14.5
3	12.7
5	4.3

J'aimerais :
1)Calculer le max de la colonne 2 (ça je crois savoir faire avec par exemple M=WorksheetFunction.Max(col2) en supposant que j'ai appelé ma colonne 2 "col2")
2)Obtenir le numéro de ligne de la cellule dans laquelle se trouve le Max de cette colonne 2 que je viens de trouver, pour l'utiliser ensuite


Merci beaucoup d'avance pour ceux qui peuvent m'aider

[Marc-L]

Bonjour,

voir la fonction de feuille de calculs EQUIV (Match en VBA) par exemple …



_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[Thautheme]

Bonsoir le fil, bonsoir le forum,

Si, comme moi, tu n'aimes pas les formules, essaie le code ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim LI As Integer 'déclare la variable LI (LIgne)
 
Set O = Sheets("Feuil1") 'définit l'onglet O (à adapter)
TC = O.Range("B1:B" & O.Range("B" & Rows.Count).End(xlUp).Row) 'définit le tableau de cellules TC (les données en colonne B)
For I = 1 To UBound(TC, 1) 'boucle sur toutes les lignes I du tableau de cellules TC
    'condition : si la valeur en ligne 1 colonn e1 du tableau TC est égale à la valeur max de TC
    If TC(I, 1) = Application.WorksheetFunction.Max(TC) Then
        LI = I 'récupère le numéro de ligne dans la variable LI
        Exit For 'sort de la boucle
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
MsgBox LI 'message qui renvoie la ligne LI
'remplace le message par ton code...
End Sub

[tamtam64]

utilise la fonction application.match(ta valeur, le nom de ton vecteur, 0) le zero c'est toujours. Ca te donnera le rang de la valeur dans un vecteur.
Deux possibilites ou tu fait passer ton range (ta colonne) dans un tableau 1 dim , et tu recherche le max et tu recupere le rang, ou sinon tu peux fonctionner avec une boucle.
La premiere solution est meilleur. Si tu veux un exemple je peux t'en donner un j'ai fait un peu la meme chose pour un projet ya pas longtemps

[Theze]

Bonjour,

Avec une petit exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub Position()
 
    Dim Plage As Range
 
    Set Plage = Range("A1:A17")
 
    With Application.WorksheetFunction
 
        'renvoi la position ordinale dans la plage
        'et non le numéro de ligne dans la feuille
        MsgBox .Match(.Max(Plage), Plage, 0)
 
    End With
 
End Sub

Hervé.

[fuentmat]

Merci beaucoup à tous pour vos réponses et bonne journée!

[goninph]

Hello,

Comment modifier ce code pour touver le numéro de colonne de la feuille contenant la date du 14.10.2019 dans une ligne contenant toutes les dates de l'années 2019?

Merci
Bonne journée

Bonjour,

Avec une petit exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub Position()
 
    Dim Plage As Range
 
    Set Plage = Range("A1:A17")
 
    With Application.WorksheetFunction
 
        'renvoi la position ordinale dans la plage
        'et non le numéro de ligne dans la feuille
        MsgBox .Match(.Max(Plage), Plage, 0)
 
    End With
 
End Sub

Hervé.