Discussion :

[bboy-eazy]

Bonjour à tous,

Je viens vers vous afin de m'éviter de me lancer dans une usine à gaz si pas nécessaire ... Si vous pouviez m'éviter ça je vous serait très reconnaissant

Je m'explique,
Je cherche à trouver le mois le plus petit d'une série de date. Or il n'y a pas forcément de date dans ma série et donc parfois c'est égal à 0 et je ne veux pas prendre en compte les données vide mais uniquement les remplies car il y aura forcement au moins une données non vide. Comme j'ai beaucoup de colonnes je voudrais éviter de passer par un si pour chaque colonne
je ne passe pas directement par un range mais par une variable tableau

Je pense qu'il doit bien exister une fonction telle que celle-ci non?
j'ai vu la fonction PETITE.VALEUR en faisant des recherches qui pourrait éventuellement marcher pour mon problème non? mais ne trouve pas son équivalent sous vba.

Dans mon code c'est cette ligne que j'aimerai coder de facon à prendre uniquement les valeurs non vides:

Code :

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

1
2
3
If Year(CDate(Application.Min(a(i, 4), a(i, 6), a(i, 9), a(i, 12), a(i, 15), a(i, 18), a(i, 25), a(i, 32), a(i, 44), a(i, 49), a(i, 54), a(i, 59)))) _
 & Month(CDate(Application.Min(a(i, 4), a(i, 6), a(i, 9), a(i, 12), a(i, 15), a(i, 18), a(i, 25), a(i, 32), a(i, 44), a(i, 49), a(i, 54), a(i, 59)))) = _
 ThisWorkbook.Worksheets("TdB").Range("N2").Value & b(k) Then

Merci d'avance de votre précieuse aide

[Al__22]

Une fonction me parait pas mal :

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
Function MinValeur(Matricecherche As Range)
Dim Cel As Variant
Dim ValeurMini As Variant
 
valeurMini = Matricecherche.Cells(1, 1)
 
For Each Cel In Matricecherche
    If Cel.Value < ValeurMini And Cel.Value > 0 Then
    ValeurMini = Cel.Value
    End If
Next
 
MinValeur = ValeurMini
 
End Function

[joe.levrai]

Bonjour,

la difficulté de ton exercice, qui revient à éviter de multiplier les tests ou à créer une boucle, provient de la source de ton process : tu es dans un tableau sur lequel ce ne sont pas tous les éléments qu'il faut analyser.

peux-tu nous montrer comment tu alimentes ce tableau, et si d'aventure on ne pourrait pas directement créer un tableau avec tes années et mois (voir constituer directement des dates complètes)

[Al__22]

Ou sinon si tu as que des trous (des " " ou "") et non des 0 dans tes valeurs que tu cherches :

Code :

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

y = WorksheetFunction.Small(Range("A1:B5"), 1)

Et si il y a des 0 :

Code :

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

1
2
Z = WorksheetFunction.CountIf(Range("A1:B5"), 0)
y = WorksheetFunction.Small(Range("A1:B5"), 1 + Z)

[bboy-eazy]

Bonjour à tous,
Merci pour votre aide,
@Al__22
Je vais regarder tout ca et je reviens vers toi pour te dire ce qu'il en est
Merci pour la fonction Small je vais tester d'abord avec celle-ci et si ca ne fonctionne pas j'essayerai avec ta fonction

@Joe.levrai

voici comment j'alimente mon tableau:

Code :

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

1
2
3
4
With ThisWorkbook.Worksheets("Tampon")
    DL = .Cells(.Rows.Count, 2).End(xlUp).Row
    a() = .Range("A1:BJ" & DL).Value
End With

en fait, je prends toute la plage de ma feuille Tampon et j'évite de boucler directement dans la feuille car il y a beaucoup beaucoup de ligne. c'est pour la rapidité d'execution.
et ensuite je me sers de ce tableau a() pour faire mes indicateurs
ainsi il y a des colonnes qui me servent pas forcément pour cet indicateur. Et même il n'y a que les colonnes suivantes qui m'interressent:

Code :

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

a(i, 4), a(i, 6), a(i, 9), a(i, 12), a(i, 15), a(i, 18), a(i, 25), a(i, 32), a(i, 44), a(i, 49), a(i, 54), a(i, 59)

[Al__22]

Pas de soucis en espérant que ça marche pour toi

[bboy-eazy]

Re,

