MsgBox répertoriant des références
Bonjour à tous,
Je souhaite faire apparaître dans une MsgBox ou une TextBox, toutes les références présentes dans la colonne A qui ont une cellule à leur droite en colonne B vide ou égale à zéro.
Cependant, mon code doit être incomplet ou erroné car il ne fonctionne pas du tout.
Je vous remercie de votre aide sur ce point !
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
31
32
33
| Option Explicit
Sub ABC()
Dim file As Object
Dim f As Object
Dim wbk As Workbook
Dim i As String
Dim n As String
Set wbk = Workbooks.Open("Lien du Fichier")
With wbk.Sheets(1)
i = 2
While .Cells(i, 1).Value <> ""
If .Cells(i, 2).Value = "" Or .Cells(i, 2).Value = "0" Then
n = .Cells(i, 1)
End If
i = i + 1
Wend
If n <> "" Then
MsgBox "Les références suivantes ne sont pas renseignées :" & n
Else
MsgBox "Toutes les références ont été renseignées."
wbk.Close savechanges:=False
End If
End With
Set wbk = Nothing
End Sub |
