Bonjour à tous,
J’ai un problème avec une succession de If . J’essaie de créer 3 niveaux de condition avec pour chaque niveau une msgbox qui apparait pour que l’utilisateur fasse son choix.
Les conditions se présentent comme suit
Niveau 1 : Choisir la langue ? Français ou néerlandais
Niveau 2 :Voulez-vous-exécuter le calcul du ratio ? Oui ou Annuler
Niveau 3 : Msg box pour confirmer l’option choisie et lancer la macro adéquate
J’ai réussi pour les 2 premiers niveaux mais j’ai une erreur d’exécution ‘13’ – Incompatibilité de type - à mon dernier niveau. Du coup le dernier msgbox n’apparait pas à l’écran. Je n’arrive pas à trouver l’erreur
D’avance un tt grd merci...j'avoue que je suis un peu deseperée alors j'espere que qqun pourra m'aider SVP .
Voici mon code (je joins aussi mon fichier)
Sub TestMsgBoxPerso()
'
' TestMsgBoxPerso Macro
'
'
Dim vRet As Integer
Dim N As Byte
Const T1 As String = "Calcul du ratio - Ratio Berekening ("
Const T2 As String = "/3)"
N = 1
vRet = MsgBoxPerso("Veuillez choisir votre langue - Gelieve uw taal te kiezen", T1 & N & T2, vQuestion, "Français|Nederlands|Annuler/Annuleren", "Book Antiqua", 11, vNormal, vCenter)
If vRet = 1 Then
N = N + 1
vRet = MsgBoxPerso("Vous êtes sur le point de calculer le ratio 'Rapport débiteurs douteux/total débiteurs - 1er trimestre 2010'! Voulez-vous poursuivre?", T1 & N & T2, vExclamation, "Oui|Annuler", "Book Antiqua", 11, vNormal, vCenter)
If vRet = 1 Then
N = N + 1
vRet = MsgBoxPerso("Veuillez patienter lors du calcul du ratio", vInformation, "Ok", "Book Antiqua", 11, vNormal, vCenter)
End If
If vRet = 2 Then
N = N + 1
vRet = MsgBoxPerso("Vous avez décidé d'annuler le calcul du ratio", vInformation, "Ok", "Book Antiqua", 11, vNormal, vCenter)
End If
End If
If vRet = 2 Then
N = N + 1
vRet = MsgBoxPerso("U gaat de ratio 'Verhouding van dubieuze debiteuren t.o.v. de totale debiteuren - bedragen 2010 - Eerste kwartaal' berekenen. Wilt U doorgaan?", T1 & N & T2, vExclamation, "Ja|Annuleren", "Book Antiqua", 11, vNormal, vCenter)
If vRet = 1 Then
N = N + 1
vRet = MsgBoxPerso("Gelieve tijdens de berekening van de ratio te wachten", vInformation, "Ok", "Book Antiqua", 11, vNormal, vCenter)
End If
If vRet = 2 Then
N = N + 1
vRet = MsgBoxPerso("U heeft besloten de berekening van de ratio te annuleren", vInformation, "Ok", "Book Antiqua", 11, vNormal, vCenter)
End If
End If
End Sub
J’ai un problème avec une succession de If . J’essaie de créer 3 niveaux de condition avec pour chaque niveau une msgbox qui apparait pour que l’utilisateur fasse son choix.
Les conditions se présentent comme suit
Niveau 1 : Choisir la langue ? Français ou néerlandais
Niveau 2 :Voulez-vous-exécuter le calcul du ratio ? Oui ou Annuler
Niveau 3 : Msg box pour confirmer l’option choisie et lancer la macro adéquate
J’ai réussi pour les 2 premiers niveaux mais j’ai une erreur d’exécution ‘13’ – Incompatibilité de type - à mon dernier niveau. Du coup le dernier msgbox n’apparait pas à l’écran. Je n’arrive pas à trouver l’erreur
D’avance un tt grd merci...j'avoue que je suis un peu deseperée alors j'espere que qqun pourra m'aider SVP .
Voici mon code (je joins aussi mon fichier)
Sub TestMsgBoxPerso()
'
' TestMsgBoxPerso Macro
'
'
Dim vRet As Integer
Dim N As Byte
Const T1 As String = "Calcul du ratio - Ratio Berekening ("
Const T2 As String = "/3)"
N = 1
vRet = MsgBoxPerso("Veuillez choisir votre langue - Gelieve uw taal te kiezen", T1 & N & T2, vQuestion, "Français|Nederlands|Annuler/Annuleren", "Book Antiqua", 11, vNormal, vCenter)
If vRet = 1 Then
N = N + 1
vRet = MsgBoxPerso("Vous êtes sur le point de calculer le ratio 'Rapport débiteurs douteux/total débiteurs - 1er trimestre 2010'! Voulez-vous poursuivre?", T1 & N & T2, vExclamation, "Oui|Annuler", "Book Antiqua", 11, vNormal, vCenter)
If vRet = 1 Then
N = N + 1
vRet = MsgBoxPerso("Veuillez patienter lors du calcul du ratio", vInformation, "Ok", "Book Antiqua", 11, vNormal, vCenter)
End If
If vRet = 2 Then
N = N + 1
vRet = MsgBoxPerso("Vous avez décidé d'annuler le calcul du ratio", vInformation, "Ok", "Book Antiqua", 11, vNormal, vCenter)
End If
End If
If vRet = 2 Then
N = N + 1
vRet = MsgBoxPerso("U gaat de ratio 'Verhouding van dubieuze debiteuren t.o.v. de totale debiteuren - bedragen 2010 - Eerste kwartaal' berekenen. Wilt U doorgaan?", T1 & N & T2, vExclamation, "Ja|Annuleren", "Book Antiqua", 11, vNormal, vCenter)
If vRet = 1 Then
N = N + 1
vRet = MsgBoxPerso("Gelieve tijdens de berekening van de ratio te wachten", vInformation, "Ok", "Book Antiqua", 11, vNormal, vCenter)
End If
If vRet = 2 Then
N = N + 1
vRet = MsgBoxPerso("U heeft besloten de berekening van de ratio te annuleren", vInformation, "Ok", "Book Antiqua", 11, vNormal, vCenter)
End If
End If
End Sub