XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé

[atalec]

Bonjour

J'ai ce code

Sub Test()
Dim date_a_trouver As String
Dim trouver As Boolean
Dim datej As String
Dim RefCel As String
Dim derniere_ligne As Long
Dim wk_fichier As Workbook
Dim ws_feuil1 As Worksheet
Dim ws_feuil2 As Worksheet
Dim cellule As String

datej = Date
MsgBox (datej)

date_a_trouver = datej
With Feuil2
    derniere_ligne = .Range("A" & .Rows.Count).End(xlUp).Row
        For i = 3 To derniere_ligne
            If .Range("A" & i) = datej Then
                RefCel = .Range("A" & i).Address
                    MsgBox ("la cellule est : " & RefCel)
                    
                        Set wk_fichier = ActiveWorkbook
                        Set ws_feuil1 = wk_fichier.Worksheets("Reporting_Marques_Juin")
                        Set ws_feuil2 = wk_fichier.Worksheets("Stats a N")
    
                        cellule = RefCel
    
                        ws_feuil1.Range(cellule) = ws_feuil2.Cells(5, 2)
                    Exit Sub
            End If
        Next i
End With

Celui ci me permet de trouver dans ma feuil1 la ligne du tableau qui correspond à ma date du jour(ex : A16). Ce que j'aimerai maintenant c'est copier dans la case juste à côté (ici B16) la valeur de la cellule E2 qui se trouve dans ma feuil2.

En gros comment incrémenté d'une colonne ma variable RefCel qui contient la ref de ma cellule contenant ma date du jour.

Merci

 

[sylvanu]

Bonjour Atalec,
Sans fichier test, difficile de ... tester. 🙂

Essayez pour voir, en remplaçant :

 ws_feuil1.Range(cellule) = ws_feuil2.Cells(5, 2)
 
 par
 
ws_feuil1.Range(RefCel).Offset(0, 1) = ws_feuil2.Cells(5, 2)

"Offset" permet de décaler le nombre de lignes et le nombre de colonnes.