Selection d'une cellule en fonction d'une variable

Version imprimable

09/12/2018, 12h27
tiofay

Selection d'une cellule en fonction d'une variable
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:

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

Bonjour tiofay,

Si j'ai bien compris voila un code

Mis dans un module

Code:

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

bonjour
2 lignes!!
Code:

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)
;)

11/12/2018, 13h49
tiofay

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