Récupérer dans une variable txt la valeur affichée d'un temps d'une cellule

Bonjour à toute et à tous,

Je rencontre une difficulté par rapport aux formats de temps.
Je m'explique: Je dois copier à partir de différentes sources des valeurs de chronométrage de courses à pied

Parfois la cellule source est au format texte (ex affiche une contenu égal à 01:05:54) et là pas de problème pour l'usage que j'en veux. Je copie la valeur de cette cellule au moyen d'une macro qui la colle dans une autre cellule dans le même format.

Mais parfois la cellule source d'Excel est au format horaire avec un affichage hh:mm:ss et une fois copiée lorsque la macro la colle dans l'autre cellule au format text, je me retrouve avec une valeur numérique inexploitable pour le but recherché (je sauvegarde ensuite la page excel au format csv pour alimentation d'une base de données).

Est-ce que quelqu'un saurait comment sauvegarder uniquement le contenu de l'affichage (par conversion) comme du texte et non le contenu date de la cellule ?

Pour résumer, j'ai besoin de savoir comment transformer le contenu date d' une cellule date en un texte prenant l'apparence d'un format de date hh:mm:ss.

Merci à celles et ceux qui voudront bien se pencher sur mon problème

n.

Bonjour
Intéresse-toi à ce qu'est la propriété Text d'une cellule. Et utilise-la.

Merci (mais je ne suis pas certain d'avoir compris la réponse :D )

J'ajoute que je n'ai pas la maitrise de la page excel source.

Je ne fais que copier celle-ci pour la coller dans un classeur excel (collage en respectant la mise en forme de la feuille de destination). les colonnes temps ne sont pas collées systématiquement au même endroit du classeur contenant les macros, je dois, après collage, au moyen d'une serie de questions préciser les colonnes contenant les noms, prénoms, ... temps...etc).
merci d'avance.
n.

Bonjour,

Il y a surement plus simple et plus propre mais enfin quand on a deux mots de langage, on fait avec:

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

Sub conversion() Dim heures As String Dim minutes As String Dim secondes As String Dim celultime As Integer Dim colonne As String   colonne = InputBox("Colonne à traiter ", "Colonne ?") destination = InputBox("Colonne de destination", "Colonne ?")   celultime = Cells.Find("*", , , , , xlPrevious).Row   For iii = 1 To celultime heures = Hour(Cells(iii, colonne)) minutes = Minute(Cells(iii, colonne)) secondes = Second(Cells(iii, colonne)) If heures < 10 Then heures = "0" & heures If minutes < 10 Then minutes = "0" & minutes If secondes < 10 Then secondes = "0" & secondes   Cells(iii, destination) = heures & ":" & minutes & ":" & secondes   Next iii   End Sub

---

:coucou:

Regarde (en appliquant ce que je t'ai dit plus haut à propos de la propriété .text.
Exemple :

Code:

---

1 2 3 4 5 6

colonne = "j" Destination = "L" Columns(Destination).NumberFormat = "@" For Each c In Columns(colonne).SpecialCells(xlCellTypeConstants) Columns(Destination).Rows(c.Row).Value = c.Text Next

---

je suis même à peu près certain de ce que le formatage suffit seul, et que marcherait également ceci, tout bête :

Code:

---

1 2 3 4

colonne = "j" Destination = "L" Columns(Destination).NumberFormat = "@" Columns(colonne).Copy Destination:=Columns(Destination)

---

Bonjour et merci,

Effectivement les deux solutions fonctionnent pour peu que j'ajoute une ligne

Code:

---

Columns(colonne).NumberFormat = "[$-F400]h:mm:ss AM/PM"

---

(pour forcer l'affichage hh:mm:ss de la colonne source qui m'affiche par ex "0,042418981").

Je vais essayer de me documenter car tout cela est bien mystérieux pour moi.

Merci donc :D

Hélas, il arrive au sein des même résultats de courses que les temps des coureurs sont parfois des données texte (ex 01:10:05, 01.10.05 ou 1h10'05") et parfois des données temps (avec affichage de type hh:mm:ss) . Je suppose qu'il s'agit de retouches manuelles de la part de chronométreurs amateurs après réclamations.

Je dois donc traiter individuellement chaque cellule de temps collée en fonction de son type de contenu et de son format d'affichage. Donc un traitement par colonne n'arrange pas mes affaires mais merci infiniment, je vais creuser pour voir si une adaptation à chaque cellule est possible (en remplaçant "Columns()" par un "Range()" ?).

n.

Code:

---

1 2 3 4 5 6

colonne = "j" Destination = "L" Columns(Destination).NumberFormat = "@" For Each c In Columns(colonne).SpecialCells(xlCellTypeConstants) Columns(Destination).Rows(c.Row).Value = Format(CDate(c.Text), "hh:mm:ss") Next

---

fonctionnera dans tous les cas de figure.