Discussion :

[Denis_67]

Bonjour,

Suite à la récupération de données d'un serveur en GMT, il faut que je rajoute 1 heure.

J'ai réussit à enregistrer une macro avec collage spécial et ajouter, mais ce n'est pas beau
Il faut que je passe d'abord les dates en format interne, puis copier ajouter l'heure et remettre en format date et heure.

J'aimerais utiliser une autre syntaxe, mais je n'arrive pas à la faire fonctionner
J'ai une erreur de compatibilité de type. et ce que je change ou pas le format avant d'effectuer l'ajout

Code :

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

1
2
3
4
5
6
7
8
 
    With ThisWorkbook.Sheets("protectedsheet").Range("AU2:AX3")
'    .NumberFormat = "0.00"
    .Value = .Value + 0.0416666666
'    .Value = .Value
'    .NumberFormat = "dd/mm/yyyy hh:mm:ss"
    End With
End Sub

Merci pour vos conseils
Denis

[Menhir]

J'ai une erreur de compatibilité de type. et ce que je change ou pas le format avant d'effectuer l'ajout

Parce que tu essayes de copier une matrice de valeur dans une valeur.

Tu ne peux pas faire un traitement global. Il va falloir faire une boucle.

Code :

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

1
2
3
4
Dim C As Range
For Each C in ThisWorkbook.Sheets("protectedsheet").Range("AU2:AX3")
    C.Value = C.Value + (1 / 24)
Next C

[Denis_67]

Merci Menhir pour ce petit cours "élémentaire"

Le problème des autodidactes, c'est qu'on utilise des formes au petit bonheur sans toujours savoir à quoi cela correspond et quand on change le contexte bim bam boum.

Une fois de plus merci aux experts patients, qui répondent gentiment et factuellemnt.

Je m'en vais donc mettre en place cette petite boucle.

Denis