Macro pour deux feuilles

Bonjour à tous,

Je n'arrive pas à supprimer le nom et prénom et la ligne de donnée correspondante sur une feuille nommée "Traces" et en même temps que sur la feuille nommée "Feuil1" avec ce même code?

Merci à vous

Cordialement

Sub Suppression()
Dim i As Integer
Dim Editeur As String
Editeur = InputBox("Veuillez entrer le Nom et Prénom à supprimer ?", "Suppression d'enregistrement", "Attention Mode suppression")
With ThisWorkbook.Sheets("Traces")
            For i = .Range("B" & .Rows.Count).End(xlUp).Row To 2 Step -1
                        If .Range("B" & i).Value = Editeur Then
    Rows(i).Delete

With workSheets("Feuil1")
            For i = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
                        If .Range("A" & i).Value = Editeur Then
    Rows(i).Delete
    End If
   Next i

End With
End Sub

Bonjour

Teste comme ceci (Il ne faut pas oublier d refermer les With, If, et faire la boucle avec le Next)

Sub Suppression()
Dim i As Integer
Dim Editeur As String
Editeur = InputBox("Veuillez entrer le Nom et Prénom à supprimer ?", "Suppression d'enregistrement", "Attention Mode suppression")
  With ThisWorkbook.Sheets("Traces")
    For i = .Range("B" & .Rows.Count).End(xlUp).Row To 2 Step -1
      If .Range("B" & i).Value = Editeur Then
        .Rows(i).Delete
      End If
    Next i
  End With

  With Worksheets("Feuil1")
    For i = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
    If .Range("A" & i).Value = Editeur Then
      .Rows(i).Delete
    End If
    Next i
  End With
End Sub

Bonjour à tous,

Merci bcp M12, j'ai fait le necessaire, malheureusement pour moi, la macro fonctionne et supprime les données sur la feuille Traces et non sur Feuil1

Cordialement

Re,

Place un classeur exemple pour Test

Bonjour , merci M12 pour l'intention, ci-joint le fichier.

Cordialement

Re,

Sans réflechir, tu demandes de supprimer des lignes par rapport à un Nom et un Prénom

Alors sur une feuille tu as les deux (Nom et prénom dans une cellule)

et sur l'autre tu les as sur deux cellules

Si tu as lu la chartre, il est bien stipulé que les questions doivent être bien expliquées

Je n'arrive pas à supprimer le nom et prénom et la ligne de donnée correspondante sur une feuille nommée "Traces" et en même temps que sur la feuille nommée "Feuil1" avec ce même code?

Et tu te poses la question ?

Comme en Feuil1 en colonne E tu as regroupé le nom et le prénom, remplace par ce code

Sub Suppression()
Dim i As Integer
Dim Editeur As String
Editeur = InputBox("Veuillez entrer le Nom et Prénom à supprimer ?", "Suppression d'enregistrement", "Attention Mode suppression")
  With ThisWorkbook.Sheets("Traces")
    For i = .Range("B" & .Rows.Count).End(xlUp).Row To 2 Step -1
      If .Range("B" & i).Value = Editeur Then
        .Rows(i).Delete
      End If
    Next i
  End With

  With Worksheets("Feuil1")
    For i = .Range("E" & .Rows.Count).End(xlUp).Row To 2 Step -1
    If .Range("E" & i).Value = Editeur Then
      .Rows(i).Delete
    End If
    Next i
  End With
End Sub

Bonsoir, j'avoue avoir fauté mais quand on apprend l'erreur fait partie des connaissances.

Merci beaucoup d'avoir solutionné cette macro. Je n'ai pas fini de mon côté d'améliorer le formulaire.

A bientôt

Cordialement