Discussion :

[bisk32]

Bonjour à vous,

J'ai un petit problème avec un fichier Excel provenant d'un autre logiciel. Ce fichier contient des heures et lorsque la donnée dépasse 1 heure tout va bien : Excel le considère comme suit [hh]:mm:ss. Mais, quand la donnée est de moins d'heure : il s'inscrit dans le format suivant hh:mm et il considère les minutes pour des heures et les secondes pour des minutes. Exemple : 35m25s devient 35:25 comme si c'était 35 heures.

Est-ce qu'il a une possibilité de faire une macro pour convertir les données de moins d'une heure dans le bon format, peut-être aussi avec une formule?

Si vous avez besoin de plus d'info, n'hésiter pas à me le formuler.

Merci et bonne journée

[bisk32]

Compte tenu que je n'ai pas eu de réponse, je vais vous envoyer une pièce jointe

Donc dans les colonnes F à I les heures qui sont de moins d'une heure correspondent en fait à minutes et secondes.

Ex : la cellule F1 est inscrit 00:09:00 alors que cela correspond plutôt à 00:00:09.

J'aimerais pouvoir modifier la donnée sans réinscrire manuellement chaque entrée de moins d'une heure.

[geogeo70]

J'ai nommé la zone baseheures et j'ai essayé la petite routine ci dessous : (c.text reprend le texte formaté ce qui m'a surpris je n'y croyais pas!)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub trans()
Dim zone As Range, c As Range
 
Set zone = ThisWorkbook.Sheets("1au17dec").Range("baseheures")
For Each c In zone
c.Select
 If Len(c.Text) = 5 Then c.Value = c.Value / 60 
Next c
 
 
End Sub

Et toutes les valeurs sur 5 caractères se divisent par 60 est ce suffisant?
Il suffit de refaire le format pour toutes les cellules et ça marche.


le fichier avant éxécution de la macro trans :1au17dec.xlsm

[Marc-L]

Bonjour,

l'idéal n'est pas d'intervenir à posteriori mais à la source !
Si les données sont importées, mieux vaut corriger alors la procédure d'importation mal conçue …

[bisk32]

Bonjour Geogeo70,

Cela fonctionne, mais malheureusement compte tenu que je veux inscrire des nouvelles données pour les dates suivantes dans le même onglet, les données précédemment convertis se redivisent par soixante.

Est-ce qu'il serait possible que le "range" soit tout simplement la sélection présente.

Merci et bonne journée,

[geogeo70]

Bonsoir,

Le plus simple est de sélectionner les nouvelles cellules (même zones disjointes avec la touche CTRL pour un ensemble de zones disjointes)
et de renommer cette sélection du même nom baseheures puis de lancer la macro.

geogeo70

PS: je viens de penser à une modification de la macro :

Set zone = Application.Selection

cela permet d'agir sur la zone sélectionnée directement,

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub trans2()
Dim zone As Range, c As Range
 
Set zone = Application.Selection
 
For Each c In zone
c.Select
 If Len(c.Text) = 5 Then c.Value = c.Value / 60
Next c
End Sub

bonne nuit...
et bon noël

geogeo70