Calcul de mois entre textbox en VBA

Bonjour au forum,

Comment effectuer le calcul d'une date entre Textbox par x mois ?

TxtBoxDate = date du jour

TxtBoxValidite = nombre que je rentre compris entre 1 et 36 (mois)

TxtBoxDLC = TxtBoxDate + x (TxtBoxValidite) mois

ex : TxtBoxDate 01/11/2012, TxtBoxValidite = 15

TxtBoxDLC devrait avoir 01/04/2014

Avez-vous une idée ?

Merci

Frederique

Bonjour

A tester

Me.TxtBoxDLC = DateAdd("m", Me.TxtBoxValidite, Me.TxtBoxDate)

re

Merci Banzai64, ça fonctionne parfaitement.

Sans abusé de votre temps, j'ai une autre question

Comment mettre du texte en gras et en italic ?

Une partie de mon code

...
PremLig = CBoxProduit & " - " & CBoxMarque & Chr(10)
SecLig = "Mise en conditionnement le : " & TxtBoxDate & Chr(10)
TrLig = "A consommer avant le " & TxtBoxDLC
Sheets(1).Range(PDepart).Value = Format(PremLig, Font.Bold = True) & SecLig & Format(TrLig, Font.Italic = True)...

rien ne se passe, le texte apparait toujours normalement dans la feuille de destination

Merci

Frederique

Bonjour

Sans fichier rien que des suppositions

Sub test()
Dim PDepart As String

  PDepart = "B3"        ' ceci est un exemple
  With Sheets(1).Range(PDepart)
    .Value = "Le texte que tu veux afficher"
    .Font.Bold = True
    .Font.Italic = True
  End With
End Sub

re Banzai64

En faite, je dois obtenir ceci

1ère ligne en gras

2ème ligne normal

3ème ligne en italique

Merci

Frederique

Bonjour

Ah ce sont des lignes dans une cellule, et par une ligne par cellule

A voir

re Banzai64

Merci, tout fonctionne.

Frederique