Fonction Min en VBA

Bonjour,

Je tourne en rond depuis un bon moment sans réussir à trouver mon erreur. Je pense qu'elle est tellement grosse que je n'arrive pas à la voir.

J'ai un tableau rempli par une macro en VBA qui me donne les résultats attendus. La colonne E est remplie de nombres compris entre -3 et 3, certaines cellules sont vides. La première ligne est une ligne de titre. Le numéro de la première ligne vide de mon tableau est stocké dans la variable i.

Je souhaite calculer la valeur minimale, maximale, la moyenne, l'écart-type, etc... de la colonne E.

J'ai voulu commencer doucement par le calcul du min. Et j'ai bien fait puisque je n'y arrive pas !
Je veux le résultat dans la cellule E,L_min de la feuille Résultats

Voici mon code :

Code:

---

1 2	Set Plage = Range("E2:E" & i - 1) Sheets("Résultats").Range("E" & L_min).Value = Application.WorksheetFunction.Min(Plage)

---

Et dans ma cellule, je trouve 42244 !

Pouvez-vous me venir en aide et me dire où j'ai fait une boulette ???

Merci d'avance !

Laurent

Bonjour,

visiblement, tu tournes en rond sur un problème qui n'est pas l'endroit où tu le penses

je n'ai aucun souci avec ton code :

Pièce jointe 227728

i = 9 car c'est la première ligne vide de la colonne E

42244 ça ressemble à un numéro de série de date : 28/08/2015
Cela te donne une nouvelle piste d'étude ou pas ?

Ah !!! Merci pour cette réponse. C'est une version revisitée du gars qui cherche sa clé sous le lampadaire parce que c'est là qu'il y a de la lumière...

Effectivement je n'ai pas pensé à tester mon code sur un autre exemple.

J'ai pensé à un problème de format de donnée. Mais comment faire pour imposer un mode standard ?

Voici les opérations faites sur ma colonne E :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sheets("Résultats").Range("E1").Value = "P1 Après - P1 Avant : Intéressé"   i = 2   ' On parcourt toutes les lignes du fichier Do While Sheets(1).Range("A" & i).Value <> ""   ' Calcul différence P1 Après - P1 Avant If (Sheets(1).Range("AB" & i).Value = "" Or Sheets(1).Range("F" & i).Value = "") Then Sheets("Résultats").Range("E" & i).Value = "" Else Sheets("Résultats").Range("E" & i).Value = Sheets(1).Range("AB" & i).Value - Sheets(1).Range("F" & i).Value End If i = i + 1 Loop

---

Les colonnes AB et F de la feuille 1 sont remplies de nombres.

Merci !

Laurent

Ca y est !!! Quand je vous disais que c'était tellement gros que ça m'aveuglait !!!

J'ai écrit :

Code:

---

Set Plage = Range("E2:E" & i - 1)

---

sans préciser la feuille à prendre en compte !!!!!!!! Grrrr.... :aie: Punaise !!!

En précisant :

Code:

---

Set Plage = Sheets("Résultats").Range("E2:E" & i - 1)

---

eh bien figurez vous que ça marche ! Dingue !!!

Merci joe.levrai ! C'est cette histoire de format qui m'a mis la puce à l'oreille. Je viens de réaliser que dans ma 1ère feuille, la colonne E contenait... des dates... Tiens tiens...

Bonne soirée et excellent week-end !
Laurent