Discussion :

[tico06]

Bonjour,

Novice en VBA je souhaiterais supprimer la ligne d'un fichier excel mais uniquement si cette ligne se trouve a partir de la ligne 6
Ma feuille est protéger en écriture pour éviter les modifications.

Merci d'avance pour votre aide

Mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub EffaceLigneTableau1()
 
ActiveSheet.Unprotect "MDP"
    With Selection          
         If .Columns.Count > 10 Then            
            If MsgBox("confirmer la supression de la ligne", vbYesNo, "demande de confirmation d'ajout") = vbYes Then
            ActiveSheet.Rows(ActiveCell.Row).EntireRow.Delete            
            End If          
    Else
    MsgBox "Sélectionner une ligne"
End If
End With
ActiveSheet.Protect "MDP", True, True, True
End Sub

[Thautheme]

Bonjour Tico, bonjour le forum,

Essaie comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub EffaceLigneTableau1()
ActiveSheet.Unprotect "MDP"
With Selection
    If .Columns.Count > 10 And Selection.Row > 5 Then
        If MsgBox("confirmer la supression de la ligne", vbYesNo, "demande de confirmation d'ajout") = vbYes Then
            ActiveSheet.Rows(ActiveCell.Row).EntireRow.Delete
        End If
    Else
        MsgBox "Sélectionner une ligne"
    End If
End With
ActiveSheet.Protect "MDP", True, True, True
End Sub

[tico06]

Merci pour ta réponse rapide
Fonctionne nickel