Discussion :

[retraite83]

Bonjour,

j'ai des cellules Excel définies en personnalisées hh:mm

Quand je rentre 08:30 la cellule contient bien 08:30

Je veux récupérer cette valeur dans une variable d'une macro, le problème est que je récupère le résultat de division 8/3

Le plus logique me semblait être de définir la variable en string, mais j'obtiens ce résultat, idem en Variant

J'ai essayé maintes possibilités sans trouver comment récupérer le string 08:00 dans la variable

J'ai réfléchi à une solution de repli qui consiste à transformer 08:00 en 0800 dans une autre cellule et de reconstituer à la fin 0800 en 08:00, mais je préférerai ne pas en arriver là.

Il doit bien y avoir une solution plus propre

[EricDgn]

Bonsoir,
Bizarre, je ne rencontre pas ce problème.
Cordialement.

[Philippe Tulliez]

Bonjour,
Ce que vous décrivez là est curieux mais comme vous ne publiez pas votre code, il est difficile de vous aider

Petit exemple

Code :

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

1
2
3
4
5
6
7
8
Sub T()
  Dim T As String
  Dim H As Double
  T = Range("B2").Text
  H = Range("B2").Value
  Debug.Print "T = " & T
  Debug.Print "H = " & H
End Sub

Affichera dans la fenêtre d'exécution avec comme donnée en cellule B2 de la feuille active 08:30

T = 08:30
H = 0,354166666666667

[retraite83]

Bonjour et merci,
j'ai compris mon erreur grâce au post #3

j'ai défini initialisé ma variable par :

Code :

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

  T = Range("B2")

au lieu de

Code :

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

  T = Range("B2").Text

Une mauvaise habitude de ne pas qualifier mes variables

[Philippe Tulliez]

Bonjour,
Les étapes sont les suivantes

1. Déclarer et typer la ou les variables
2. Attribuer une valeur à la variable
3. Utiliser cette variable

Une heure étant une valeur numérique comprise entre 0 et 1, normalement on utilise une variable de type Double
Au lieu de choisir d'assigner la valeur de la propriété Text à une variable de type String, On aurait put utiliser une variable type Double en la transformant en chaîne de caractères à l'aide de la fonction Format

Exemple avec la même valeur

Code :

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

1
2
3
4
5
Sub t()
  Dim H As Double
  H = Range("B2").Value
  Debug.Print Format(H, "hh:mm")
End Sub

[Pierre Fauconnier]

Salut.

Je complète en disant que si tu déclares ta variable en Date, alors, Debug.print affichera la valeur horaire. Avec 8:30 en A1 et le code suivant:

Code :

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

1
2
3
4
5
6
Sub test1()
  Dim h As Date
 
  h = Range("a1").Value
  Debug.Print h
End Sub

Tu obtiendras 08:30:00 dans la fenêtre d'exécution.


Bien faire la différence également entre Range("a1").Text, Range("a1").Value et Range("a1").Value2. Par exemple, avec une date en a1 formatée en jjjj jj mmmm aaaa, tu peux voir les différences entre les trois propriétés:

• range("a1").Text => mardi 31 août 2021 (Valeur affichée)
• range("a1").Value => 31/08/2021 (Valeur selon le type déduit par Excel)
• range("a1").Value2 => 44439 (Valeur réellement utilisée par Excel et VBA)

[Philippe Tulliez]

Bonjour Pierre,

Je complète en disant que si tu déclares ta variable en Date

C'est juste, j'ai omis d'en parler.

[retraite83]

Merci à tous

Très riche et très intéressant mais pas évident pour un "amateur"