1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
| Dim semaine As String
Private Sub CommandButton1_Click()
semaine = Sheets("saisie").Range("D4")
Range("C8:D8").Select
Selection.Copy
Sheets("1").Select
Columns("A:A").Select
Selection.Find(What:=semaine, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
' selecion.Offset(0, 2).Select
' Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
' :=False, Transpose:=False
' Sheets("SAISIE").Select
' Range("E8:Y8").Select
' Selection.Copy
' Sheets("1").Select
' Selection.Find(What:=semaine, After:=ActiveCell, LookIn:=xlFormulas, _
' LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
' MatchCase:=False, SearchFormat:=False).Activate
' selecion.Offset(0, 10).Select
' Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
':=False, Transpose:=False
'Sheets("SAISIE").Select
MsgBox " Modification effectué "
End Sub |
Partager