Discussion :

[JeanDechanel]

Bonjour a tous
j'ai besoin de votre aide pour résoudre un problème qui me préoccupe.
voici mon problème:

soit la colonne J d'une feuille de calcul Excel contenant les valeurs suivantes: 1, 7, 12, 17, 20 et une ligne de sous-total dont la valeur est égal a 57.
soit une variable Resultat de type Double et une variable Ligne de type Long représentant les ligne de la feuille de calcul excel.
on se propose de soustraire la variable Resultat dont la valeur est 9 au plus grand élément de la colonne J.
Il faut signaler que mon fichier comporte plusieurs plages semblables a celle décrite plus haut mais de taille différente et separees par 02 lignes entières vides.
ceci n’étant qu'un cas particulier, cela est très évident il suffit de faire l’opération : 20-9. mais si on décide de généraliser, cela devient un peu compliqué a mon sens puisque cela ne marche pas.
voici un bout de code :

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
28
29
30
 
 
Dim Resultat as Double, Ligne as Long, DerniereLigne as Double, MaxColonneJ as Double
Dim O as Worksheets
 
Resultat = 9
Ligne = 3
 
Set O = Worksheets("Feuil5")
DerniereLigne = O.Range("A"&Ligne).Find("*",,,,,XlPrevious).Row
 
For Ligne = 3 To DerniereLigne
 
MaxColonneJ = WorksheetFunction.Max(Range("J"&Ligne))
 
If Range("A"&Ligne)<>"" Then
 
If Range("J"&Ligne)<>"" Then
If Resultat <>"" Then 
If Resultat < MaxColonneJ Then
 
Range("M"&Ligne) = MaxColonneJ - Resultat
 
End If
End If
End If
 
End If
 
Next Ligne

[mat955]

Bonjour,

Je ne comprends pas l'intérêt de faire une boucle si tu utilises la fonction MAX.

A mon sens, c'est la bonne fonction à utiliser, sauf qu'il faut lui donner une plage et non une cellule comme dans ton code.

C'est comme si sur Excel tu faisais = MAX(A1), cela te renverra toujours la valeur de A1.
Alors que si tu fais = MAX(A1:A1000), là tu obtiens la plus grande valeur, et il n'y a pas besoin de boucle.

Code :

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

MaxColonneJ = WorksheetFunction.Max(Range(Range("J"&Ligne), Range("J"&DerniereLigne)))

[JeanDechanel]

salut Mat955 et merci pour ton aide.
J'ai mis une boucle parce-que la feuille de calcul comporte en réalité plusieurs plages semblables à celle de l'exemple mais de hauteurs différentes et séparées par 02 lignes entières vides. Donc il faut pour utiliser ta formule créer une autre variable Derlig de type Double et la faire varier a chaque changement de plage et je crois que c'est là où ça coince pour moi.

[ARTURO83]

Bonjour,

Essayez ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Dim Resultat As Double, Ligne As Long, DerniereLigne As Double, MaxColonneJ As Double
    Dim O As Worksheet
 
    Resultat = 9
    Ligne = 3
 
    Set O = Worksheets("Feuil5")
    DerniereLigne = O.Range("A" & Rows.Count).End(xlUp).Row
 
    For Ligne = 3 To DerniereLigne
        MaxColonneJ = WorksheetFunction.Max(Range("J" & Ligne))
        If Range("A" & Ligne) <> "" And Range("J" & Ligne) <> "" And Resultat < MaxColonneJ Then Range("M" & Ligne) = MaxColonneJ - Resultat
    Next Ligne

Cdlt

[JeanDechanel]

Bonjour ARTURO83

la ligne de code

Code :

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

DerniereLigne = O.Range("A" & Rows.Count).End(xlUp).Row

recupere plutôt la dernière ligne de la feuille 5 et non la dernière ligne de chaque plage puisqu'il y'en a plusieurs.
En plus la ligne de code

Code :

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

MaxColonneJ = WorksheetFunction.Max(Range("J" & Ligne))

recupere la valeur de chaque ligne et non la valeur maximale de la colonne J.

cordialement.

[ARTURO83]

Ceci alors!

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
Sub n()
    Dim Resultat As Double, Ligne As Long, DerLig As Double, MaxColonneJ As Double, L As Range
    Dim O As Worksheet
 
    Resultat = 9
    Ligne = 3
 
    Set O = Worksheets("Feuil5")
    DerLig = O.Range("A" & Ligne).End(xlDown).Row
 
    Do While Range("A" & Ligne) <> "" And Range("J" & DerLig) <> ""
        MaxColonneJ = WorksheetFunction.Max(Range(Cells(Ligne, "J"), Cells(DerLig, "J")))
 
        If Resultat < MaxColonneJ Then
            'sur quelle ligne se trouve la valeur?
            Set L = Sheets("Feuil5").Range(Cells(1, "J"), Cells(DerLig, "J")).Find(MaxColonneJ)
            If Not L Is Nothing Then
                Range("M" & L.Row) = MaxColonneJ - Resultat
            End If
        End If
 
        'Plage suivante
        Ligne = DerLig + 3
        DerLig = O.Range("A" & Ligne).End(xlDown).Row
    Loop
End Sub

Cdlt