M
Michel
Guest
Bonjour à tout le monde,
J'utilise ce code pour enregistré dans ma base :
Sub validation_Click()
Dim L As Integer
Sheets("étude faisabilité").Select
L = Range("A65536").End(xlUp).Row + 1
Range("A" & L) = Sheets("Diffusion").Range("data1")
Range("B" & L) = Sheets("Diffusion").Range("data2")
Range("C" & L) = Sheets("Diffusion").Range("data3")
Range("D" & L) = Sheets("Diffusion").Range("data4")
Range("E" & L) = Sheets("Diffusion").Range("data5")
Range("F" & L) = Sheets("Diffusion").Range("data6")
Range("G" & L) = Sheets("Diffusion").Range("data7")
Range("H" & L) = Sheets("Diffusion").Range("data8")
Range("I" & L) = Sheets("Diffusion").Range("data9")
Sheets("Diffusion").Select
End Sub
Comment faire pour que chaque celulles de A à I soit encadrée
D'avance je vous remercie
@ plus
Michel
J'utilise ce code pour enregistré dans ma base :
Sub validation_Click()
Dim L As Integer
Sheets("étude faisabilité").Select
L = Range("A65536").End(xlUp).Row + 1
Range("A" & L) = Sheets("Diffusion").Range("data1")
Range("B" & L) = Sheets("Diffusion").Range("data2")
Range("C" & L) = Sheets("Diffusion").Range("data3")
Range("D" & L) = Sheets("Diffusion").Range("data4")
Range("E" & L) = Sheets("Diffusion").Range("data5")
Range("F" & L) = Sheets("Diffusion").Range("data6")
Range("G" & L) = Sheets("Diffusion").Range("data7")
Range("H" & L) = Sheets("Diffusion").Range("data8")
Range("I" & L) = Sheets("Diffusion").Range("data9")
Sheets("Diffusion").Select
End Sub
Comment faire pour que chaque celulles de A à I soit encadrée
D'avance je vous remercie
@ plus
Michel