Boucler sur plusieur msgBox

[br44]

Bonjour le forum ,


Je voudrais poser une petite question ,voilà je dois modifier une partie de mon program . je voudrais savoire si il est possible de créer une boucle sur des MsgBox pour qu'ils apparaissent en fonction de leurs "refclient" ?

Ci joint mon program partiellement modifier

'Message d'avertissement pour les nouveaux clients
If RefClient.Value >= "C112" And RefClient.Value <= "C130" Then
If RefClient.Value = "C112" Or RefClient.Value = "C115" Then
MsgBox "Attention c'est Nouveaux Clients font partis d'un groupage ,Cliquer sur 'Groupage client'" Message 1
End If
MsgBox "Attention Nouvelle RefClient.Cliquer sur 'Nouveaux Client'" Message2
Exit Sub
End If

Il faudrait faire une boucle pour que suivant les refclients se soit l'un ou l'autre des message qui s'affiche .

Exemple: Si la refclient est de C112 alors message1
Si la ref est C114 alors message 2

Espèrant que mon explication soit claire ,je vous remercie par avance de l'aide que vous pourriez m'apporter . A bientôt sur se fil
br44

 

[jp14]

Re : Boucler sur plusieur msgBox

Bonsoir

Le plus simple est d'utiliser Select case

Select case RefClient.Value

                case "C112", "C115" ' fonction ou
                         MsgBox "Attention c'est Nouveaux Clients font partis d'un groupage ,Cliquer sur 'Groupage client'" Message 1
                 case else ' tout les autres
                         MsgBox "Attention Nouvelle RefClient.Cliquer sur 'Nouveaux Client'" Message2
end Select

A tester

JP

 

[Pierrot93]

Re : Boucler sur plusieur msgBox

Bonjour br44, jp

une autre solution pour 2 choix possibles :

Sub test()
Dim msg1 As String, msg2 As String
msg1 = "Attention c'est Nouveaux Clients font partis d'un groupage ,Cliquer sur 'Groupage client'"
msg2 = "Attention Nouvelle RefClient.Cliquer sur 'Nouveaux Client'"
MsgBox IIf(RefClient.Value = "C112", msg1, msg2)
End Sub

bonne soirée
@+

 

[br44]

Re : Boucler sur plusieur msgBox

Re: Bonjour JP14,Pierrot93,le forum

un grand merçi à vous deux pour la rapiditèe de vos rèponses .Je teste est vous tient au courant .


jp14 : j'ai juste une petites question :

Tu marque : " case "C112", "C115" ' fonction ou "

Le "fonction ou " est-il important ou s'agit-il d'une simple expression pour me dire d'ècrire se que je veux ?

Bon j'avais juste cette question pour l'instant je vous dis à plus sur se post
BR44

 

[br44]

Re : Boucler sur plusieur msgBox

Re: bonsoire , JP14,le forum


Comme prévue je revient te mettre au courant après le teste .

T'as formule fonctione mais le seul soussi se situe au niveaux de la deuxième partie de ta ligne de code :


case else ' tout les autres
MsgBox "Attention Nouvelle RefClient.Cliquer sur 'Nouveaux Client'" Message2
end Select

Le case Else serait bon mais il englobe la totalité des autres " refClient" ,Or se que je voudrait c'est qu'il fonctionne de la manière suivante :

Pour les RefClient ètant =>"C112" et <= "C130" conserné par le message 2
sauf "C112" Et "C115" Qui eux seulements sont consernés par le message 1

espèrant avoire ètè plus claire dans ma demande je te renouvel mais remerciment et dit à bientôt Br44

 

[br44]

Re : Boucler sur plusieur msgBox

Re:Bonjour ,le forum ,Jp14,Pierrot93


Se petit message pour vous signaler que j'ai rèsolue le problème . j'avais omis de mêttre la condition avant le sectCase .

Merçi à tous ceux et toutes celles qui ont lu se post . Se message mets donc fin à se fil . je vous dis à bientôt sur le forum br44