XL 2019 Horloge mondiale a VBA

[frederio]

Bonjour à tous
Tu vous connais comment faire ?
Si tu veux être d’accord avec moi ??? vous m’aidez a expliqué comme Excel Merci


Comment faire à VBA

+1

 

[frederio]

Bonjour

Voir c'est faute heure

Faite c'est corrigé

Sur https://24timezones.com/fr/difference

 

[kiki29]

Salut, pour ne pas poursuivre en Ga Bu Zo Meu utilise ceci

 

[frederio]

bonjour

je faire déjà changer heure c est parfait

problème petite =S7

 

[kiki29]

Salut, bis repetita placent : pour ne pas poursuivre en Ga Bu Zo Meu utilise ceci

 

[laurent950]

problème petite =S7

Option Explicit


Private Sub Workbook_Open()
    Dim a As Range
    Dim cell As Range
    With Sheets("MONDES")
        ' Crée une plage nommée "Pays" pour les cellules constantes dans la colonne 7 à 100
        Intersect(.[7:100], .Cells.SpecialCells(xlCellTypeConstants, 2)).Name = "Pays"
    End With
    
    ' Applique un format personnalisé et une formule pour calculer la différence d'heures
    With [Pays].Offset(, 2)
        .NumberFormat = """+""0;-0;" ' format personnalisé
        ' Boucle sur chaque cellule de la plage "Pays"
        For Each cell In .Cells
            cell.Value = CalculerDifferenceHeure(cell.Offset(0, -1), Sheets("MONDES").Range("Q2"))
        Next cell
    End With
End Sub


' Fonction pour calculer la différence d'heures entre deux plages
Function CalculerDifferenceHeure(R7 As Range, Q2 As Range) As String
    If R7.Value = Q2.Value Then
        CalculerDifferenceHeure = ""
    ElseIf R7.Value > Q2.Value Then
        CalculerDifferenceHeure = "+" & Format(R7.Value - Q2.Value, "h")
    Else
        CalculerDifferenceHeure = "-" & Format(Q2.Value - R7.Value, "h")
    End If
End Function

 

[Phil69970]

Bonjour à tous

Perso :
@laurent950 c'est l'encourager à ne faire aucun effort sur les explications qu'il donne et c'est regrettable
De plus il attend du tout mâché sans jamais faire le moindre effort de compréhension alors qu'il est complétement incompréhensible.
Cela devrait être au minimum donnant donnant !!!

Même si le français n'est pas sa langue maternelle rien ne l’empêche de mettre l'explication dans sa langue maternelle et ensuite la traduction de google translate en français !

 

[job75]

Bonjour frederio, le forum,

problème petite =S7

Il n'y a rien à faire, le code que j'ai donné dans ThisWorkbook va très bien.

Simplement effacez la colonne T contenant l'ancienne formule, enregistrez et rouvrez le fichier.

A+

 

[frederio]

merci laurent

 

[job75]

Bonsoir frederio, le foum,

Retour de vacances je reviens sur ce fil.

Ma formule était erronée, il faut entrer en D7 la différence des dates + heures :

=24*(C7-$Q$2)

d'où le code dans ThisWorkbook :

Private Sub Workbook_Open()
Dim a As Range
With Sheets("MONDES")
    Intersect(.[7:100], .Cells.SpecialCells(xlCellTypeConstants, 2)).Name = "Pays"
End With
With [Pays].Offset(, 2)
    .NumberFormat = """+""0;-0;" 'format personnalisé
    .FormulaR1C1 = "=24*(RC[-1]-R2C17)"
    For Each a In .Areas
        a = a.Value 'supprime les formules
    Next
End With
End Sub

Bonne nuit.

 

[frederio]

bonjour job

merci encore plus lol

 

[job75]

Bonjour frederio,

Il y avait une erreur dans votre formule en MONDES!R15 (un signe -) je viens de la corriger.

A+