Forum Bonaberi.com

[lucaToni]

[unistern]

[sean]

salut tout le monde
une petite question concernant communication entre socket
j'implémente une appli , et je souhaite qu'un client envoi une structure a un autre client , or les send et sendto() ,ne fonctionne qu'avec les carractères
vous avez une methode svp (hors celle de concaténer tous les elements de la structure ?)
_________________

the heartBeat..

[unistern]

amato j'ai fait ton truc today
je ne te cache pas que c'était trop facile du pure Baba quoi.
quoique je te conseillerais de changer de langage de programmation quand tu veux travailler avec les fichiers . j'ai trouvé c trop primitifs a mon gout.
un pareil exercice en java me prend kk 5 lignes.
vive la POO
j'ai commenté le code mais néamoins si t'as des questions fait moi signe

[unistern]

désolé mais le parseur du forum est defect
je vais te send le code de la fonction principale d'une autre facon

[unistern]

[amatoyoshi]

Mille Mercis Unistern ...
Je commençais déjà à désespérer.

Je vais l'essayer demain et je te tiendrai au courant.

Je sais que c'est un programme très très facile. C'est juste que je suis un vrai débutant et je ne voulais pas passer trop de temps dessus.

Encore merci.

a.S.
_________________
Aperi, Dómine, os meum ad benedicéndum nomen sanctum Tuum.
Munda quoque cor meum ab ómnibus vanis, pervérsis et aliénis cogitatiónibus.
Intelléctum illúmina, afféctum inflámma.

[----]

[----]

[unistern]

[unistern]

[meke]

unistern, (ou tous les autres informaticiens là)
est ce que tu t'y connais en programation VBA sur excel? j'ai un petit souci avec un outil que je construis qui marchait meme bien il ya 2semaines mais maintenant il bug car j'ai ajouté 2éléments et j'aimerai comprendre le bug ...
_________________

[Waddle]

[meke]

[----]

[meke]

Bon waddle, pour que tu comprennes ,il faut que je t’explique un peu ce que je veux faire.
Comme je l’ai déjà dit le programme marchait bien ,c’est parce que je voulais enlever un paramètre qu’il a commencé à buguer. Dc le souci ne vient pas des formule je pense ,mais plutôt de la variable..(enfin je pense)

Bon déjà l’outil en question sert à faire le calcul des provisions mathématiques par rapport aux assurés.

Le fichier excel est composé de 4 feuilles :

la première feuille (DateCalcul) contient juste la valeur de la date à laquelle le calcul des provisions doit avoir lieu

la deuxième feuille (données) regroupe juste les valeurs des chargements, les pourcentages du capital pour chaque tranche d’age : (bref tu n’auras même pas besoin de ça car le pb ne se situe pas au niveau des calculs)

la troisième feuille (F_Tables) regroupe les différentes tables de mortalités)

la quatrième (Assuré) regroupe les différents assurés pour lesquels on cherche à calculer les provisions mathématiques :
pour chaque assuré on a identifiant,le nom, le sexe, la date de naissance, la capital et une colonne pour les provisions mathématiques.
Ces provisions sont remplies une fois qu’on clique sur le bouton de commande "lancer le calcul" qui se trouve dans cette feuille.
Une fois que tu cliques sur le bouton de commande, tu as la userform « saisie des paramètres » qui apparait. Je ne l’ai pas posté ici car je ne sais pas comment faire pour mettre cet image là,même avec l’impression d’écran je ne sais pas comment mettre une fichier word ici....

Bref en gros dans l’userfom il ya (écrit en rouge)

ce sont des comboBox(avec des choix)

Table de mortalité pour hommes …………………………
Table de mortalité pour femmes…………………………..
Table par défaut………………………………….

Là par contre ce sont des textbox


Date de calcul de la provision mathématique…………………………
Coefficient de chargement………………………..
Intérêt technique…………………..

Bon lorsqu’on rentre tous ces paramètres , les provisions mathématiques sont bien calculées et il nya pas de soucis.
Lorsque l’utilisateur oubli de saisir l’une des 3 tables,il ya automatiquement un message d’erreur ki oblige dc celui ci a choisir les tables de mortalités.

là tout es ok

je re
_________________

[meke]

