Discussion :

[Invité]

Bonjour à tous,

Je souhaite créer un programme qui supprime une ligne selectionné lorsque l'on clique sur le bouton.
Toutefois, la fonction supprimée ne doit pas marcher pour les lignes 1 à 4. Cependant je n'arrive pas à transcrire cela en code :s

Voilà ce que j'ai pour le moment mais la partie (Rows(ActiveCell.row) = 1 ne marche pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub SupprimerLigne_Click()
ActiveSheet.Unprotect
Rows(ActiveCell.Row).Select
    If IsEmpty(Selection) Then
        reponse = MsgBox("Merci de selectionner une ligne puis de cliquer sur ce bouton")
        Sheets("Base").Select
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Else
        If Rows(ActiveCell.Row) = 1 Or Rows(ActiveCell.Row) = 2 Or Rows(ActiveCell.Row) = 3 Or Rows(ActiveCell.Row) = 4 Then
            reponse = MsgBox("Merci de ne pas supprimer la mise en page ...")
            Sheets("Base").Select
            ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
            Exit Sub
        Else
            Sheets("Base").Select
            ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
            Selection.EntireRow.Delete
            reponse = MsgBox("La selection a bien été supprimé.", , "Information")
 
        End If
    End If
End Sub

* Merci *

[QuestVba]

Bonjour,

J'ai mis en rouge la modif :

Code :

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

ActiveCell.Row = 1

à la place de

Code :

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

Rows(ActiveCell.row) = 1

Code complet (fonctionne chez moi)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub SupprimerLigne_Click()
ActiveSheet.Unprotect
Rows(ActiveCell.Row).Select
    If IsEmpty(Selection) Then
        reponse = MsgBox("Merci de selectionner une ligne puis de cliquer sur ce bouton")
        Sheets("Base").Select
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Else
        If ActiveCell.Row = 1 Or ActiveCell.Row = 2 Or ActiveCell.Row = 3 Or ActiveCell.Row = 4 Then
            reponse = MsgBox("Merci de ne pas supprimer la mise en page ...")
            Sheets("Base").Select
            ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
            Exit Sub
        Else
            Sheets("Base").Select
            ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
            Selection.EntireRow.Delete
            reponse = MsgBox("La selection a bien été supprimé.", , "Information")
 
        End If
    End If
End Sub

[Invité]

Cela fonctionne merci beaucoup !!!!!!!