Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Re,
Modifier code :
'TextBox13.Value = Format(Date, "dd mmmm yyyy") en TextBox13.Value = DateValue(Now)

comme cela à l'ouverture de l'userform la textbox13 est automatiquement renseignée.

VB:
Private Sub UserForm_Initialize()
Dim Plage As Range
  With Worksheets("Bdd")
    Set Nom1 = .Range("A2")
    Set Plage = .Range(Nom1, .Range("A65536").End(xlUp))
    Set Tableau = Plage.Resize(, 2)
  End With
  CbxNom.List = Plage.Value   'Liste nom clients
  '=============================================
ComboBox5.List = Worksheets("Données").Range("B2:B12").Value  'code clients
'=====================================
ComboBox4.List = Worksheets("Données").Range("D2:D7").Value  ' mode réglement
'=======================================================
ComboBox3.AddItem "Devis"
ComboBox3.AddItem "Facture"
'TextBox13.Value = Format(Date, "dd mmmm yyyy")
TextBox13.Value = DateValue(Now)
 
End Sub

Le calcul dans la textbox14 se fait une fois la combobox5 validée donc enlever :
Code:
Private Sub TextBox13_AfterUpdate()

'TextBox13 = TextBox14 + ComboBox5

X = CDate(TextBox13) + 15
While (Weekday(X) = 1 Or Weekday(X) = 7)
 X = X + ComboBox5
Wend
TextBox14 = Format(X, "dd/mm/yyyy")
End Sub

à la validation de la combobox5 (au préalable y mettre par défaut la valeur 0)
Code:
Private Sub ComboBox5_Change()
TextBox13 = CDate(TextBox14) + Val(ComboBox5)
End Sub
 
Private Sub TextBox13_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = True
mDFXLcalShow CalCtrl:=TextBox13, CalFormat:="dd mmmm yyyy", CalLang:="FR"
TextBox14 = CDate(TextBox13) + 15 '

'avec ce bout de code ça m'affiche direct la bonne date dans la textbox13, mais c'est pas ce que je désire
'il faut que ces 15(exemple 15 jours) s'ajoute a la date de la textbox14,mais dans la textbox13

End Sub
 
mais non, pas ça, je dois entrer le nombres de jours dans ma combobox,
ce qui revient a: la textbox13 doit afficher la date de la textbox14 en incluant le nombres de jours saisi dans combobox
Textbox14 =date du jour, 01 Avril 2024
Texybox13 = 01 Avril 2024 + nombre de la combobox ex 10jours soit textbox13 =16 Avril 2024
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
173
Réponses
5
Affichages
387
Retour