XL 2019 Utilisation de la fonction texte() en vba

S

soan

XLDnaute Barbatruc

Inactif

• 26 Septembre 2020

• #2

Bonsoir Oli,

Pour une cellule, par exemple D5, essaye : [D5].NumberFormat = "hh:mm"

Pour toute la colonne A : Columns(1).NumberFormat = "hh:mm"

Sinon, tu as aussi : MsgBox Format([D5], "hh:mm")

soan

 

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 26 Septembre 2020

• #3

Bonsoir Soan,

Cela fonctionne mais cela reste en numérique(à droite de la cellule, j'aimerais que cela passe en texte avec la même personnalisation(à gauche de la cellule)

OLi

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 26 Septembre 2020

• #4

essaye avec CStr() en plus ; mais si tu envoies
un fichier exemple, je pourrai mieux t'aider.

soan

 

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 26 Septembre 2020

• #5

Soan,

voici mon fichier

 

Pièces jointes

• Conversion.xlsm

  17.1 KB · Affichages: 10

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 26 Septembre 2020

• #6

Ton fichier en retour ; clique sur ton bouton
➯ tes 2 colonnes sont en Format Texte.

Tu peux vérifier sur la feuille le format des cellules
des colonnes F et G ; regarde aussi le code VBA.

----------------------------------------------------------

Mais je ne pense pas que ce soit le résultat attendu !
alors envoie un autre fichier avec des heures qui
soient significatives : pas que des 00:00 !

soan

 

Pièces jointes

• Conversion.xlsm

  15.8 KB · Affichages: 3

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 26 Septembre 2020

• #7

re,
mille excuses, voici

 

Pièces jointes

• Conversion.xlsm

  17.3 KB · Affichages: 2

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 26 Septembre 2020

• #8

Désolé pour le retard. (c'était moins facile que prévu, mais cette fois ça devrait aller !)

Code:

Option Explicit

'H2S : Hour To String

Private Function H2S(HM As Date) As String
  H2S = Format(Hour(HM), "00") & ":" & Format(Minute(HM), "00")
End Function

Sub conversion()
  Dim chn$, dlg&, lig&: dlg = Cells(Rows.Count, 6).End(3).Row: Application.ScreenUpdating = 0
  For lig = 2 To dlg
    With Cells(lig, 6)
      If .Value <> "" Then chn = H2S(.Value): .NumberFormat = "@": .Value = chn
    End With
    With Cells(lig, 7)
      If .Value <> "" Then chn = H2S(.Value): .NumberFormat = "@": .Value = chn
    End With
  Next lig
End Sub

Edit : j'ai optimisé le code VBA ; voir mon post #10

soan

 

Pièces jointes

• Conversion.xlsm

  19.3 KB · Affichages: 2

Dernière édition: 26 Septembre 2020

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 26 Septembre 2020

• #9

Ajout : tu pourras voir que pour des heures qui commencent par 0
comme 08:30, le zéro du début sera conservé après conversion ;
idem pour les minutes.

(même si ton fichier exemple ne contient pas de telles heures)

Si tu as besoin d'une autre adaptation, n'hésite pas à demander ! 🙂

soan

 

Dernière édition: 26 Septembre 2020

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 26 Septembre 2020

• #10

Autre version optimisée :

VB:

Option Explicit

Private Sub Job(cel As Range)
  Dim chn$: If cel = "" Then Exit Sub
  chn = Format(Hour(cel), "00") & ":" & Format(Minute(cel), "00")
  cel.NumberFormat = "@": cel = chn
End Sub

Sub conversion()
  Dim dlg&, lig&
  dlg = Cells(Rows.Count, 6).End(3).Row: Application.ScreenUpdating = 0
  For lig = 2 To dlg: Job Cells(lig, 6): Job Cells(lig, 7): Next lig
End Sub

soan

 

Pièces jointes

• Conversion.xlsm

  19.1 KB · Affichages: 4

Vote positif 0 Vote négatif

Solution

T

thespeedy20

XLDnaute Occasionnel

• 27 Septembre 2020

• #11

Soan,

Formidable, cela fonctionne nickel, je te remercie pour le temps consacré à ma demande...

Merci, bonne soirée...

OLi

 

Vote positif 0 Vote négatif