Discussion :

[Tournament]

Bonsoir,

Le code me donne les Types de doc. qui sont différents de FA dont la date de retour est inférieure à date du jour
mais je souhaite aussi qu il ne prenne pas en compte les MV qui affichent un 0 dans la colonne "Immobilisé"
J ai essayé de cumuler des if mais sa ne marche pas
merci pour vos conseils

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
Sub Vérifications()
 
    Const AG = "MDL"
    Const TYP = "FA"
    With Feuil1.Cells(1).CurrentRegion
 
        For R& = 1 To .Rows.Count
 
            If .Cells(R, 9).Text = AG And .Cells(R, 5).Text <> TYP And .Cells(R, 3).Value < Date Then
 
                T$ = T$ & vbLf & .Cells(R, 5).Text & vbTab & vbTab & .Cells(R, 4).Text & vbTab & vbTab & .Cells(R, 1).Text & vbTab
 
            End If
 
        Next
 
    End With
 
    If T <> "" Then
 
        MsgBox "Documents en date dépassée !" & Chr(10) & "Veuillez les régulariser et Editer un nouvel état de parc !" & Chr(10) & Chr(10) & "Typ Doc" & vbTab & vbTab & "No de Doc" & vbTab & "Immat" & T, vbExclamation, "   EN DATE DEPASSEE " & AG
 
    Else
 
        MsgBox "Pas de documents en date dépassée !"
 
    End If
 
End Sub

[Marc-L]

Bonjour,

le titre évoque un tri mais pas la présentation ni le code ‼

S'il s'agit d'une extraction en fait, pas mieux que les filtres ou les filtres avancés !
Sinon ajouter le nouveau critère dans la ligne n°9 …


_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[Tournament]

bonsoir

effectivement vous avez raison c 'est plus une sélection de données qui s'affichent dans une msgbox qu un tri
je me suis mal exprimé
ce code fonctionne très bien sauf que
en fait dans la msgbox je ne souhaite pas faire remonter le MV qui affichent un 0 dans la colonne immobilisé

La msgbox me parait plus approprié pour obliger l opérateur à mettre a jour ses documents

merci d'avance

[Marc-L]

Donc dans la ligne n°9, insérer le nouveau critère And Cells(R, n° colonne).Text ou .Value <> …

[Tournament]

excellent merci beaucoup !!
je m'étais compliqué la vie avec des if !!

merci pour votre précieuse aide