Select case imbriqué qui ne fonctionne pas

Bonjour,

quelqu'un peut-il m'aider

voici le code:

Select Case Application.Workbooks("fax_gen.xls").Worksheets("portefeuille").Range("J1").Value = ""

Case True

GoTo traitement

Case False

Select Case ans = MsgBox("data already available, do you want to reinitialyse?", vbYesNo)

Case ans = vbNo

Exit Sub

Case ans = vbYes

GoTo traitement

End Select

End Select

traitement:

{code ....}

pourquoi suis-je renvoyé à l'étiquette traitement meme quand il y a une valeur dans range j1 et que je clique sur non dans la msgbox?

MERCII

Bonjour,

Voici l'exemple que j'ai codé, il fonctionne correctement.

Par conter il manque dans ton code un exit sub avant le traitement... sinon on passe dedans quoiqu'il arrive

Private Sub CommandButton1_Click()

Select Case ActiveWorkbook.Worksheets("Feuil1").Range("A1").Value = ""
Case True
    GoTo traitement
Case False
        ans = MsgBox("data already available, do you want to reinitialyse?", vbYesNo)
        Select Case ans
        Case vbNo
            Exit Sub
        Case vbYes
            GoTo traitement
    End Select
End Select

Exit Sub
traitement:
MsgBox "fin"

End Sub

dis moi si je répond a ta question.

en fait ce qui cloche c'est que je mettais

Case ans = vbYes

au lieu de

case vbyes

il faut juste mettre la réponse et pas la condition entière ....

je suis teeuuubbééé ^^