Mettre à jour une heure grâce à une variable

Bonjour à tous,

J'ai crée une variable que j'ai nommé Nombre (qui est un nombre entier entre -50 et 50), quelle est la notation correcte pour l'inclure sur ce code (à la place du 2:00) ? J'ai essayé avec Nombre "[hh]:mm mais ça ne marche pas.

voici la partie du code :

Sheets("Feuil2").Select

Range("D12").Select

Application.CutCopyMode = False

ActiveCell.FormulaR1C1 = _

"=CONCATENATE(HOUR(LEFT(Feuil3!RC,5)+""2:00""),""-"",HOUR(RIGHT(Feuil3!RC,5)+""2:00""))"

Bonjour,

Comme vous ne nous avez pas dit le format que vous souhaitez si x >= 24 (si l'heure initiale est à 16:00 et X = 40 alors l'heure finale est de 56:00 ou 08:00) alors :

x = 40
[D12].FormulaR1C1 = "=CONCATENATE(TEXT(TIME(HOUR(LEFT(Feuil3!RC,5)+" & x & "/24),0,0),""hh:mm""),""-"", TEXT(TIME(HOUR(RIGHT(Feuil3!RC,5)+" & x & "/24),0,0),""hh:mm""))"

Sinon :

x = 40
[D12].FormulaR1C1 = "=CONCATENATE(HOUR(LEFT(Feuil3!RC,5))+" & x & ", "":00-"",HOUR(RIGHT(Feuil3!RC,5))+" & x & ", "":00"")"

bonjour,

merci, c'est ce que je voulais. Y'a t-il une autre fonction qui pourrait me permettre de récupérer l'heure et la minute dans la cellule ? Car avec HOUR je ne peux récupérer que l'heure et pas la minute (14:58 -17:45 dans la cellule par exemple)

Quel est le rôle du & dans la formule ?

Bonjour,

Vous ne me dites toujours pas l'affichage que vous souhaitez 54:58 (heures totales [hh]) ou 06:58 (heures quotidiennes hh) ce qui m'oblige à adapter les deux formules ... Vous n'êtes pas assez précis dans la description de vos besoins.

Quoiqu'il en soit je vous laisse supprimer la ligne qui ne vous intéresse pas :

Sub TEST()
x = 40
[D12].FormulaR1C1 = "=CONCATENATE(TEXT(TIME(HOUR(LEFT(Feuil3!RC,5)+" & x & "/24),MINUTE(LEFT(Feuil3!RC,5)),0),""hh:mm""),""-"", TEXT(TIME(HOUR(RIGHT(Feuil3!RC,5)+" & x & "/24),MINUTE(RIGHT(Feuil3!RC,5)),0),""hh:mm""))" 'Format heures quotidiennes hh
[D12].FormulaR1C1 = "=CONCATENATE(HOUR(LEFT(Feuil3!RC,5))+" & x & ", "":"", MINUTE(LEFT(Feuil3!RC,5)), ""-"",HOUR(RIGHT(Feuil3!RC,5))+" & x & ", "":"", MINUTE(RIGHT(Feuil3!RC,5)))" 'Format heures totales [hh]
End Sub

Le & sert d'opérande de concaténation entre votre formule en texte et la variable x. C'est l'argument pour concatener une variable et du texte afin d'introduire la variable dans la formule textuelle sous VBA.

Pour moi le sujet est résolu.

Cdlt,

Merci beaucoup Ergotamine,

En effet j'ai oublié de préciser que je voulais le format de 24h, merci t'es au top (comme dh'ab!). Et merci pour les explications aussi.

Bonne soirée