Addition valeur entre 2 range

[Xion]

Bonjour à tout le Forum,


Je vous explique mon problème, je souhaite placer dans une colonne des données de date + heure (ex : 25/12/09 23:20). J'ai les données de date dans une colonne et celles des heures dans une autre.

Je souhaiterais additionner les dates avec les heures (de la ligne 3 a la derniere ligne non-vide) en mettant un format (dd:mm:yy hh:mm) dans la plage de destination.

J'utilise la methode :

Selection.AutoFill Destination:=Range("B3:B" & der_lig), Type:=xlFillDefault

Mais voici le message que je recois :
==> !!!! error 1004 propriété ou objet mal défini.

Je ne sais plus trop quoi faire...

Quelqu'un aurait il une idée ?

Merci pour votre aide.

Ci-joint un fichier exemple.

 

[Xion]

Re : Addition valeur entre 2 range

Re,

Désolé, voici le fichier.

Merci

 

[jetted]

Re : Addition valeur entre 2 range

Allo

J'ai modifier votre code en esperant que cela repond a vos besoin

Sub Transfert_Date_heure()

    Dim der_lig As Long    'déclare la variable dl (Dernière Ligne)
    Dim colF As Date
    Dim colG As Date
    der_lig = Cells(Cells.Rows.Count, "F").End(xlUp).Row    'ceci evite de hard coder ie b10000
   
    For i = 2 To (der_lig + 1)
        colF = Range("F" & i).Value 'date dans la colonne F
        colG = Range("G" & i).Value 'heure dans la colonne G
        colF_colG = colF & " " & colG ' concatenner
        Range("A" & i).Select 'choisir la colonne a
        ActiveCell.Value = colF_colG 'ecrire dans la colonne a
    Next i
    End Sub

 

[Xion]

Re : Addition valeur entre 2 range

Bonjour Jetted,


Merci pour l'aide, cela marche nickel, en fait je me suis servi d'une bonne partie de ton code exemple pour l'adapter a mes besoins.

Merci beaucoup de ton aide.

Xion