Discussion :

[Greg57365]

Bonsoir,

Je vous expose mon petit problème :

Je dispose dans une colonne A de différentes dates de la forme "13/05/2016" par exemple.
En B, donc à côté de cette date, je dispose d'une heure de la forme "15:20:59" par exemple (heures:minutes:secondes)

Je cherche, lors du clic sur un bouton de commande, à écrire en B la valeur de A suivi de "-" suivi de la valeur de B, et ce sur toutes les lignes.

Voici mon petit code :

Code :

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

1
2
3
4
5
6
7
Dim b As Integer
b = Workbooks("ECOAIR.xlsm").Sheets("Données").Range("A1048576").End(xlUp).Row
Dim cell As Range
For Each cell In Workbooks("ECOAIR.xlsm").Sheets("Données").Range("B2:B" & b)
 
    cell.Value = cell.Offset(0, -1) & " - " & cell.Value
Next

Je n'obtiens pas ce que je veux: j'obtiens en B des valeurs de type "13/05/2016 - 0,254156" par exemple... Je ne comprends pas pourquoi il m'affiche un nombre décimal au lieu de mon heure. Quelqu'un aurait-il une solution ?

Merci d'avance

Greg

[unparia]

Bonjour
Les dates et heures ne sont pas des chaînes alphanumériques à concaténer pour obtenir une nouvelle valeur de type Date/heure !
Ce sont des valeurs NUMERIQUES et elles sont à additionner dans tons cas de figure