J'ai donc fait des tests et la fonction small ne fonctionne pas même en passant par un array. Elle fonctionne uniquement sur un range. Etrange vu que dans l'aide, le paramètre peut être un range ou un array....

Concernant ta fonction, elle fonctionne sur un range également. j'ai essayé de l'adapter pour passer en paramètre un array et cela n'était pas non plus concluant
j'ai donc voulu rajouter un boucle intermédiaire pour remplacer les vides par les max et ensuite faire le min de tout ca sauf que le min me renvoie 0 quand même je ne sais pas pourquoi! même en essayant le max ca renvoie 00:00:00 avec ça:

Code :

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

Debug.Print CDate(Application.Max(aa))

Code :

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

1
2
3
4
aa() = Array(a(i, 4), a(i, 6), a(i, 9), a(i, 12), a(i, 15), a(i, 18), a(i, 25), a(i, 32), a(i, 44), a(i, 49), a(i, 54), a(i, 59))
        For l = LBound(aa) To UBound(aa)
            If aa(l) = "" Then aa(l) = CDate(Application.Max(a(i, 4), a(i, 6), a(i, 9), a(i, 12), a(i, 15), a(i, 18), a(i, 25), a(i, 32), a(i, 44), a(i, 49), a(i, 54), a(i, 59)))
        Next l

[RyuAutodidacte]

bonjour,

et si tu passé par une formule matricielle
Par exemple des valeurs lambda de A1 à A10 avec des 0 des cellules vides et des valeurs supp à 0
on aurait en formule : =MIN(SI(A1:A10>0;A1:A10)) => formule matricielle : {=MIN(SI(A1:A10>0;A1:A10))}

En VBA :

Code :

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

1
2
3
4
Sub test()
M = Evaluate([MIN(IF(A1:A10>0,A1:A10))])
MsgBox M
End Sub

… à voir et à adapter si ok

j'ai testé sur ces valeurs :

1
0
2
4
3
4
0,5

[bboy-eazy]

Bonjour Ryu et merci

J'y ai pensé mais la encore le soucis c'est que je n'ai pas un range mais un array et comment adapter ceci à un array je ne sais pas du tout

Par contre je viens de trouver une solution à mon problème en attendant d'avoir peut être des explications ou une façon plus simple de faire:
si la valeur du tableau a(i,x) = "" alors je remplace par la max date de mon array en le convertissant en type long!
si la valeur du tableau a(i,x) <> "" alors je convertie la donnée date en type long

Code :

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

1
2
3
4
5
6
7
8
 aa() = Array(a(i, 4), a(i, 6), a(i, 9), a(i, 12), a(i, 15), a(i, 18), a(i, 25), a(i, 32), a(i, 44), a(i, 49), a(i, 54), a(i, 59))
        For l = LBound(aa) To UBound(aa)
            If aa(l) = "" Then
                aa(l) = CLng(Application.Max(a(i, 4), a(i, 6), a(i, 9), a(i, 12), a(i, 15), a(i, 18), a(i, 25), a(i, 32), a(i, 44), a(i, 49), a(i, 54), a(i, 59)))
            Else
                aa(l) = CLng(aa(l))
            End If
        Next l

de la je fais un application.min sur des type long et la ca fonctionne et je peux reconvertir mon long en date

Code :

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

Year(CDate(Application.Min(aa))) & Month(CDate(Application.Min(aa)))

le 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
    For i = LBound(a, 1) To UBound(a, 1)
        aa() = Array(a(i, 4), a(i, 6), a(i, 9), a(i, 12), a(i, 15), a(i, 18), a(i, 25), a(i, 32), a(i, 44), a(i, 49), a(i, 54), a(i, 59))
        For l = LBound(aa) To UBound(aa)
            If aa(l) = "" Then
                aa(l) = CLng(Application.Max(a(i, 4), a(i, 6), a(i, 9), a(i, 12), a(i, 15), a(i, 18), a(i, 25), a(i, 32), a(i, 44), a(i, 49), a(i, 54), a(i, 59)))
            Else
                aa(l) = CLng(aa(l))
            End If
        Next l
        If Year(CDate(Application.Min(aa))) & Month(CDate(Application.Min(aa))) = ThisWorkbook.Worksheets("TdB").Range("N2").Value & b(k) Then
            Select Case a(i, 3)
                    Case "PETRI": CPT_P = CPT_P + 1
                    Case "T&F": CPT_T = CPT_T + 1
                    Case "AUTRES": CPT_a = CPT_a + 1
                    Case "MS":  CPT_M = CPT_M + 1
            End Select
        End If
    Next i