Le souci maintenant c est k lorsque j’avais fait ce code au départ, il y avait des assurés dont on ne connaissait pas le sexe , mais pour un autre portefeuille,il s’avère qu’on connait le sexe de tous les assurés donc cette table ne devrait plus entrer en compte.

Et lorsque je rentre slt les tables des femmes et pour les hommes ,j’ai le messages d’erreur comme quoi je n'ai pas sélectionner la table de mortalité par defaut : j'ai dc réglé ce pb en mettant en commentaire le code où j'avais mis cette condition (si la table n'est pas choisie , afficher "" ,je te montrerai ds le code) , lorsque je mets dc ca en commentaire, lorsque je teste l'outil et que j'entre juste les tables de mortalité pour les hommes et femmes, eh bien il ya un buge j'ai une erreur 6 qui signale une erreur d'exécution numéro 6 « dépassement de capacité » et c est ca que je ne comprends pas

Bon voici mes codes :

1)Le premier code concerne le code de la userform

Private Sub UserForm_Initialize() 'permet juste de mettre les valeurs des tables de mortalités dans les combobox pour que l'utilisateur fasse des choix pour toutes les tables
cboTableF.AddItem "TD 73/77"
cboTableF.AddItem "TV 73/77"
cboTableF.AddItem "TD 88/90"
cboTableF.AddItem "TV 88/90"
cboTableF.AddItem "TPRV"
cboTableF.AddItem "PM 60/64"
cboTableF.AddItem "PF 60/64"
cboTableM.AddItem "TD 73/77"
cboTableM.AddItem "TV 73/77"
cboTableM.AddItem "TD 88/90"
cboTableM.AddItem "TV 88/90"
cboTableM.AddItem "TPRV"
cboTableM.AddItem "PM 60/64"
cboTableM.AddItem "PF 60/64"
cboTableDef.AddItem "TD 73/77"
cboTableDef.AddItem "TV 73/77"
cboTableDef.AddItem "TD 88/90"
cboTableDef.AddItem "TV 88/90"
cboTableDef.AddItem "TPRV"
cboTableDef.AddItem "PM 60/64"
cboTableDef.AddItem "PF 60/64"

End Sub


Private Sub cbAnnul_Click() 'gère le bouton de commande annuler de l'userform, lorsqu'on clique sur le bouton annuler, la userform se ferme
SaisieParametres.Hide
End Sub


Private Sub cbValid_Click() 'gère le bouton de commande valider de la userform ,lorsqu'on clique sur le bouton valider, les differentes tables prennent les valeurs text des combobox

tabF = cboTableF.Text
tabM = cboTableM.Text
tabDef = cboTableDef.Text
If tabF = "" Then
MsgBox "Vous n'avez pas saisi la table de mortalité pour les femmes"
ElseIf tabM = "" Then
MsgBox "Vous n'avez pas saisi la table de mortalité pour les hommes"
' ElseIf tabDef = "" Then
' MsgBox "Vous n'avez pas saisi la table de mortalité utilisée par défaut"

Else
SaisieParametres.Hide
calculPM
End If
End Sub

NB : tu vois comme je te disais dans ce code, j'ai mis en commentaire le message d'erreur qui concernait la table de mortalité par défaut.
dc normalement il ne devrait pas avoir de soucis et donc après ttes les vérifications faites, la userfom se ferme automatiquement, puis le caculPM est effectué : c'est la fonction qui permet de calculer les provisions (voir plus bas)



2) code qui permet de calculer les provisions math

'définition des paramètres

Public tabF As String
Public tabM As String
Public tabDef As String
Public nbper As Integer
Public interet
Public chargement
Public tabDebTA
Public tabFinTA
Public tabTauxTA
Public tabMinTA
Public tabMaxTA


Sub SaisiePeriodes()
'On commence par définir les tranches d'age pour le calcul

Sheets("Données").Activate
interet = Range("D3").Value
chargement = Range("E4").Value
nbper = 0
Range("A10").Activate
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Activate
Loop
nbper = ActiveCell.Offset(-1, 0).Value
ReDim tabDebTA(nbper)
ReDim tabFinTA(nbper)
ReDim tabTauxTA(nbper)
ReDim tabMinTA(nbper)
ReDim tabMaxTA(nbper)
Range("B10").Activate

