Discussion :

[Tournament]

Bonsoir

j ai le tableau suivant :

Matricule....Date............... Type de doc.......Agence
444------ 17/06/2015----------- MV--------- AGENCE 1
333------ 20/06/2015----------- CL----------AGENCE 1
34------- 21/06/2015----------- CL----------AGENCE 2
888------ 14/06/2015----------- CL----------AGENCE 1
98------- 20/06/2015----------- CL----------AGENCE 2


est il possible d'afficher un msgbox qui me donne : Pour l'agence 1 , le type de doc dont la date est inferieure à la date du jour, en précisant aussi ( si c est possible) le numéro de matricule correspondant


merci pour votre aide

Je n ai pas joint de tableau excel suite aux recommandations
j espere que les informations fournies dans le message sont assez clairs

[tamtam64]

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Option Explicit
Option Base 1
 
Sub test()
    Dim valeur As Integer
    Dim xlsheet As Worksheet, xlsheet2 As Worksheet
    Dim MyRange As Range, AllRange As Range
    Dim MyDico As New dictionary
    Dim MyObject As Contenu
    Dim Clef As String
    Dim Key As Variant
    Dim MyTab, MyTab2()
    Dim i As Long
Set xlsheet = ThisWorkbook.Worksheets("Feuil3")
Set xlsheet2 = ThisWorkbook.Worksheets("Feuil4")
With xlsheet
    Set AllRange = .Range(.Range("A2"), .Range("A2").End(xlDown))
 
    AllRange.Select
    For Each MyRange In AllRange.Cells
        Clef = MyRange.Value & "//" & MyRange.Offset(, 1).Value & "//" & MyRange.Offset(, 2).Value & "//" & MyRange.Offset(, 3).Value
        If Not MyDico.Exists(Clef) Then
            Set MyObject = New Contenu
            MyTab = Split(Clef, "//")
            MyObject.Agence = MyTab(3)
            MyObject.DateS = MyTab(1)
            MyObject.Matricule = MyTab(0)
            MyObject.TypeD = MyTab(2)
            MyDico.Add Clef, MyObject
        End If
    Next MyRange
End With
i = 1
valeur = InputBox("Rentre le numero de l'agence")
'supprimer la clef en trop
For Each Key In MyDico.Keys
    If MyDico(Key).Agence = valeur And MyDico(Key).DateS < Date Then
        ReDim Preserve MyTab2(2, i)
        MyTab2(1, i) = MyDico(Key).TypeD
        MyTab2(2, i) = MyDico(Key).Matricule
        i = i + 1
    End If
Next Key
    xlsheet2.Range("A1").Resize(UBound(MyTab2, 1), UBound(MyTab2, 2)).Value = MyTab2
End Sub

et tu rajoute un module de classe appelé Contenu

Code :

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

1
2
3
4
5
6
Option Explicit
 
Public Matricule As Long
Public DateS As Date
Public TypeD As String
Public Agence As Integer

et ca marche super

[Tournament]

bonsoir
merci pour ta réponse
je ne pensais pas que c'était aussi complexe que çà ...
Je teste et je te dis

dommage pour LENS ...

[tamtam64]

Je ne sais pas le nombre de données, en tout cas ca fonctionne pour 10000000 de données ce truc , regarde bien et si tu comprend pas je t'explique, apres c'est pas ultra complexe le code en lui meme, mais je suis certain qu'il y a plus facile

[joe.levrai]

Bonjour,

le msgbox est impératif ?

pourquoi pas afficher dans une feuille à part le résultat ?

si tu as 200 résultats, tu vas être limité en affichage dans le msgbox ... et j'ose imaginer que tu ne veux pas 200 msgbox à la suite

[Tournament]

Bonsoir

si la msgbox peut afficher une dizaine de données c est largement suffisant
j ai fais un test avec le code que m a donné TamTam mais j ai un msg d'erreur
Erreur de compilation - Type defini par l utilisateur non defini

merci

[tamtam64]

Ouai dans ma proposition j'enregistre les lignes qui nous interesse et je les copie dans une autre feuille , comme le dit Joe ca va vite etre compliqué si tu as bcp de données, dans mon code j'ai oublié de preciser d'ajouter le reference microsoft runtime, car sinon il reconnaitra pas ton dictionaire.
Je t'ai mis une inputbox aussi pour choisir l'agence si tu veux la 1 la 2 ... par contre je l'ai mis en integer , tu peux le modifier si tu veux , mais ou tu le modiie en string dans le code ou sinon tu change tes données dans excel en mettant juste le numero pas "agence".

Et oui Pour lens c'est pas facile en ce moment :/ et c'est pas fini , mais bon supporter a vie

[Tournament]

je veux ma msgbox....
Sérieusement je préfère une msgbox sa obligerait l'utilisateur de traiter le problème
il n y aura pas 10 infos à afficher sa c est sur ...

Ensuite, pour le code agence pas nécessaire de choisir le numéro d agence ( chaque agence éditera son état )

Pour la reference microsoft runtime là je ne sais pas de quoi il s agit

désolé de t embêter mais je suis meilleur si tu me demande qui était le coach de LENS ;;;

merci encore pour ton aide

[joe.levrai]

Ce que je proposais à demi-mot dans mon précédent message, c'est d'extraire (via filtre avancé) les données pour les présenter dans une feuille

Ainsi, il devient possible de "paramétrer" ton extraction, changer l'agence, filtrer les types de documents, les matricules etc...

mais si le MsgBox te suffit amplement, j'aurai au moins eu le mérite de t'en exposer les limites qui, acceptées, ne sont plus des problèmes mais des compromis

voici ce dont je parlais : http://philippetulliez.developpez.co...dvancedfilter/

bonne lecture, tu verras que tu peux même réaliser cette opération manuellement en quelques clics

[Marc-L]

Bonsoir.

je ne pensais pas que c'était aussi complexe que çà ...

Non, c'est plutôt assez simple, avec un MsgBox par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Demo1()
    Const AG = "AGENCE 1"
 
    With Feuil1.Cells(1).CurrentRegion
        For R& = 2 To .Rows.Count
            If .Cells(R, 4).Text = AG And .Cells(R, 2).Value < Date Then T$ = T$ & vbLf & .Cells(R, 3).Text & vbTab & .Cells(R, 1).Text
        Next
    End With
 
    If T > "" Then MsgBox "Type" & vbTab & "Mat" & T, vbExclamation, "   Alerte " & AG
End Sub

_____________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_____________________________________________________________________________________________________

Je suis Charlie - Je suis Bardo

[Tournament]

Bonjour

Excellent !!!!
C'est exactement ce que je cherchais
mais j ai bien noté que si j avais beaucoup de données à extraire mieux vaut utiliser la solution avec filtre

merci à tous
vos suggestions m ont donné des idées ....

[kiki29]

Salut, pour info : La mise en forme conditionnelle dans Excel