Discussion :

[tiofay]

Bonjour à tous,

je souhaite copier les données d'une cellule fixe (ça c'est ok), pour ensuite l insérer dans une cellule qui elle sera défini en fonction d'une variable.

Je m'explique j'ai deux feuilles 1 feuille "Bordereau de recettes" et 1 feuille "conso"
Mon but est de copié la cellule C8 de la feuille conso et de la reporté dans la colonne B de ma feuille bordereau de recettes, en choisisant la cellule en fonction de la date en colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Sub controle_date_transfert()
Sheets("Conso").Range("C8").Copy Destination:=Sheets("Bordereau de recettes").Range("B8")
End Sub

j'ai écrit cela mais bien sure cela ne fonctionne que pour insérer dans la cellule B8 , mon souhait serai de choisir la cellule qui correspond à la date du jour en colonne A

j'ai essayé avec la rechercheV mais le problème et que l’actualisation des cellules ne correspondant pas à la date du jour reviennent eux en valeur #NA

[ZTeddy]

Bonjour tiofay,

Si j'ai bien compris voila un code


Mis dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
'**********************************************************
' Code: rechercher et inscrire la valeur C8 de la feuille conso a la date du jour
'**********************************************************
Option Explicit
 
Sub controle_date_transfert()
Dim i As Single, Derlign As Single
 
' cherche la dernière ligne ecrite de la colone A
' End(xlUp) équivalance de ctrl + haut
Derlign = Worksheets("Bordereau de recettes").Range("A65536").End(xlUp).Row
     Worksheets("Bordereau de recettes").Select
    ' Boucle pour trouver la date du jour jusqu'a la dernière ligne
    For i = 1 To Derlign
         ' Date donne la date du jour par rapport au Pc
        If Range("A" & i) = Date Then
            Sheets("Conso").Range("C8").Copy Destination:=Sheets("Bordereau de recettes").Range("B" & i)
            Exit Sub
        End If
    Next i
 
End Sub

[patricktoulon]

bonjour
2 lignes!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub test()
dim c as range
Set c = Sheets("Bordereau de recettes").Range("A1", Cells(Rows.Count, 1).End(xlUp)).Find(Date, lookat:=xlWhole)
If Not c Is Nothing Then Sheets("Conso").Range("C8").Copy Destination:=c.offset(0,X)
End Sub

remplace le x par l'offset que tu veux
j'ai cru comprendre que c'etait la colonne "B" se sera donc .offset(0,1)

[tiofay]

Bonjour merci pour ta réponse je regarde cela dès que possible et reviens vers toi .