Récupération de la valeur d'une cellule

Bonjour Stellou et merci de ton intérêt.

La feuille "Efforts_Portique" contient plusieurs "salves" de valeurs, toutes dans la colonne D, parmi lesquelles la macro cherche le min et le max pour les mettre dans les cellules (i, 5) et (i +1, 5), et ce pour chaque salve. C'est d'ailleurs pour cette raison que "Ligne" et "Ligne_debut" s'incrémentent, pour passer à la salve suivante.

Ce qui me manque ici est un moyen de faire le même "transfert" d'une feuille à l'autre pour le nombre dans la cellule à gauche de celle trouvée par la recherche. Mais comme le nombre en question n'est pas un extremum, j'imagine qu'il faut l'extraire par l'intermédiaire de la cellule contenant l'extremum correspondant. Ce qui n'est pas chose aisée pour moi, vous l'aurez compris au vu de ma façon de m'exprimer :)

Ce n'est pas évident pour moi de bien visualiser tes feuilles et de comprendre où se trouve quoi. Pareil, j'ai du mal à comprendre comment ton programme trouve ton min et ton max. Car pour moi avec ce qu'on m'a appris, il faut pour cela comparer des nombres. Or je vois ça nulle part dans ton programme... :s Tu sais je débute dans la programmation aussi, mais j'aimerai t'aider.
Qu'est ce que formula R1C1Local

Sub tri()

Dim Ligne As Single
Dim i As Integer
Dim Ligne_debut As Single

Ligne = 9
Ligne_debut = 9
i = 10

' Ici tu parcours les lignes de tes cellules
While i < 49

Sheets("Efforts_Portique").Activate

' dans cette boucle tu calcule le nombre de cellule remplie de ta colonne ?
While Cells(Ligne, 4).Value <> ""
Ligne = Ligne + 1
Wend

Sheets("Max_par_elts").Activate

'ci dessous sont les 2 lignes qui permettent de stocker ton min et ton max ?
Cells(i, 5).FormulaR1C1Local = "=MIN(Efforts_Portique!D" & Ligne_debut & ":Efforts_Portique!D" & Ligne - 1 & ")"
Cells(i + 1, 5).FormulaR1C1Local = "=MAX(Efforts_Portique!D" & Ligne_debut & ":Efforts_Portique!P" & Ligne - 1 & ")"

i = i + 2
Ligne = Ligne + 12
Ligne_debut = Ligne

Wend

End Sub

Je te montre ce que j'aurais fait. Après à toi, de l'adapter à ton cas si je n'ai pas réussi à le faire :

Sub tri()

Dim Ligne As Integer
Dim Ligne_debut As Integer
Dim Max, Min, temp As Integer
Dim indice_min, indice_max As Integer
Ligne_debut = 9

'Calcul du nombre de cellule remplie dans ta colonne D, et oui, il existe une fonction plus besoin de t'embeter
Ligne = Sheets("Efforts_Portique").WorksheetFunction.CountA(Range("D:D"))

' Valeurs initialisées au hasard
Max = 0
Min = 10

' Ici tu parcours les lignes de tes cellules pour trouver le min et le max et avec leurs indices

For i = 10 to Ligne

If cells(i,4) < min then

min = cells(i,4)
indice_min = i

End If

If cells(i,4) > max

max = cells(i,4)
indice_max = i

End IF

Next

' Ici tu n'as plus qu'à stocker ton min et ton max que la boucle du dessus à trouver et en plus tu as la ligne sur laquelle il se trouvait

End Sub

Ici le seul problème est à plusieurs fois le max dans ta colonne ... Est ce que c'est le cas? Bon j'espère que ça va t'aider...

Alors, plusieurs choses :

- la boucle :
While Cells(Ligne, 4).Value <> ""
Ligne = Ligne + 1
Wend

permet d'incrémenter Ligne tant que la cellule (Ligne, 4) n'est pas vide, elle ne sert pas à compter le nombre de lignes, cela ne m'est d'aucune utilité.

- la ligne :
Cells(i, 5).FormulaR1C1Local = "=MIN(Efforts_Portique!D" & Ligne_debut & ":Efforts_Portique!D" & Ligne - 1 & ")"

entre dans la cellule (i, 5) de la feuille "Max_par_elts" la valeur minimale trouvée dans la plage de cellules "DLigne_debut":"DLigne-1" de la feuille "Efforts_Portique". FormulaR1C1Local sert à insérer une formule dans une cellule.

Et je suis au regret de t'annoncer que ta solution ne m'aide pas, puisque ma recherche de MIN et de MAX ainsi que leur stockage fonctionnent très bien ^^ mon problème c'est l'autre valeur.

J'avais pas vu que quelqun tavais rép.