Soucis d'affichage de date avec des conditions (userform , textbox)

Bonsoir,

j'ai besoin de votre aide pour afficher une date suivant une condition bien précise

ce code fonctionne bien , il affiche la date sur Tbox10 en ajoutant 4 jour à la date saisie sur Tbox6

Private Sub Tbox6_AfterUpdate() 'Process ouvrable
Dim My_date As Date
Tbox6 = CDate(Tbox6)
My_date = Tbox6
Tbox10 = My_date + 4
End Sub

ma demande est :

j'ai un Tbox4 qui contient des textes sous une liste déroulante .

je veux intégrer une condition de plus dans ce code qui dit :

si Tbox4 égale au texte "oui" alors ajoute 4 jours à la date dans Tbox10 sinon ajoute 14 jours

j'ai essayé de cette façon mais ça ne fonctionne pas :

if Tbox4.value = "oui" then

Tbox10 = My_date + 4

else

Tbox10 = My_date + 14

Mes salutations dans l'attente de vos réponses.

merci

Bonjour,

Chez moi, le code ci-dessous fonctionne correctement.

Private Sub Tbox6_AfterUpdate()

Dim My_date As Date

      My_date = CDate(TBox6)
      If TBox4.Value = "oui" Then
         TBox10 = My_date + 4
      Else
         TBox10 = My_date + 14
      End If

End Sub

merci pour le retour, mais de cette façon idem

tbox6 est une zone de liste modifiable

avec les deux conditions ( +4 ) ou (+14 ) il affiche tj la date +14 , il ne tient pas compte de la condition de (+4)

Le mieux serait de mettre en ligne votre fichier.

Bonsoir,

Liste modifiable = combobox, avez vous changé le nom des contrôles, si non y a t il un On Error Resume Next qui vous cache une erreur éventuelle ?

@ bientôt

LouReeD

If oui alors 4 sinon 14

Si toujours 14 c'est qu'il y a erreur sur le if 4

Essayez de mettre

If oui alors 4 sinon if non alors 14

S'il n'y a ni 4 et ni 14 c'est qu'il y a erreur...

@bientôt

LouReeD

le nom de la Liste modifiable est Tbox5 et non pas Tbox4

je me suis trompé de nom , c'est une connerie de ma part

toute est parfait

Private Sub Tbox6_AfterUpdate() 'Process ouvrable
Dim My_date As Date
Tbox6 = CDate(Tbox6)
My_date = Tbox6
If Tbox5 = "Livrable Actions Client" Then
Tbox10 = My_date + 4
Else
Tbox10 = My_date + 14
End If
End Sub

désolé d''avoir perdu de vos temps

merci pour tous

puisque vous êtes la , je profite de l'occasion pour m'aidez à ajouter dans ces codes

Tbox10 = My_date + 4 ........................................
et
Tbox10 = My_date + 14 ........................................

les dates des jours fériés français enregistrés dans une liste de la feuil3 nommé" Liste Jour Férie" dans la plage ("A2:A12")

vous voyez genre formule Excel :

=SI(B1="";"";SERIE.JOUR.OUVRE(B1;4;C:\mes documents\[classeur.xlsx]Liste Jour Férie'!$A$2:$A$12))

et

=SI(B1="";"";SERIE.JOUR.OUVRE(B1;14;C:\mes documents\[classeur.xlsx]Liste Jour Férie'!$A$2:$A$12))

Ne pas répondre aux derniers messages . j'ai ouvert un autre sujet sur le forum

Bonsoir,

et merci pour ce retour ! Je dirais même plus ce "détour de riz !"

@ bientôt

LouReeD