XL 2016 COPIER COLLER PLAGE DE DONNÉES VERS COLONNE

vgendron à dit:

Hello
avec ce code a mettre dans un module standar

VB:

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

Cliquez pour agrandir...