pb msgbox dans select case

[Batiscaf]

Bonjour tout le monde,

Je ne comprends pas pourquoi mon case else ne fonctionne pas.
vb me demande un "=" mais si je le renseigne alors j'ai un autre message d'erreur qui dit que je dois déclarer un variant ou objet.

Voici le début de ma boucle if qui contient le select
For i = 2 To nbl1
pletat = Range("H" & i)
plstat = Range("O" & i)
Select Case pletat
Case pletat = "Correctement inscrit"
Range("J" & nbl1).FormulaR1C1 = 1
Range("M" & nbl1).FormulaR1C1 = 1
Case pletat = "Désisté"
Range("L" & nbl1).FormulaR1C1 = 1
Range("E" & nbl1).FormulaR1C1 = 0
Case pletat = "Pas venu (no show)"
Range("J" & nbl1).FormulaR1C1 = 1
Range("N" & nbl1).FormulaR1C1 = 1
Case Else
MsgBox("Erreur ! Il y a des no show avec des statuts temporaires. Corrigez la base et refaîtes un extraction", "PROBLEME") = vbOK
Exit Sub
End Select

Merci de votre aide.

Batiscaf

 

[Coriolan]

Re : pb msgbox dans select case

Bonjour,

Je vois un pb dans la syntaxe du msgbox:

Soit tu écris:
MsgBox "Erreur ! Il y a des no show avec des statuts temporaires. Corrigez la base et refaîtes un extraction", soit tu nommes une variable quelconque (par ex msgboxvar) et tu écris:

msgboxvar=msgbox("Erreur ! Il y a des no show avec des statuts temporaires. Corrigez la base et refaîtes un extraction",vbok,"Problème",)

 

[Batiscaf]

Re : pb msgbox dans select case

Bonjour,
oui tu as raison je vais faire très simple avec un msgbox sans titre ni fonction particulière.
Comme toujours j'étais parti sur du compliqué.
Merci.
Batiscaf

 

[pierrejean]

Re : pb msgbox dans select case

bonjour Batiscaf

Salut coriolan

a tester

For i = 2 To nbl1
pletat = Range("H" & i)
plstat = Range("O" & i)
Select Case pletat
Case  "Correctement inscrit"
Range("J" & nbl1).FormulaR1C1 = 1
Range("M" & nbl1).FormulaR1C1 = 1
Case  "Désisté"
Range("L" & nbl1).FormulaR1C1 = 1
Range("E" & nbl1).FormulaR1C1 = 0
Case  "Pas venu (no show)"
Range("J" & nbl1).FormulaR1C1 = 1
Range("N" & nbl1).FormulaR1C1 = 1
Case Else
MsgBox("Erreur ! Il y a des no show avec des statuts temporaires. Corrigez la base et refaîtes un extraction", "PROBLEME") = vbOK
Exit Sub
End Select

 

[Batiscaf]

Re : pb msgbox dans select case

Bonjour Pierrejean,
Je n'ai pas vu la différence entre toh code est le mien qui m'oblige à déclarer un variant ou objet, mais que je n'ai pas réussi à faire fonctionner en laissant le titre "PROBLEME".
J'ai aussi mis le vbok entre le texte et le titre, mais pas plus de succès.
Cordialement.
batiscaf.

 

[matthieu33]

Re : pb msgbox dans select case

Bonsoir Batiscaf , Pierrejean et le forum,

Tu peux utiliser le msgbox de cette manière :

MsgBox "Erreur ! Il y a des no show avec des statuts temporaires. Corrigez la base et refaîtes une extraction", vbOKOnly, "PROBLEME"

@+

 

[pierrejean]

Re : pb msgbox dans select case

bonsoir

inspire -toi de ceci qui fonctionne

 

[Batiscaf]

Re : pb msgbox dans select case

Bonjour,
Désolé pour cette réponse tardive.
Merci et bonne journée.
Batiscaf.