1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

Recopie date et heure

Discussion dans 'Forum Excel' démarrée par asta29, 13 Octobre 2017 à 11:01.

  1. asta29

    asta29 XLDnaute Nouveau

    Inscrit depuis le :
    5 Décembre 2007
    Messages :
    32
    "J'aime" reçus :
    0
    Bonjour,

    Je cherche en VBA à recopier la colonne B vers la C en ajoutant la date sur la colonne C comme indiqué ci-dessous.

    Mon fichier contient beaucoup de ligne.
    Sans titre.png

    Merci
     
  2. thebenoit59

    thebenoit59 XLDnaute Accro

    Inscrit depuis le :
    18 Juillet 2013
    Messages :
    1140
    "J'aime" reçus :
    90
    Bonjour Asta.

    Sans fichier, je ne te donnerai que la procédure pour changer le format de la date:
    Code (Visual Basic):
    Cells(i, "C")= Format(Cells(i, "B"), "dd/mm/yyyy hh:mm:ss")
    En bouclant les lignes
    Code (Visual Basic):
     For i = 1 to [B65000].End(xlup).row
     
  3. Dranreb

    Dranreb XLDnaute Barbatruc

    Inscrit depuis le :
    31 Janvier 2011
    Messages :
    12298
    "J'aime" reçus :
    713
    Sexe :
    Masculin
    Habite à:
    Belfort
    Utilise:
    Excel 2016 (PC)
    Bonjour.
    Code (Visual Basic):
    Sub Macro1()
    With Range([A1], [A1000000].End(xlUp)).Offset(, 1)
       .FormulaR1C1 = "=IF(RC1>1,RC1,INT(OFFSET(RC,-1,0))+RC1)"
       .NumberFormat = "dd/mm/yyyy hh:mm:ss"
       .Value = .Value
       End With
    End Sub
     
    asta29 et zebanx aiment cela.
  4. pierrejean

    pierrejean XLDnaute Barbatruc

    Inscrit depuis le :
    19 Janvier 2006
    Messages :
    14776
    "J'aime" reçus :
    441
    Habite à:
    69400 LIMAS
    Utilise:
    Excel 2010 (PC)
    Bonjour asta
    A tester:
    Code (Text):

    Sub remplir()
    Columns("C:C").NumberFormat = "dd/mm/yyyy hh:mm:ss"
    tablo = Range("B1:C" & Range("B" & Rows.Count).End(xlUp).Row)
    tablo(1, 2) = tablo(1, 1)
    For n = LBound(tablo, 1) + 1 To UBound(tablo, 1)
       tablo(n, 2) = tablo(1, 1) + tablo(n, 1)
    Next
    Range("B1").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
    End Sub

     
    En retard moi !
    Salut thebenoit
    Salut Dranreb
     
  5. zebanx

    zebanx XLDnaute Occasionnel

    Inscrit depuis le :
    2 Août 2006
    Messages :
    404
    "J'aime" reçus :
    49
    Utilise:
    Excel 2003 (PC)
    Bonjour Pierre-Jean, Dranreb, benoit,...et à tous

    @Pierre-jean : Sauf erreur, il y a une incohérence sur les dates dans la restitution ou... j'ai fait une fausse manip ??

    ++ zebanx
     
    Dernière édition: 13 Octobre 2017 à 13:23
  6. asta29

    asta29 XLDnaute Nouveau

    Inscrit depuis le :
    5 Décembre 2007
    Messages :
    32
    "J'aime" reçus :
    0
    Merci pour vos réponses.
    La réponse de Dranreb correspond tout à fait à mon besoin, il me reste à l'adapter à mon fichier.
    Bonne journée et encore merci à vous.

    Asta
     
  7. pierrejean

    pierrejean XLDnaute Barbatruc

    Inscrit depuis le :
    19 Janvier 2006
    Messages :
    14776
    "J'aime" reçus :
    441
    Habite à:
    69400 LIMAS
    Utilise:
    Excel 2010 (PC)
    Re
    @zebanx
    Ou est l’incohérence ?
    NB: Les résultats que j'obtiens sont identiques à ceux de dranreb a ceci près que je respecte les colonnes de la demande
     
  8. zebanx

    zebanx XLDnaute Occasionnel

    Inscrit depuis le :
    2 Août 2006
    Messages :
    404
    "J'aime" reçus :
    49
    Utilise:
    Excel 2003 (PC)
    Rebonjour Pierre-jean.

    Je ne sais pas pourquoi il y a cette erreur sur les dates dans mon test, la date restant identique.
    Dranreb était parti de la colonne A, pour votre code les inputs sont en colonne B comme sur le fichier de départ et indiqué en post 7.
    Ci-joint le fichier avec les deux codes et désolé pour le dérangement sur un... problème résolu.

    ++
    zebanx
     

    Pièces jointes:

    • test2.xls
      Taille du fichier:
      32 Ko
      Affichages:
      6
  9. pierrejean

    pierrejean XLDnaute Barbatruc

    Inscrit depuis le :
    19 Janvier 2006
    Messages :
    14776
    "J'aime" reçus :
    441
    Habite à:
    69400 LIMAS
    Utilise:
    Excel 2010 (PC)
    Re
    OK toutes mes excuses , je n'avais pas perçu que dans la colonne B on a alternativement des dates et des heures
     
  10. zebanx

    zebanx XLDnaute Occasionnel

    Inscrit depuis le :
    2 Août 2006
    Messages :
    404
    "J'aime" reçus :
    49
    Utilise:
    Excel 2003 (PC)
    ;)
    Et Asta étant satisfaite de la solution de Dranreb...pas sûre qu'elle revienne sur ce post
    Bon apm Pierre-Jean
    ++ zebanx
     
  11. Dranreb

    Dranreb XLDnaute Barbatruc

    Inscrit depuis le :
    31 Janvier 2011
    Messages :
    12298
    "J'aime" reçus :
    713
    Sexe :
    Masculin
    Habite à:
    Belfort
    Utilise:
    Excel 2016 (PC)
    Oups! Je m'était pourtant trompé en retenant les colonnes A et B au lieu de B et C.
    Ah, mais je sais, c'est parce que j'avais saisi ça en A et B dans un nouveau classeur.
     

Partager cette page