3 codes en 1

Version imprimable

3 codes en 1

J ai 3 codes successifs qui s'enchainent et j aimerais en faire qu' un seul pour qu'il n y ait qu' une Msgbox
j ai essayé de les regrouper en supprimant les deux premières msgbox mais sa ne fonctionne pas

Merci d'avance

Code:

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
Sub Vérifications_1()
 
    Const AG = "MDL"
    Const TYP = "CL"
 
    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 And Cells(R, 7).Value = 1 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 "CL 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 CL en date dépassée !"
        Call Vérifications_2
    End If
 
End Sub

Code 2

Code:

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_2()
 
    Const AG = "MDL"
    Const TYP = "CP"
    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 And Cells(R, 7).Value = 1 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 "CP 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 CP en date dépassée !"
        Call Vérifications_3
    End If
 
End Sub

Code 3

Code:

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_3()
 
    Const AG = "MDL"
    Const TYP = "MV"
    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 And Cells(R, 8).Value = 1 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 "Mouvements 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 Mouvements en date dépassée !"
 
    End If
 
End Sub

22/06/2015, 19h31
Philippe Tulliez
Bonjour,
Tu crées une boucle où au lieu d'utiliser trois fois la même constante, tu places places les valeurs CL, CP et MV dans une variable tableau.
Exemple pour la boucle
Code:

1 2 3 4 5 Dim Typ(), nb As Byte Typ = Array("CL", "CP", "MV") For nb = 0 To UBound(Typ) MsgBox Typ(nb) Next
22/06/2015, 19h48
Tournament

Aie je suis un peu dépassé là !
je n ai pas encore cette notion de boucle ... suis un vrai débutant
et je n ai pas encore vu cette fonction

Dois je placer ce code juste avant les conditions ?
22/06/2015, 20h00
Philippe Tulliez

Bonjour,

Mais non, tu écris ton code dans la boucle et tu remplaces la constante Typ par la variable Typ(Nb) dont nb est indicé par la boucle.
J'ai expressément utilisé la même orthographe Typ en me disant que tu comprendrais. As-tu seulement fais tourner la petite procédure que j'ai publiée ?

Attention que j'ai lu en vitesse tes trois procédures et que je n'ai vu que cette différence. Il y en a peut-être d'autres
22/06/2015, 21h02
Tournament

bon j abandonne
je vais garder les 3 codes le temps que j arrive a créer cette fameuse boucle:(

merci encore
22/06/2015, 21h11
Philippe Tulliez
Bonjour,
Il me semble pourtant que mon explication était claire
1) Placer la boucle
Code:

1 2 3 4 5 6 7 Sub Verif() Dim Typ(), nb As Byte Typ = Array("CL", "CP", "MV") For nb = 0 To UBound(Typ) ' ici insérer le code d'une de tes procédures Next End Sub
2) Insérer le code d'une des procédures
3) Remplacer la constante Typ par Typ(nb), manuellement ou (c'est mieux), à l'aide de la boîte de dialogue Rechercher/Remplacer de l'éditeur de VBA (Ctrl+H)
4) Ne pas oublier de supprimer la déclaration de la constante Typ pour éviter toute ambiguïté et bien entendu l'instruction qui appelle les autres procédures Call Verification_X devenu inutile.
23/06/2015, 22h11
Tournament

Bonsoir Philippe

merci pour ton aide sa fonctionne impeccable !
23/06/2015, 22h33
Philippe Tulliez

Bonsoir,

Comme quoi, "Quand on s'y colle", c'est mieux que le Copier/Coller ;)