Fonction CDBL dans VBA
catherine
-
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
j'essaie d utiliser dans VBA la foncion CDBL qui est l'équivalent de CNUM pour transformer des heures en nombres mais dèsfois ca marche desfois non . Si l'heure est sous format 7:00 ca ne marche pas si elle est sous format : 07:00:00 oui ca marche!
voici mon code
Dim X As Integer
For X = 7 To 51
Range("A" & X).Value = CDbl(Range("C" & X).Value)
'Range("A7:A51").Value = CDbl(Range("C7:C51").Value)
Next X
MERCI DE VOTRE AIDE
<config>Windows 7 / Internet Explorer 9.0</config>
j'essaie d utiliser dans VBA la foncion CDBL qui est l'équivalent de CNUM pour transformer des heures en nombres mais dèsfois ca marche desfois non . Si l'heure est sous format 7:00 ca ne marche pas si elle est sous format : 07:00:00 oui ca marche!
voici mon code
Dim X As Integer
For X = 7 To 51
Range("A" & X).Value = CDbl(Range("C" & X).Value)
'Range("A7:A51").Value = CDbl(Range("C7:C51").Value)
Next X
MERCI DE VOTRE AIDE
<config>Windows 7 / Internet Explorer 9.0</config>
1 réponse
Bonjour,
Range("A" & X).Value = TimeValue(Range("C" & X).Value)
Mais il y a plus simple, tu copie toute la colonne C sur la colonne A
Ensuite tu met le format de la colonne A en texte.
Et si tu met la colonne C en format Texte tu auras tes heures au format nombre.
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Range("A" & X).Value = TimeValue(Range("C" & X).Value)
Mais il y a plus simple, tu copie toute la colonne C sur la colonne A
Ensuite tu met le format de la colonne A en texte.
Et si tu met la colonne C en format Texte tu auras tes heures au format nombre.
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
