Salut voici mon programme j´aimerais savoir pourquoi sa ne fonctionne pas...

Private Sub Form_Load()
Dim caca
Label 1
caca = MsgBox("Salut", vbCritical, vbOKCancel, " Attention")
If caca = vbCancel Then
goto Label 1
End If
End Sub

Merci d´avance ! !!

C´est très sale comme code, mais bon à force de penser comme une crotte c´est normal de programmer comme un porc.

ouais jaurais pu mettre sa : dim lord_kalipsy
mais c pas mieux...

Arf c´est juste une blague ^^

Essais de mettre if caca == vbCancel then peux-être que ça va marcher . ..

mais non...
en VB les test se font avec des = et pas des ==

le bon code serait :

Private Sub Form_Load()
Dim caca
Lbl1:
caca = MsgBox("Salut", vbCritical, vbOKCancel, " Attention")
If caca = vbCancel Then goto Lbl1
End Sub

Tes nom de label doivent être en 1 mot et inutile de les préfixer avec label ( d´ailleur, il ne faut pas le faire) il faut par contre mettre un 2 point après le nom. ensuite tu fait goto avec le nom du label juste.

merci encore dnob lol