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
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