range("B5:B22").value=range("D5:D22").Value
Sub CopieColler()
Dim Rgn() As Variant
ReDim Rgn(0 To 2)
Set Rgn(0) = Range(Cells(5, 2), Cells(22, 2)) 'B5:B22
Rgn(1) = Range(Cells(5, 4), Cells(22, 4)) 'D5:D22
Set Rgn(2) = Range(Cells(5, 4), Cells(22, 4)) 'D5:D22
Rgn(0).ClearContents
Rgn(2).ClearContents
Rgn(0).Value = Rgn(1)
End Sub
Sub CopieColler()
Dim Rgn() As Variant
ReDim Rgn(0 To 3)
Set Rgn(0) = Range(Cells(5, 2), Cells(22, 2)) 'B5:B22
Rgn(1) = Range(Cells(5, 4), Cells(22, 4)) 'D5:D22
Set Rgn(2) = Range(Cells(5, 4), Cells(22, 4)) 'D5:D22
Set Rgn(3) = Range(Cells(5, 12), Cells(22, 12)) 'L5:L22
Rgn(0).ClearContents
Rgn(2).ClearContents: Rgn(3).NumberFormat = ";;;"
Rgn(0).Value = Rgn(1)
End Sub
Sub Effacer_ET_Coller()
Range("D5:D22").Cut Range("B5")
End Sub
Ou
- Faire effacer B5: B22
- Faire copie D5: D22
- Faire coller B5: B22
????pas effacer B5: B22
Alors ???désole j ai oublie
- pas effacer B5: B22