Discussion :

[louis_h59]

Bonjour à tous,

Débutant sur VBA, je n'arrive pas à trouver une solution à mon besoin.

J'ai créé un ComboBox qui liste des années selon des colonnes de mon tableau. J'aimerai, lorsque je clique sur le bouton de commande qu'un Msgbox s'affiche en me listant le nom des personnes pour lesquelles dans la colonne de l'année, le champ est vide mais seulement les personnes qui dans une autre colonne sont à 0.

Je ne sais pas du tout comment réaliser cela ... En PJ vous trouverez un fichier d'illustration pour que ce soit peut-être un peu plus clair, dites moi s'il faut plus de précisions...

Merci d'avance !

Louis

[Docmarti]

Bonjour.

Si j'ai bien compris.

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
Private Sub CommandButton1_Click()
If ComboBox1.ListIndex < 0 Then Exit Sub
annee = ComboBox1.List(ComboBox1.ListIndex)
 
With Sheets("Feuil1")
Set Rng = .Range("C1:E1")
 
For Each c In Rng
 If c.Value = annee Then
  col = c.Column
  Exit For
 End If
Next
 
dern = .Cells(Rows.Count, "A").End(xlUp).Row
For ligne = 2 To dern
 
 If .Cells(ligne, "F").Value <> "" And .Cells(ligne, "F").Value = 0 Then
  If .Cells(ligne, col).Value = "" Then
 
   Message = Message & .Cells(ligne, "A").Value & " " _
                     & .Cells(ligne, "B").Value & vbLf
  End If
 End If
Next
End With
MsgBox Message, vbOKOnly, annee
End Sub

[louis_h59]

Bonjour Docmarti,

C'est exactement ça ! Merci beaucoup !!

Bien cordialement,

Louis