Comment obtenir le fuseau horaire actuel et l’afficher dans une cellule d’Excel ?
Lorsque vous travaillez avec des classeurs Excel, notamment dans des environnements collaboratifs ou internationaux, il est essentiel de connaître précisément le fuseau horaire configuré sur votre système. En identifiant et en affichant directement dans une cellule Excel le fuseau horaire de votre machine, vous assurez l’exactitude des calculs, des rapports et des comparaisons de données sensibles à l’heure — particulièrement lorsque les fichiers sont partagés entre utilisateurs situés dans des régions différentes. Malheureusement, Excel ne propose pas de fonction intégrée permettant d’extraire cette information directement dans une cellule.
Obtenir le fuseau horaire actuel et l’afficher dans une cellule à l’aide d’une fonction personnalisée
Pour extraire et afficher directement dans une cellule Excel le fuseau horaire actuel de votre système, utilisez une fonction personnalisée (UDF) écrite en VBA. Cette approche s’avère particulièrement pratique si vous avez fréquemment besoin de cette information dans votre classeur. Voici la procédure pas à pas :
Remarque : Cette approche donne de meilleurs résultats lorsque les macros sont activées dans votre environnement Excel et que vous êtes autorisé(e) à exécuter du code VBA. Elle lit directement les paramètres régionaux du système Windows configurés sur votre ordinateur.
1. Appuyez simultanément sur les touches Alt + F11. Cela ouvre la fenêtre de l’éditeur Microsoft Visual Basic pour Applications (VBA).
2. Dans l’éditeur VBA, repérez le volet Projet à gauche, puis cliquez sur Insertion > Module. Un nouveau module s’ajoute alors à votre classeur, prêt à accueillir votre code personnalisé. Copiez soigneusement et collez le code VBA suivant dans la fenêtre vide du module :
Code VBA : Obtenir le fuseau horaire actuel dans Excel
Function GetTimeZoneAtPresent() As String
'Updated by Extendoffice 20180814
Dim xObjIs, xObjI
On Error GoTo ER
Set xObjIs = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * From Win32_TimeZone")
If xObjIs.Count = 1 Then
For Each xObjI In xObjIs
If Len(xObjI.Caption) > 1 Then
GetTimeZoneAtPresent = xObjI.Caption
Exit Function
Else
GetTimeZoneAtPresent = "Null"
Exit Function
End If
Next
End If
ER:
GetTimeZoneAtPresent = "Failed"
End FunctionVeillez à copier l’intégralité du code ci-dessus. Avant d’exécuter des macros ou la fonction personnalisée, assurez-vous que vos paramètres de macro autorisent l’exécution de code. Si une erreur ou un avertissement de sécurité s’affiche, ajustez vos paramètres via Fichier > Options > Centre de gestion de la confidentialité > Paramètres du Centre de gestion de la confidentialité > Paramètres des macros.
3. Après avoir collé le code, appuyez sur Alt + Q pour fermer l’éditeur VBA et revenir à Excel.
4. Choisissez n’importe quelle cellule où vous souhaitez afficher le fuseau horaire, saisissez cette formule : =GetTimeZoneAtPresent(), puis appuyez sur Entrée. Le fuseau horaire actuel de votre système s’affichera immédiatement dans la cellule sélectionnée.
Cette méthode s’avère particulièrement efficace pour les modèles de reporting automatisés ou les tableaux de bord partagés entre collègues situés dans différentes zones géographiques, lorsque la clarté du fuseau horaire est essentielle. Toutefois, gardez à l’esprit que les fonctions personnalisées ne fonctionnent que si le classeur est enregistré au format prenant en charge les macros (.xlsm). Si vous transférez le fichier ou l’envoyez à une personne ayant désactivé les macros, les résultats risquent de ne pas être mis à jour ni affichés.
Consultez la capture d’écran pour plus de clarté :
Si le résultat n’apparaît pas ou qu’une erreur s’affiche, vérifiez que :
- Vos paramètres de macro autorisent l’exécution de code VBA.
- Le code a été copié intégralement et sans aucune modification.
- Vous n’utilisez pas Excel en ligne ni un environnement restreint (les solutions VBA sont limitées à Excel pour ordinateur).[ [TN_42_END]]
Pour mettre à jour ou actualiser les informations relatives au fuseau horaire, il vous suffit de recalculer la feuille (appuyez sur)F9) ou de ressaisir la formule si le fuseau horaire de votre système a changé pendant votre session Excel.
Astuce : Ce résultat dépend des paramètres de votre système d’exploitation. Si vous partagez le fichier, chaque utilisateur verra son propre fuseau horaire après recalcul de la formule dans son environnement Excel local.
Libérez la magie d’Excel avec Kutools IA
- Exécution intelligente : effectuez des opérations sur les cellules, analysez des données et créez des graphiques, le tout à partir de commandes simples.
- formules personnalisées : créez des formules sur mesure pour rationaliser vos flux de travail.
- Programmation VBA : Écrivez et implémentez du code VBA en toute simplicité.
- Interprétation de formules : Décryptez facilement les formules complexes.
- Traduction de texte : Franchissez les barrières linguistiques directement depuis vos feuilles de calcul.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels