Discussion :

[Renato75]

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 :

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
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

[Invité]

Bonjour

Cependant, mon code doit être incomplet ou erroné car il ne fonctionne pas du tout

C'est à dire ? Une erreur, le résultat n'est pas celui attendu ?

De plus, si tu attends plusieurs résultats, cette ligne ne colle pas :

Code :

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

n = .Cells(i, 1)

En effet, tu remplaces la valeur de n par une autre sans garder la précédente, il faudrait quelle que chose de ce genre.

Code :

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

n = n & ":" & .Cells(i, 1)

Philippe

[Renato75]

Bonjour Philippe,

Il me manquait ça :

Code :

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

n = n & ":" & .Cells(i, 1)

Merci de ton aide, dorénavant tout fonctionne à merveille.