Effacer une cellule

Bonjour,

quand jefface A6 a A25 dans etape 1

ainsi que C6 a C25

et E6 a E25

et G6 a G25

pour pouvoir mettre d'autre donné

en etape 2 il y a un message d'erreur

Bonjour,

Dans ce cas DerLn=0

Il faut que tu testes et que tu en tiennes compte (exit sub ou autres actions)

eric

Bonjour et merci pour votre aide

pourriez vous me le faire svp car je

n'y comprend rien merci

Tu as juste à l'ajouter après le calcul de DerLn :

Private Sub Worksheet_Activate()

    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Range("A5:G" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents
    With Sheets("Etape 1")
        DerLn = .Range("A" & Rows.Count).End(xlUp).Row
        If DerLn = 0 Then Exit Sub
        For i = 6 To DerLn
        .Cells(i, "B").Value = i - 5
        Next i
        Set Plage = .Range("A6:G" & DerLn)
        Plage.Sort key1:=.Range("C6"), Header:=xlNo
        For i = 5 To 13
             .Range("A" & DerLn & ":G" & DerLn).Copy Cells(i, "A")
             Cells(i, "B").ClearContents
            DerLn = DerLn - 1
        Next i
        Plage.Sort key1:=.Range("B6"), Header:=xlNo
        Plage.Offset(0, 1).Resize(Plage.Rows.Count, 1).ClearContents
        Cells(1, 1).Select
    End With
    Application.EnableEvents = True
End Sub

eric

je viens d'essayez je n'y arrive pas,

pouvez vous me le faire svp?

Merci

Tu n'arrives pas à copier-coller un code ?

Alt+F11 pour aller dans VBE, double cliquer sur le module de ta feuille (à gauche) et coller le code en remplacement de celui qui y est.

Ou bien juste insérer la ligne ajoutée.

eric