Problème macro dates et textes

Bonjour,
j'ai dans le code d'un userform bidouillé avec plusieurs codes et aide un problème.
En effet, si je met ça:

Code:

---

1 2	.Range("M" & L) = (TB_date_sortie.Text) .Range("M" & L).NumberFormat = "dd/mm/yyyy"

---

il ne considère pas la date comme une date et du coup n'effectue pas les calculs et si je met ça:

Code:

---

1 2 3 4 5

If IsDate(TB_date_sortie.Text) Then '<<<<<============ .Range("M" & L).NumberFormat = "dd/mm/yyyy" .Range("M" & L) = CDate(TB_date_entree.Text) .Range("M" & L).NumberFormat = "dd/mm/yyyy" End If

---

ça marche pour la date mais il ne prends pas en compte "Présent" qui sert également pour des calculs ...
comment faire ???
merci de votre aide
@ bientôt
Marc

Bonjour,

Avec un Select case

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

With Range("M" & L)   Select Case TB_date_sortie.Text   Case IsDate(TB_date_sortie.Text) .Value = CDate(TB_date_sortie.Text) .NumberFormat = "dd/mm/yyyy" Case Else .Value = TB_date_entree.Text End Select   End With

---

Cordialement.

Bonjour,
merci de ton aide.
Il continue à me la reproduire comme du texte ... donc pas de calcul à l'arrivée ...
je ne sais quoi faire ...
@ bientôt
Marc

Bonjour,
Si ta variable est un texte, tu peux utiliser la fonction Val pour effectuer un calcul. Ainsi Val("15") * 2 donnera 30

Bonjour,
j'ai soit une date qu'il doit considérer comme une date, soit présent.
les calculs s'effectuent dans la base données
merci de ton aide
@ bientôt
Marc

En reprenant la proposition de Philippe,

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,
Si ta variable est un texte, tu peux utiliser la fonction Val pour effectuer un calcul. Ainsi Val("15") * 2 donnera 30

---

J'ai testé le code suivant à partir d'un Userform comprenant un Textbox.

J'ai initialisé une variable ContenuChamp de type Variant pour ne pas être "embêté" avec le type du contenu.

A la validation du Userform, on affecte le contenu du Textbox à ContenuChamp.

Le code suivant fonctionne pour tous les cas : Champ Date, Date sous forme Texte, Texte.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Public ContenuChamp As Variant   Sub TesterInjection2()   Dim L As Long   For L = 1 To 4 Range("M" & L).Clear Next L   L = 1   For L = 1 To 4 With UserForm1 .TB_date_sortie = Range("A" & L) .Show End With     With Range("M" & L)   If IsDate(ContenuChamp) Or Val(ContenuChamp) > 0 Then .Value = CDate(ContenuChamp) .NumberFormat = "dd/mm/yyyy" Else .Value = ContenuChamp End If   End With   Next L   End Sub

---

Il vous suffit de récupérer la partie With jusqu'à End With et de créer la variable ContenuChamp.

Cordialement.

génial ça marche
merci beaucoup à vous
c'est fantastique cette aide que l'on trouve sur les forums
bonne journée
Marc