Discussion :

[kaboche]

Bonjour,

Je souhaiterai créer une msgbox avec une condition.

- J'ai une base de données quelconque et je voudrai qu'une alerte m'annonce le nom des personnes pour lesquelles une valeur est égale à "un texte".

Le nom de mes personnes sont en en colonne A et mon critère (texte) en AM.
J'ai environ 160 lignes et je voudrai que cet alerte fasse le tour de toutes les lignes (une boucle), donc de toutes les personnes.

Après cette boucle, le but est de m'afficher une msgbox avec le nom des personnes.

Quelqu'un peut il m'aider ?

[Jean-Pierre49]

Quelque chose du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim C As Range
Dim Plage As Range
Dim V As String
Set Plage = Range("AM1:AM" & Range("A" & Rows.Count).End(xlUp).Row)
 
For Each C In Plage
    If C.Value <> "" Then V = V & Cells(C.Row, 1) & Chr$(10)
Next C
MsgBox V
End Sub

peut être

tu dis

bon courage

[kaboche]

Merci beaucoup Jean-Pierre,
le principe fonctionne mais où est ce que j'insère mon critère ?

[Jean-Pierre49]

Ton critère est toujours le même?

si oui

Code :

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

C.Value = ton critère

Si non donne plus d'info sur ton critère

Bon courage

[kaboche]

Mon critère sera toujours le même ("Terminee") et toujours dans la même colonne ("AM").

Pour le moment, le msgbox apparait mais vide.

[Jean-Pierre49]

Alors

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim C As Range
Dim Plage As Range
Dim V As String
 
Set Plage = Range("AM1:AM" & Range("A" & Rows.Count).End(xlUp).Row)
 
For Each C In Plage
    If C.Value = "Terminee" Then V = V & Cells(C.Row, 1) & Chr$(10)
Next C
 
MsgBox V

devrait convenir