Discussion :

[MarcTer]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour,

Avec un Select case

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[MarcTer]

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

[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

[MarcTer]

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

[Invité]

En reprenant la proposition de Philippe,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[MarcTer]

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