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:
- Erreur de compilation else sans if
- Erreur 0x80070643 - Accueil - Windows
- Une erreur s'est produite instagram ✓ - Forum Instagram
- Iptv erreur de lecture - Forum TV & Vidéo
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur vidéo freebox ✓ - Forum TV & Vidéo
1 réponse
f894009
Messages postés
17205
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2024
1 709
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