Erreur de Compilation : Else sans If
Résolu/Fermé
data_traveler
Messages postés
7
Date d'inscription
samedi 29 novembre 2008
Statut
Membre
Dernière intervention
28 septembre 2013
-
28 sept. 2013 à 16:18
data_traveler Messages postés 7 Date d'inscription samedi 29 novembre 2008 Statut Membre Dernière intervention 28 septembre 2013 - 28 sept. 2013 à 18:00
data_traveler Messages postés 7 Date d'inscription samedi 29 novembre 2008 Statut Membre Dernière intervention 28 septembre 2013 - 28 sept. 2013 à 18:00
A voir également:
- Else sans if vba
- Erreur 0x80070643 - Guide
- Une erreur s'est produite instagram ✓ - Forum Instagram
- Iptv erreur de lecture - Forum TV & Vidéo
- Erreur vidéo freebox ✓ - Forum TV & Vidéo
- Erreur 38 free ✓ - Forum Mobile
1 réponse
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
28 sept. 2013 à 17:25
28 sept. 2013 à 17:25
Bonjour,
Bonne suite
Sub maMsgbox()
'Définit les variables nom et prix
Dim variable As String, variable2 As Single
variable = ActiveCell.Offset(0, -5).Range("A1").Value
variable2 = ActiveCell.Offset(0, -5).Range("E1").Value
'Si le nom est vide, cette msgbox apparaîtra
If variable = "" Then
MsgBox "Il n'y a rien à vendre !", vbExclamation
Else
If MsgBox("Avez-vous bien vendu l'objet " & variable & " pour " & variable2 & " € ?", vbYesNo + vbQuestion, "Demande de Confirmation") = vbYes Then
' Si on répond oui à la question, on appelle la macro transfert et on affiche la msgbox suivante
Call Transfert
MsgBox "La vente a bien été effectuée !", vbInformation
Else
'Si on répond non, la vente est annulée et la cellule prix est sélectionnée pour le modifier
MsgBox "La vente a été annulée, vous pouvez modifier le prix de l'objet !", vbInformation
ActiveCell.Offset(0, -5).Range("E1").Select
End If
End If
End Sub
Bonne suite
28 sept. 2013 à 18:00