Range pour supprimer

Private Sub CommandButton2_Click()
Dim service As String
Dim fceff As Worksheet
Dim fserv As Worksheet
Dim i As Integer
Dim k As Integer
Dim t As Integer

service = ActiveSheet.Name
Set fceff = Worksheets("Effectif" & service)
Set fserv = Worksheets(service)
'On Error GoTo handler
'handler:
'msgbox "ajouter un usager avant de supprimer merci."
'Exit Sub

            For k = 2 To fc.Range("B" & Rows.Count).End(xlUp).Row
            If ListBox1 <> "" Then
                If fc.Range("B" & k) = ListBox1 Then
                    fc.Range("B" & k).Delete shift:=xlUp
                     Unload Me
                 End If
                         End If
                    For i = 2 To fceff.Range("B" & Rows.Count).End(xlUp).Row
                      If fceff.Range("B" & i) = ListBox1 Then
                            fceff.Range("B" & i + 1).Delete shift:=xlUp
                            fceff.Range("B" & i).Delete shift:=xlUp
                            Unload Me
                       End If
                Next i
              For t = 6 To fserv.Range("B" & Rows.Count).End(xlUp).Row
                      If fserv.Range("B" & t) = ListBox1 Then
                      fserv.Range(Cells("B" & t), Cells("B" & t + 2)).EntireRow.Delete ' < le bug est sur cette ligne

                        End If
                Next t
        Next k

End Sub

Bonjour

j'ai un userforme pour supprimer des ligne mais j'ai une partie de ma macro qui fonctionne pas ...

Bonjour,

Quel est le message d'erreur ?

Le classeur permettrait de tester ...

Sinon, pour la suppression de lignes il faut toujours commencer par la fin ( pour éviter les lignes "oubliées" à cause du décalage).

A+

Il y a erreur car on essaie de supprimer sur une plage.

Au lieu de

fserv.Range(Cells("B" & t), Cells("B" & t + 2)).EntireRow.Delete ' < le bug est sur cette ligne

essayer

fserv.Rows(t & ":" & t + 2).Delete ' < le bug n'est plus sur cette ligne (a priori)

Merci deja , l’idée c'est de pouvoir de supprimer la ligne ou le nom est ajouter et les 2 ligne du dessous aussi

je vous joint le fichier

Ouf.... Par quel bout faut-il prendre ce classeur ?

Aucune données .... pas facile de tester des suppressions de lignes...

Sans moi.

Bon courage

desoler je sais que c'est brouillon et pas clair merci quand meme bonne journée

effectif.xlsm

Private Sub CommandButton2_Click()
Dim service As String
Dim fceff As Worksheet
Dim fserv As Worksheet
Dim i As Integer
Dim k As Integer
Dim t As Integer

service = ActiveSheet.Name
Set fceff = Worksheets("Effectif" & service)
Set fserv = Worksheets(service)

'On Error GoTo handler
'handler:
'msgbox "ajouter un usager avant de supprimer merci."
'Exit Sub
       If ListBox1 <> "" Then
            For k = 2 To fc.Range("B" & Rows.Count).End(xlUp).Row
                If fc.Range("B" & k) = ListBox1 Then
                    fc.Range("B" & k).Delete shift:=xlUp
                     Unload Me
                 End If
                 Next k
                    For i = 2 To fceff.Range("B" & Rows.Count).End(xlUp).Row
                      If fceff.Range("B" & i) = ListBox1 Then
                            fceff.Range("B" & i + 1).Delete shift:=xlUp
                            fceff.Range("B" & i).Delete shift:=xlUp
                            Unload Me
                       End If
                    Next i
                    For t = 6 To fserv.Range("B" & Rows.Count).End(xlUp).Row
                           If fserv.Range("B" & t) <> "" Then
                            If fserv.Range("B" & t) = ListBox1 Then
                              'fserv.Range("B" & t & ":" & "B" & t + 2).EntireRow.Delete
                              fserv.Rows(t & ":" & t + 1).Delete
                         End If
                        End If
                      Next t

        End If

End Sub

Bonjour , voila j'aimerais supprimer les nom ajouter avec le bouton "ajouter" sur la page "Ados" en me servant du bouton "supprimer" donc si vous ajouter vous aurez 3 ligne qui ce rajoute le probleme c'est que autant pour les autre feuille sa fonctionne mais pas celle ci je ne comprend pas pourquoi