par contre si quelqu'un arrive à m'expliquer pourquoi le fait de ne pas convertir en long ne fonctionne pas je suis preneur

[patricktoulon]

re

par contre si quelqu'un arrive à m'expliquer pourquoi le fait de ne pas convertir en long ne fonctionne pas je suis preneur

la réponse est évidente
max ,min ,average,etc.... ne fonctionne que sur des longs

perso a chercher la plus petite date j'utiliserait un filtre et ensuite ton array de cells sur la même ligne

[Marc-L]

Bonjour, bonjour !

J'ai donc fait des tests et la fonction small ne fonctionne pas même en passant par un array.

Pourtant aucun souci avec une matrice :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Demo1()
    Dim L(5) As Integer
        L(0) = 9
        L(1) = 3
        L(2) = 6
        L(3) = 2
        L(4) = 7
        L(5) = 5
    MsgBox Application.Small(L, 2)
End Sub

la réponse est évidente
max ,min ,average,etc.... ne fonctionne que sur des longs

Cela fonctionne aussi avec des Integer, des Double, … bref avec toutes valeurs numériques !

L'astuce pour une plage de - vraies - dates est par exemple de la récupérer via la propriété Value2 :

Code :

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

1
2
3
Sub Demo2()
    MsgBox CDate(Application.Small([A1:A9].Value2, 3))
End Sub

Cette p'tite démonstration affiche la troisième plus ancienne date de la plage A1:A9 …

Voilà, voilà !

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[patricktoulon]

oui effectivement Marc j'emploi souvent le terme long pour les numériques que veux tu on va pas me refaire hein!!!!

[joe.levrai]

que veux tu on va pas me refaire hein!!!!

Ah non pitié, ça pourrait être pire !

[patricktoulon]

[RyuAutodidacte]

Bonjour,
une autre solution à condition de ne pas avoir de cellule vide,
après en approfondissant il est surement possible d'éliminer les cellules vides

Code :

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

1
2
3
4
5
6
Sub Test2()
'code de brettdj sur stackoverflow
Dim MyArray()
MyArray = Array(900, 0, 100, 3, 1)
MsgBox Evaluate("Min(" & Join(Filter(MyArray, 0, False), ",") & ")")
End Sub

Edit : Malheureusement Filter ne marche pas sur Mac à mon grand désarroi mais sans problème sur PC
je pense qu'il faut doubler le join et le Filter pour enlever les cellules = ""

[patricktoulon]

salut ryu

et le replace alors hein!!!????

Code :

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

1
2
3
4
5
6
Sub Test2()
'code de brettdj sur stackoverflow
Dim MyArray()
MyArray = Array(900, 0, 100, 3, 2)
MsgBox Evaluate("Min(" & Replace(Join(Filter(MyArray, 0, False), ","), ",,", "99999999999") & ")")
End Sub

cela dit la version avec small de marc fonctionne très bien même avec des cellules vides

[bboy-eazy]

Merci à tous pour vos réponses !! je ne pensais pas être aussi bien éclairé

@Marc-L en effet je ne pense pas assez à jouer sur le .value ou .value2 ou même .text mais c'est très utile quand meme

Pourtant aucun souci avec une matrice :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Demo1()
    Dim L(5) As Integer
        L(0) = 9
        L(1) = 3
        L(2) = 6
        L(3) = 2
        L(4) = 7
        L(5) = 5
    MsgBox Application.Small(L, 2)
End Sub

Et oui en effet ca fonctionne. Ca ne fonctionnait pas avec moi car je voulais le faire sur un array de dates et la ca cassait mais sur du numérique en effet aucun soucis

@Ryu, @Patrick

Code :

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

1
2
3
4
5
6
Sub Test2()
'code de brettdj sur stackoverflow
Dim MyArray()
MyArray = Array(900, 0, 100, 3, 2)
MsgBox Evaluate("Min(" & Replace(Join(Filter(MyArray, 0, False), ","), ",,", "99999999999") & ")")
End Sub

C'est vrai il faut y penser ! très bonne fonction aussi

merci à vous tous +1

[RyuAutodidacte]

Hi Patrick ,
Bien vu pour le Replace ça le fait aussi
Après peut être que dans des cas spécifique vaudra mieux le join filter