Résolu Besoin d'aide 'End' attendu [CLOSED]

[clementinise]

Bonjour, je prépare une petite blague pour un ami mais voila que j'ai ce message d'erreur :

Et voici les lignes :

msgbox "Bonjour ca va ?"
msgbox "Dis moi si ça va pas"
msgbox "ou je vais me faire voir ?"
msgbox "Ok ..."
msgbox " tu n'es pas très sympa ..."
msgbox "Salow va ... Appuie plus sur ok"
msgbox "TU VA MOURIR"
CreateObject("Wscript.Shell" ).Run "C:\Users\FER-14729910\Desktop\bug.bat"
msgbox "Sa fais moi le malin ^^"
rep = Msgbox ("Allez tu dégage maintenant ... STP ?", vbYesNo, "Alors ?" )
If (rep = vbYes) then
Msgbox "Merci !"
end If
If (rep = vbNo) then
rep = Msgbox ("Tu va pas commencer a faire le malin ?", vbYesNo, "Oh !" )
If (rep = vbYes) then
Msgbox "C'est bien cou-couche panier !"
End If
If (rep = vbNo) then
msgbox "OK tu m'as énervé, je lance le hack"
CreateObject("Wscript.Shell" ).Run "C:\Users\FER-14729910\Desktop\bug.bat"
CreateObject("Wscript.Shell" ).Run "C:\Users\FER-14729910\Desktop\bug.bat"
rep = Msgbox ("Tu es content ?", vbYesNo, "" )
If (rep = vbYes) then
Msgbox "Nickel parfait !"
end If
If (rep = vbNo) then
msgbox "tu me soule ..."
End if

Je vous remercie d'avance pour votre aide !

Cordialement :
Clementinise

 

[Wims]

Je connais pas trop VB, mais essaie de remette encore une fois "End If" à la fin

 

[clementinise]

Je connais pas trop VB, mais essaie de remette encore une fois "End If" à la fin

Déjà essayer sa marche pas !

 

[clementinise]

Ok fallait rajouter 2 fois End IF !