copier coller avec decalage par date

[darko77]

Bonjour à tous,

Au risque de paraitre ridicule(qui ne tue pas !!) je n'ai rien trouvé de probant sur mon probleme...

Donc j'ai des valeur en B2 C5 C6 et la date du jour en D8 sur feuil1
J'aimerai via un bouton sur feuil1 copier ces valeurs en feuil2 avec decalage d'1 colonne à droite suivant la date déjà présente sur feuil2 !!!!

ci joint mon pb

Merci aux XLDiens savants de partager leurs savoir !!!

Cordialement
Darko77

 

[Robert]

Re : copier coller avec decalage par date

Bonjour Darko, bonjour le forum,

Je te propose le code suivant :

Private Sub CommandButton1_Click()
Dim d As Date 'éclare la variable d (Date)
Dim r As Range 'déclare la variable r (Recherche)
Dim c As Byte 'déclare la variable c (Colonne)
 
d = Range("D8").Value 'définit la variale d
 
With Sheets("Feuil2") 'prend en compte l'onglet "Feuil2"
    Set r = .Rows(1).Find(d) 'définit la variable r
    If Not r Is Nothing Then c = r.Column 'si il existe aun moins une occurence de r, définit la colonne c
    .Cells(2, c).Value = Range("B5").Value 'récupère la valeur de B5
    .Cells(3, c).Value = Range("B6").Value 'récupère la valeur de B6
    .Cells(4, c).Value = Range("C2").Value 'récupère la valeur de C2
End With 'fin de la prise en compte de l'onglet "Feuil2"
End Sub

 

[darko77]

Re : copier coller avec decalage par date

Bonjour à toi Robert, bonjour le forum

Milles(pattes) merci de la vitesse de ta réponse c'est exactement ce qu'il me faut.
Je ne trouvais pas de declaration pour la date (encore merci)

Que les XLdiens en quète de connaissances croisent ton chemin pour le bonheur de tous !!!