Discussion :

[anthodub]

bonjour,
j'ai un tableau dans lequel une acquisition de temperature a été réalisé en fonction de la distance à une source de chaleur
je souhaiterai obtenir plusieurs renseignements: la temperature maxi et la distance à laquelle cette temperature est maxi
pour trouver le numero de ligne, je compte utiliser la fonction equiv()
(le nombre de données pouvant varier, je détermine d'abord Nb_data)

Code :

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

1
2
3
 
 maxi = "=MAX(DONNEES!R1C12:R" & Nb_data & "C12)"
 numero_ligne = equiv(maxi ; R1C12:R" & Nb_data & "C12;0)

seulement, j'obtiens l'erreur "attendu separateur de liste ou )" au niveau de ':'

merci de votre reponse

[jfontaine]

Bonjour

Si tu veux utiliser les formules Excel, il te faut soit l'affecter a une cellule que tu masqueras

Code :

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

1
2
3
 
Range("A1").FormulaLocal= "=MAX(DONNEES!R1C12:R" & Nb_data & "C12)"
maxi = Range("A1").value

Soit utiliser les formules directement dans VBA via Application.WorksheetFunction

Code :

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

maxi = application.WorksheetFunction.Max(sheets("DONNEES").range(....

NB : de plus il manque des "" sur la formule Ligne 3

[mercatog]

Bonjour
Une proposition, trouver le maximum en colonne L (Température) et la donnée correspondante dans la colonne M (Distance correspondant à cette T max)
A adapter

Code :

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

1
2
3
4
5
6
Dim MaxiT As Double, Dist As Double
 
With Sheets("Feuil1")
    MaxiT = Application.Max(.Range("L:L"))
    Dist = Application.VLookup(MaxiT, .Range("L:M"), 2, False)
End With

[MarcelG]

Bonjour à vous 3 (ravi de vous retrouver Jérôme et Mercatog)

J'avais aussi.

(Le code est plus long mais il retourne des fonctionnalités qui peuvent servir à notre ami.)

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
18
19
20
21
22
23
24
25
26
27
Public Sub essai2()
 
'Affectation des variables
Dim champ As Range
Dim derlign As Long
Dim maxi As Long
 
With Sheets("Feuil2")
        'dernère ligne du champ de recherche
        derlign = .Cells(.Rows.Count, 1).End(xlUp).Row
        'définition du champ de recherche
        Set champ = .Range("A1:A" & derlign)
        'recherche du maximum
        maxi = WorksheetFunction.Max(champ)
        'renvoi de la ligne où se trouve ce maximum
        maligne = champ.Find(maxi, LookIn:=xlValues).Row
        'température cherchée dans la colonne B à cette ligne
        latempérature = .Range("B" & maligne)
End With
 
'résultat dans la fenêtre Exécution
Debug.Print maxi & " - " & latempérature
 
'variable champ vidée
Set champ = Nothing
 
End Sub

Tu ne peux écrire la même fonction dans l'éditeur VBE avec la même syntaxe que dans une feuille de calcul.
Généralement, tu utilises la méthode

Code :

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

WorksheetFunction

suivi du nom de la fonction (en anglais) si elle existe dans le VBE.
Tu peux en vérifier l'existance en saisie semi-automatique.

[anthodub]

bonjour marcelG,
j'ai reproduis votre code sur excel 2003, et il ne fonctionne pas sur ma machine, en particulier, il n'a pas l'air d'apprecier .Range, la ligne 16 non plus d'ailleurs...

en fait le programme fonctionne lorsque maxi est un Long mais pas lorsque c'est un Double...
merci!

[MarcelG]

Salut,

A toi d'adapter Anthodub.

Voir pour cela le tutoriel de Sylkiroad

Les Variables

N'oublie pas de marquer ton post en Résolu si c'est le cas.