Effacer sur 2 Feuilles

[Tonio 74]

Bonjour à toutes et tous, le Forum,
Aprés quelques prises de tête concernant mon fichier, je viens solliciter votre aide pour une procédure, concernant la suppression de ligne(ayant le même nom) sur les 2 feuilles du classeur.
En pièce jointe le fichier avec explications.
Merci et bonne journée.
:angry: [file name=TEST_Effacement.zip size=25928]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TEST_Effacement.zip[/file]

 

[Bebere]

bonjour Tonio,le Forum
solution en pièce jointe
à bientôt [file name=TEST_Effacement_20051206104517.zip size=24306]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TEST_Effacement_20051206104517.zip[/file]

 

[Tonio 74]

Bonjour Bebere, le Forum,
Merci de t'être penché sur ma question.
Sur le fichier que tu as joins, en cliquant sur le bouton, l'effacement de la ligne, par ex. celle au nom de Dupond n'est effacée que sur Récap_Annuel et pas sur l'autre comme je voudrais que ce soit.
Si tu as la solution, je te remercie beaucoup et sinon tant pis.
Cordialement.

 

[Bebere]

bonjour Tony
2 erreurs de ma part

le code corrigé

Public Sub vart()
Dim Cel As Range, DerL As Integer
Application.ScreenUpdating = False
Dim Nom As String
'plus de données
If ActiveCell.Row = 3 Then Exit Sub
On Error Resume Next
Nom = ActiveCell.Value 'EntireRow.Select
'si pas de nom on sort
If Nom = '' Then Exit Sub
Rows(ActiveCell.Row).EntireRow.Delete Shift:=xlUp
With Sheets('Details_Annuel')
DerL = .Range('B5').End(xlDown).Row
For Each Cel In .Range('B5:B' & DerL)
If Cel = Nom Then
'corrigé içi . devant rows,Cel à la place deActiveCell
.Rows(Cel.Row).EntireRow.Delete Shift:=xlUp
Exit For 'si égalité obtenue sort de la boucle
End If
Next Cel
End With
End Sub

 

[Tonio 74]

Re Bebere,

Je te remercie, c'est ce que je souhaitais.
C'est parfait !!!
Au plaisir de te lire.
Amitiés.