Déplacement de tableau?

bhbh à dit:

Bonsoir, peut-être avec ce code :

Note bien le -1 en rouge, afin de sauvegarder sous le numéro de semaine que tu viens de quitter, et non le numéro de semaine actuel

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
[COLOR="Red"]Application.ScreenUpdating = False[/COLOR]
Dim NF As Worksheet, Feuille As Worksheet
If Not Intersect(Target, Range("a5")) Is Nothing Then
    For Each Feuille In ThisWorkbook.Worksheets
     If Target.Value = Val(Right(Feuille.Name, 2)) Then
        If MsgBox("Feuille déjà existante, Afficher la feuille", vbInformation + vbYesNo, "Erreur:") = vbYes Then
          Feuille.Activate
          Exit Sub
        Else
          Exit Sub
        End If
     End If
    Next
[COLOR="Red"]With Range("A4:O42")[/COLOR]
    .Copy
    Set NF = Worksheets.Add
    NF.Range("A1").PasteSpecial xlPasteAll
    NF.Name = "SEM " & Me.Range("A5") [COLOR="Red"]- 1[/COLOR]
End With
[COLOR="Red"]Range("B7:O42").ClearContents[/COLOR]
End If
Me.Activate
[COLOR="Red"]Application.ScreenUpdating = True[/COLOR]
End Sub

Cliquez pour agrandir...