XL 2010 Code VBA

[MuscatMimi]

Bonjour tous,
Dans ma feuille jointe j'ai noté mes explications
Merci a tous
Chris

 

[piga25]

Bonjour,
il est ou l'userform avec son code?
Dans le fichier joint c'est juste une image!!!!

 

[MuscatMimi]

zut oublié

 

[piga25]

Bonjour,

Un essai cela:

Private Sub ComboBox5_Change()
TextBox14 = CDate(TextBox13) + Val(ComboBox5)
End Sub

 

[MuscatMimi]

super merci , je tournais en rond, grand merci a toi

 

[MuscatMimi]

je viens d'essayer mais ça beugle

 

[piga25]

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.

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 :

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)

Private Sub ComboBox5_Change()
TextBox13 = CDate(TextBox14) + Val(ComboBox5)
End Sub

 

[MuscatMimi]

rien fonctionne

 

[MuscatMimi]

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

 

[piga25]

Re
peut être comme cela:

Private Sub ComboBox5_Change()
TextBox13 = DateAdd('d',15, TextBox14)
End Sub

 

[MuscatMimi]

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

 

[MuscatMimi]

Bonjour,
J'ai réussi
Private Sub ComboBox5_Change()
TextBox14 = CDate(TextBox13) + ComboBox5
End Sub

TextBox13.Value = Format(Date, "dd/mm/yy")

Merci a tous,bon week-end