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.

  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 :
    1323
    "J'aime" reçus :
    123
    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 :
    12579
    "J'aime" reçus :
    735
    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 :
    14849
    "J'aime" reçus :
    464
    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 Impliqué

    Inscrit depuis le :
    2 Août 2006
    Messages :
    504
    "J'aime" reçus :
    58
    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
  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 :
    14849
    "J'aime" reçus :
    464
    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 Impliqué

    Inscrit depuis le :
    2 Août 2006
    Messages :
    504
    "J'aime" reçus :
    58
    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:
      7
  9. pierrejean

    pierrejean XLDnaute Barbatruc

    Inscrit depuis le :
    19 Janvier 2006
    Messages :
    14849
    "J'aime" reçus :
    464
    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 Impliqué

    Inscrit depuis le :
    2 Août 2006
    Messages :
    504
    "J'aime" reçus :
    58
    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 :
    12579
    "J'aime" reçus :
    735
    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