XL 2016 COPIER COLLER PLAGE DE DONNÉES VERS COLONNE

[mordious]

Bonjour

Je souhaite à l’aide d’une macro copier une plage de cellules dans une colonne d’une autre feuille selon une valeur


ci-joint fichier

 

[vgendron]

Hello
avec ce code a mettre dans un module standar

Sub copie()
Jour = Range("F2")

With Sheets("donnees")
    Set ici = .Rows(2).Find(Jour, lookat:=xlWhole)
    If Not ici Is Nothing Then
        Sheets("Feuil1").Range("F4:F54").Copy Destination:=.Cells(3, ici.Column)
    End If
End With
   

End Sub

 

[mordious]

Hello
avec ce code a mettre dans un module standar

Sub copie()
Jour = Range("F2")

With Sheets("donnees")
    Set ici = .Rows(2).Find(Jour, lookat:=xlWhole)
    If Not ici Is Nothing Then
        Sheets("Feuil1").Range("F4:F54").Copy Destination:=.Cells(3, ici.Column)
    End If
End With
  

End Sub

 

[mordious]

bonjour vgendon

merci marche nikel