Discussion :

[laurent_42]

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 :

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

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

[joe.levrai]

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 :



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 ?

[laurent_42]

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 :

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

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

[laurent_42]

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

J'ai écrit :

Code :

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

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

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

En précisant :

Code :

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

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