Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Addition valeur entre 2 range

  • Initiateur de la discussion Initiateur de la discussion Xion
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

X

Xion

Guest
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.
 
Re : Addition valeur entre 2 range

Allo

J'ai modifier votre code en esperant que cela repond a vos besoin
Code:
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…