> Tous les forums > Forum Bureautique
 Format horaire Excel
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Droopy060
  Posté le 06/11/2006 @ 19:10 
Aller en bas de la page 
Nouvel astucien

Bonjour à tous.

Et oui encore une question sur le sacré saint format horaire en Excel.

Voici mon probmème : je souhaite convertir des données sous forme 0800 (format standard) en 08:00 (format hh:mm).

Une idée ?

Merci.

Publicité
Droopy060
 Posté le 06/11/2006 à 19:24 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Le problème est que les horaires sont des données importées ....

Je ne cherche pas une saisie rapide....


galopin01
 Posté le 06/11/2006 à 20:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour et bienvenue sur PCA,
La macro suivante fait ce que tu demandes :

Sub XHeure()
On Error Resume Next
For Each o In Selection
x = o.Value
Application.EnableEvents = False
o.Value = (Int(x / 100) + ((x Mod 100) / 100) * 10 / 6) / 24
o.NumberFormat = "h:mm;@"
Application.EnableEvents = True
Next
End Sub

A+



Modifié par galopin01 le 06/11/2006 20:08
Droopy060
 Posté le 06/11/2006 à 20:30 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien
Merci bien mais comment faut-il faire pour créer cette macro ?
galopin01
 Posté le 06/11/2006 à 20:37 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,
ça dépend un peu comment tu veux t'en servir...

Si tu ne t'en sert que sur une seule feuille (toujours la même)

Clic Droit sur l'onglet + Voir le Code
ensuite coller tout le texte de la macro dans le Module (la page blanche)

Sinon, cas général :
Utilisation dans toutes les feuilles. Macro à coller dans un module standart (Module1)
voir explications ici

A+

Droopy060
 Posté le 06/11/2006 à 20:46 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Excelent !!! Ca marche !!!

Reste plus qu'a retrouver comment affecter cette macro à un bouton.

Merci encore de ta précieuse aide.


galopin01
 Posté le 06/11/2006 à 20:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Tu pourrais par exemple utiliser un bouton personnalisé dans ta barre d'outils :
C'est quand même plus pratique que les boutons au milieu d'une feuille...

Clic Droit sur la barre d'outils + (en bas Personnaliser)

Dans la fenêtre personnalisation Onglet Commande Choisir (Ascenseur de gauche) Macros
Faire glisser le smiley de droite jusqu'à la barre d'outils (entre deux outils existants)

Faire un clic droit sur le smiley : Affecter une macro : Valider XHeure et refermer la boite de dialogue Personnalisation.

Nota : Tant que la boite de dialogue personnalisation est ouverte tu peux modifier ton smiley (Clic Droit) Image, Editeur de bouton...

A+

Droopy060
 Posté le 06/11/2006 à 22:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Encore merci Galopin.

Depuis le temps que je tourne en rond.

Bonne soirée.

Bérylion
 Posté le 07/11/2006 à 08:49 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

galopin01 a écrit :

Bonjour et bienvenue sur PCA,
La macro suivante fait ce que tu demandes :

Sub XHeure()
On Error Resume Next
For Each o In Selection
x = o.Value
Application.EnableEvents = False
o.Value = (Int(x / 100) + ((x Mod 100) / 100) * 10 / 6) / 24
o.NumberFormat = "h:mm;@"
Application.EnableEvents = True
Next
End Sub

A+



j'ai déja vu ça qqpart ...

c'est bizarre, quand j'ai voulu coder, j'ai eu un souci avec la fonction MOD en VBA ??

j'ai testé avec ta syntaxe : (x Mod 100) ça marche !
avec la mienne : Mod(x,100) ça marche pas...

encore oune pitit tour dé machie ?...




galopin01
 Posté le 07/11/2006 à 09:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,
Faut pas mélanger VBA et les formules ya Mod et MOD :

Ce MOD là n'à pas d'équivalent en WorksheetFunction !

A+

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
1 Lego acheté = le 2ème à -50% chez Cdiscount
@Cdiscount
Batterie externe OUKITEL P2001 Ultimate 2000Wh, 2000W, LifePOE4 à 1226,34 €
1226,34 € 2199 € -44% @Geekbuying
Kit de 16 Go (2x8 Go) de mémoire DDR4 Corsair Vengeance RGB Pro SL 3200 MHz à 68,99 €
68,99 € 100 € -31% @RueDuCommerce
Ecouteurs sans fil Bluetooth Xiaomi Redmi Buds 3 Lite à 20,52 €
20,52 € 32,99 € -38% @Amazon
PC Portable 17,3 pouces Acer Nitro 5 (Full HD 144Hz, Core i5 11400H, 16 Go, SSD 512 Go, GeForce RTX 3060 6 Go, Windows 11) à 899,99 €
899,99 € 1099 € -18% @Cdiscount
Boîtier COOLER MASTER MasterBox Q300L (mATX, fenêtre) à 42,56 €
42,56 € 69 € -38% @Cdiscount
Ecran 27 pouces incurvé KTC H27S17 (QHD, 165 Hz, 1 ms, HDR10) à 219,76 € (+ mini enceinte Tronsmart Trip 10W étanche IPX7 offerte)
219,76 € 300 € -27% @Geekbuying
Sélection de T-Shirts Top Gun, Minecraft, Stranger Things, Marvel, Disney, Fender à 16,99 €
16,99 € 19,99 € -15% @Amazon
SSD Crucial P3 2 To (NVMe, PCIe, M.2, 3500 Mo/s) à 129,11 € livré
129,11 € 180 € -28% @Amazon
Mini PC Beelink Mini S (Celeron N5095, 8 Go RAM, SSD 256Go, Windows 11 Pro) à 179,56 €
179,56 € 259 € -31% @Amazon

Sujets relatifs
format date excel
Excel calcul tranche horaire TH_3
Format d'enregistrement Excel dans Open Office 4
import csv dans excel 2000 format csv et txt
Format de cellule personnalisée - Excel 2007
Convertion format Excel
format cellule Excel
Format date dans en-tete excel
Format de saisie Excel
Conversion format heures minutes Excel
Plus de sujets relatifs à Format horaire Excel
 > Tous les forums > Forum Bureautique