Macro pour supprimer une ligne per rapport à une liste de nom ?

[Taylante]

Bonjour,

J'ai recherché sur internet une macro qui puisse supprimer une ligne selon une liste de personnels insérer dans une cellule. Je n'ai rien trouvé a part une suppression de ligne par rapport à un texte.

Pour compliquer la tache, la suppression de ligne doit se faire dans plusieurs onglets.

Pouvez vous m'aider ?

Merci

Taylante

 

[mutzik]

Bonjour,

Oui on peux, dès qu'on aura un extrait anonymisé de ton fichier ...

 

[Dranreb]

Bonjour.
Peut être :

Cel.Value = mid$(Replace$(vbLf & Cel.Value, vbLf & "Untel", ""), 2)

Edit: Mais je crois que j'ai mal compris la question. On n'y comprend jamais rien, de toute façon sans voir le classeur…

 

[Taylante]

Bonjour,
Ci joint le dossier demandé. J'espère que vous aller comprendre mon fichier car je l'ai monté de toute pièce. Je pense que certaines macros ne vont pas dans la simplicité mais elles fonctionnent . Si certaines macros ne fonctionnent pas c'est que je n'ai pas mis les fichiers correspondantes.

Mon problème, c'est d'effacer un nom identique qui se trouve dans les onglets rouge afin qu'il disparaisse des listes..
Si je peux abuser avez vous une macro qui puisse changer le grade du personnel qui se trouve aussi dans ses onglets.
Merci pour tout...

 

[Dranreb]

Essayez cette procédure :

Sub test()
Dim Nom As String, Wsh As Worksheet, CelNom As Range
Nom = "NUNUCHE"
For Each Wsh In ThisWorkbook.Worksheets
   Set CelNom = Wsh.Columns("A").Find(What:=Nom, LookIn:=xlValues, _
      LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
      MatchCase:=False, SearchFormat:=False)
   If Not CelNom Is Nothing Then CelNom.EntireRow.Delete
   Next Wsh
End Sub

 

[Taylante]

re-bonjour

Effectivement ta macro fonctionne, mais je suis obligé d'aller remplacer directement dans la macro.
Est il possible d'ouvrir une boite de dialogue afin d'inscrire le nom a retirer.

Cordialement

 

[Dranreb]

Oui bien sûr, ce n'était qu'un exemple, vous pouvez affecter ce que vous voulez à cette variable Nom. Par exemple Nom = InputBox(etc.

 

[Taylante]

Un grand merci à excel downloads et à Dranreb pour m'avoir aider dans mon projet. Tout marche impeccablement

A bientôt