XL 2021 Formulaire de calcul de jours

[Did25]

Bonjour le Forum , j'ai besoin de votre aide pour terminé ma programmation de formulaire en VBA ,j'utilise en formulaire pour entrer des valeurs sur une feuille .Le plus compliqué pour moi réside dans la "TbxCOSP" et "TbxCO6" . Merci de votre aide

 

[sylvanu]

Bonjour Did,
D'après ce que j'ai compris, un essai en PJ avec :

Private Sub TbxNbrMois_Change()
NbMois = CInt(UserForm1.TbxNbrMois.Value)
Nbjours = Array(0, 3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25)
Me.TbxCOSP = Nbjours(NbMois)
Me.TbxCO6 = 1.08 * NbMois
End Sub

 

[Did25]

Bonjour Did,
D'après ce que j'ai compris, un essai en PJ avec :

Private Sub TbxNbrMois_Change()
NbMois = CInt(UserForm1.TbxNbrMois.Value)
Nbjours = Array(0, 3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25)
Me.TbxCOSP = Nbjours(NbMois)
Me.TbxCO6 = 1.08 * NbMois
End Sub

Regarde la pièce jointe 1215396

Bonsoir Sylvanu , ça fonctionne mais j'ai une erreur quand j'ai saisi un mois et que je décide de le changer en le supprimant d'abord ,je pense plutôt a une combobox et un menu déroulant ,ça serai plus pratique ,ensuite il faut aussi une fois que toutes les données sont présentes ,que la somme des jours s'inscrive dans la TbxTotal .

 

[ChTi160]

Bonsoir le Fil
Pour tester

Private Sub TbxNbrMois_Change()
       With UserForm1
            With .TbxNbrMois
NbMois = IIf(.Value = "", 0, .Value)
            End With
Nbjours = Array(0, 3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25)
                   .TbxCOSP = Nbjours(NbMois)
                   .TbxCO6 = 1.08 * NbMois
                   .TbxTotal = CByte(.TbxCOSP) + CDbl(.TbxCO6)
       End With
End Sub

Jean marie

 

[Did25]

Bonjour Jean marie merci pour ton aide c'est parfait et désolé pour le retard de ma réponse .Merci au forum merci à tous 😉