For i = 1 To nbper
tabDebTA(i) = ActiveCell.Value
tabFinTA(i) = ActiveCell.Offset(0, 1).Value
tabTauxTA(i) = ActiveCell.Offset(0, 2).Value
tabMinTA(i) = ActiveCell.Offset(0, 3).Value
tabMaxTA(i) = ActiveCell.Offset(0, 4).Value
ActiveCell.Offset(1, 0).Activate
Next i
End Sub


Public Sub calculPM()
Dim n
Dim tabSexe
Dim tabDN
Dim tabAge
Dim tabCap
Dim tabPM
Dim DateCalc As Date
Dim tabprobleme
Dim tabnumpb

Application.ScreenUpdating = False 'l ecran n'est plus mis à jour
'On récupère la date de calcul
Sheets("DateCalcul").Activate
DateCalc = Range("F2").Value
SaisiePeriodes
For i = 1 To nbper
If tabMinTA(i) > tabMaxTA(i) Then
MsgBox "Les valeurs minimum et maximum de la tranche d'âge " & i & " sont mal définies..."
Exit Sub
End If
Next i
For i = 1 To nbper - 1
If tabDebTA(i + 1) <tabFinTA> tabFinTA(i) Then
MsgBox "la période " & i & " est mal définie! "
Exit Sub
End If
Next i

Sheets("Assurés").Activate
'Calcul du nombre de personnes
Range("B2").Activate
n = 0
Do While ActiveCell.Value <> ""
n = n + 1
ActiveCell.Offset(1, 0).Activate
Loop
ReDim tabSexe(n) As String
ReDim tabDN(n) As Date
ReDim tabAge(n)
ReDim tabPM(n) As Double
ReDim tabCap(n)
ReDim tabprobleme(n) As Variant
ReDim tabnumpb(n) As Variant
cpt = 0
Range("C2").Activate
For j = 1 To n
tabSexe(j) = ActiveCell.Value
tabDN(j) = ActiveCell.Offset(0, 1).Value
If ActiveCell.Offset(0, 1).Value = "" Then
cpt = cpt + 1
tabprobleme(j) = 1
tabnumpb(j) = ActiveCell.Offset(0, -2).Value
End If
tabCap(j) = ActiveCell.Offset(0, 2).Value
ActiveCell.Offset(1, 0).Activate
Next j
For j = 1 To n
interm = DateDiff("d", tabDN(j), DateCalc)
tabAge(j) = CInt(interm / 365.25)
Next j
For z = 1 To n
' On Error GoTo Agetropgrand
tabPM(z) = formulePM((tabSexe(z)), (tabAge(z)), tabCap(z))
Next z
For z = 1 To n
tabPM(z) = tabPM(z) * (1 + chargement)
Next z
Sheets("Assurés").Activate
Range("F2").Activate
For z = 1 To n
If tabprobleme(z) = 0 Then
ActiveCell.Offset(z - 1, 0).Value = tabPM(z)
ElseIf tabprobleme(z) = 1 Then
ActiveCell.Offset(z - 1, 0).Value = ""
End If
Next z
If cpt <> 0 Then
r1 = "Le calcul n'a pas été effectué pour " & cpt & " assuré(s), car la date de naissance n'était pas précisée"
r2 = "Les numéros d'identification correspondants sont : "
r3 = ""
For z = 1 To n
If tabnumpb(z) <> 0 Then
r3 = r3 & Chr(13) & tabnumpb(z)
End If
Next z
MsgBox r1 & Chr(13) & r2 & Chr(13) & r3
End If

Application.ScreenUpdating = True
Exit Sub

''Gestion des erreurs
Agetropgrand:
MsgBox "la date de calcul est trop petite, ou trop grande...!"
Exit Sub

End Sub




Function formulePM(Sexe As String, Age As Integer, capital As Variant) As Double
Dim somme
ReDim somme(nbper) As Single
Dim res
Sheets("F_TABLES").Activate
Select Case Sexe
Case "F"
Select Case tabF
Case "TD 73/77"
Range("B7").Activate
Case "TV 73/77"
Range("D7").Activate
Case "TD 88/90"
Range("F7").Activate
Case "TV 88/90"
Range("H7").Activate
Case "TPRV"
Range("J7").Activate
Case "PM 60/64"
Range("L7").Activate
Case "PF 60/64"
Range("N7").Activate
Case Else
MsgBox "Vous n'avez pas saisi la table de mortalité pour les femmes"
End Select
Case "M"
Select Case tabM
Case "TD 73/77"
Range("B7").Activate
Case "TV 73/77"
Range("D7").Activate
Case "TD 88/90"
Range("F7").Activate
Case "TV 88/90"
Range("H7").Activate
Case "TPRV"
Range("J7").Activate
Case "PM 60/64"
Range("L7").Activate
Case "PF 60/64"
Range("N7").Activate
Case Else
MsgBox "Vous n'avez pas saisi la table de mortalité pour les hommes"
End Select
Case Else
Select Case tabDef
Case "TD 73/77"
Range("B7").Activate
Case "TV 73/77"
Range("D7").Activate
Case "TD 88/90"
Range("F7").Activate
Case "TV 88/90"
Range("H7").Activate
Case "TPRV"
Range("J7").Activate
Case "PM 60/64"
Range("L7").Activate
Case "PF 60/64"
Range("N7").Activate
'Case Else
' MsgBox "Vous n'avez pas saisi la table de mortalité par défaut"
End Select
End Select
'On est alors sur la ligne 7 dans la colonne Lx
'On se place sur la ligne de l'age
ActiveCell.Offset(Age, 0).Activate
'Premier terme _ période 1
somme(1) = 0
If Age <= tabFinTA(1) Then
For j = 0 To tabFinTA(1) - Age
somme(1) = somme(1) + ((ActiveCell.Offset(j, 0).Value - ActiveCell.Offset(j + 1, 0).Value) / ActiveCell.Value) * (1 + interet) ^ (-0.5 - j)
Next j
End If
cap = capital * tabTauxTA(1)
If cap <tabMinTA> tabMaxTA(1), tabMaxTA(1) > 0) Then
cap = tabMaxTA(1)
End If
somme(1) = somme(1) * cap
If nbper > 1 Then
'Périodes 2 à nbper
For i = 2 To nbper
somme(i) = 0
If Age <= tabFinTA(i) Then
If Age <= tabFinTA(i - 1) + 1 Then
For l = tabFinTA(i - 1) - Age + 1 To tabFinTA(i) - Age
somme(i) = somme(i) + ((ActiveCell.Offset(l, 0).Value - ActiveCell.Offset(l + 1, 0).Value) / ActiveCell.Value) * (1 + interet) ^ (-0.5 - l)
Next l
Else
For k = 0 To tabFinTA(i) - Age
somme(i) = somme(i) + ((ActiveCell.Offset(k, 0).Value - ActiveCell.Offset(k + 1, 0).Value) / ActiveCell.Value) * (1 + interet) ^ (-0.5 - k)
Next k
End If
End If
cap = capital * tabTauxTA(i)
If cap <tabMinTA> tabMaxTA(i), tabMaxTA(i) > 0) Then
cap = tabMaxTA(i)
End If
somme(i) = somme(i) * cap
Next i
End If
formulePM = 0
For w = 1 To nbper
formulePM = formulePM + somme(w)
Next w
End Function



PS :

ce qui pose problème c'est le code qui est en rouge car lorsque ca bugue, la ligne qui pose des pb est celle en gras et je pense que le calcul pose problème car j'ai mis en commentaire ce que j'ai écrit en gros (en gras).
mais j me demande dc why ca bugue car je comprends pas.

tu n'es pas obligée de tout lire , car le code même de formulePM est bon par rapport au calcul mais je pense que ce sont les variables que je dois peut etre modifier ,mais je ne vois pas comment


Public Sub LancementFeuille()
Load SaisieParametres
SaisieParametres.Show
End Sub

je passerai surement tt mon week dessus car j'ai déjà perdu trop de temps avec ce souci dc si t'as des questions,poses les.si tu ne peux pas m'aider, bah tant pis merci d'avance

ps: les commentaires st précédés de '
_________________

[unistern]

yémaléeeee Méké c'est toi qui code les way fort fort comme ca ?
je suis comme un bamenda kan je vois ton code.
mama je n'ai jamais fais VBA (bon jamais c'est un peu mentir car excel et lotus je work avec ces prg des fois )
mais ton niveau ci hein


en tt cas je vais encore jetter un coup d'eoil sur ton pb en attendant Waddle.
Waddle ????

ps: il ya les balises ca embelli davantage le code

[meke]

[sean]

....
_________________

the heartBeat..