Discussion :

[System1212]

Bonjour,

J'ai grandement besoin de votre aide.

Je veux faire une boucle dans un tableau:

Si la cellule de la colonne B est remplit mais que la cellule de la colonne C est vide, alors affiche moi un message, sinon continue vers la prochaine étape. Mais je ne veux pas que le message s'affiche a chaque cellule vide mais jusqu'à ce qu'il en rencontre une.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
For I = 1 To 500
 
    If Cells(I, 2) <> "" And Cells(I, 5) & Cells(I, 7) & Cells(I, 14) & Cells(I, 17) = "" Then
 
        MsgBox ("Veuillez remplir colonnes suivantes: Région,Raison,Type manquement,Intervalle2")
 
 
    Else
 
        Call courriel
 
    End if 
next i

J'en suis là dans mon processus.... cela n'affiche pas mon msgbox en plus d'envoyer 500 courriels

[Invité]

Bonjour,

Je pense que vous risquez de rendre fous les utilisateurs avec vos messages. Il vaudrait mieux vérifier tous les cas à modifier et interrompre le programme s'il y en a. Le code ci-dessous, colore en jaune et filtre les cellules vides de la colonne C en plus de vos autres conditions.

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
 
Sub Test()
 
Dim I As Integer, DerniereColonne As Integer, NbCVides As Integer
 
    With ActiveSheet
 
         DerniereColonne = .UsedRange.SpecialCells(xlCellTypeLastCell).Column
         .Columns(3).Interior.Color = xlNone
         NbCVides = 0
 
         For I = 1 To 500
             If .Cells(I, 2) <> "" And .Cells(I, 5) & .Cells(I, 7) & .Cells(I, 14) & .Cells(I, 17) = "" Then
                If .Cells(I, 3) = "" Then
                   .Cells(I, 3).Interior.Color = RGB(255, 255, 0)
                   NbCVides = NbCVides + 1
                End If
             End If
         Next I
 
         If NbCVides > 0 Then
            .Range(.Cells(1, 1), .Cells(500, DerniereColonne)).AutoFilter Field:=3, Criteria1:=RGB(255, 255, 0), Operator:=xlFilterCellColor
            MsgBox "Veuillez remplir colonnes suivantes: Région,Raison,Type manquement,Intervalle2", vbCritical
            Exit Sub
         Else
 
            courriel
 
         End If
 
    End With
 
End Sub