pb msgbox dans select case

Batiscaf · 22 Octobre 2007

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 · 22 Octobre 2007

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 · 22 Octobre 2007

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 · 22 Octobre 2007

Re : pb msgbox dans select case

bonjour Batiscaf

Salut coriolan

a tester

Code:

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 · 22 Octobre 2007

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 · 22 Octobre 2007

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 · 22 Octobre 2007

Re : pb msgbox dans select case

bonsoir

inspire -toi de ceci qui fonctionne

Batiscaf · 24 Octobre 2007

Re : pb msgbox dans select case

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

pb msgbox dans select case

Batiscaf

XLDnaute Occasionnel

Coriolan

XLDnaute Occasionnel

Batiscaf

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

Batiscaf

XLDnaute Occasionnel

matthieu33

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

Pièces jointes

Batiscaf

XLDnaute Occasionnel

Discussions similaires

pb msgbox dans select case

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency