Rechercher heure local

Bonjour,

J’ai sur un formulaire une combobox avec une liste de nom de pays. J’aimerais si possible avoir l’heure local du pays en fonction du choix de la combobox dans le textbox2.

Je vous remercie de votre aide.

Bonjour

Tu entres en C1 ou ailleurs la formule

=MAINTENANT()-"01:00" qui ccorrespond à l'heure UTC

(Temps universel coordonné)

Tu nommes cette cellule UTC

Tu la mets au format personnalisé "jjjj jj mmmm aaaa hh:mm"

Tu vas sur le site

http://www.ephemeride.com/atlas/fuseaux/24/fuseaux-horaires-et-decalage-horaire.html

et tu complètes ta colonne B avec les formules au modèle et format idem cellule UTC

ensuite, nous pourrons écrire le code

Cordialement

Edit: Je n'avais pas vu ton code. Pour le coup, je suis pas opérationnel

Bonjour Amadéus

Je te remercie j'ai executer exactement les consignes maintenant je suis a ta disposition pour le code,

@+

Max

Bonjour

Avec modif en c1 et Timer actif

Cordialement

Bonjour,

Je te remrcie beaucoup et te souhaite une bonne journée

Max

Bonjour,

j'ai un petit souci avec mon code qui a était réaliser par Amadeus que je salut et remercie encore.

Le code fonctionne très bien, mais lorsque j'appel l'userform d'une autre feuille j'ai un message d'erreur sur la ligne:

[/i = Application.WorksheetFunction.Match(TextBox1.Value, Range("A:A"), 0)code]

Message "Impossible de lire la propriété Match de la classe WorksheetFunction"

le code entier est ceci:
[code]Private Sub Combobox1_Click()

Dim lign As Long, i, UTC As Date

    If ComboBox1.Value <> "" Then

        lign = ComboBox1.ListIndex + 2
        TextBox1.Value = Range("A" & lign).Value
     i = Application.WorksheetFunction.Match(TextBox1.Value, Range("A:A"), 0)

TextBox2.Value = Format(Range("B" & i), "dddd dd mmm yyyy hh:mm")
    End If

End Sub

En sachant que la base de donnée se nome "Fuseau_horaire"

Je vous remercie d'avance

Cordialement

Max

Bonjour

Les divers Codes doivent intégrer le fait que tout se passe sur une autre Feuille par rapport au CommandButton

Sur ce nouveau fichier, les modifs sont faites

Cordialement

Bonsoir Amadeus

Je m'excuse de ne pas répondre avant j'était absent.

Je te remercie cela est Nickel

Bonne soirée

Max

Bonsoir

Ne t'excuses pas. Il y a tant de personnes qui ne répondent pas et oublient de dire merci que j'ai bien envie de te dire

Merci pour ta réponse et ton merci.

Bien cordialement