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

Taylante

XLDnaute Nouveau
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
 

Dranreb

XLDnaute Barbatruc
Bonjour.
Peut être :
VB:
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…
 
Dernière édition:

Taylante

XLDnaute Nouveau
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...
 

Pièces jointes

  • Gestionnaire 3CSC - Copie.xlsm
    4.1 MB · Affichages: 20

Dranreb

XLDnaute Barbatruc
Essayez cette procédure :
VB:
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
 

Discussions similaires

Réponses
2
Affichages
668

Statistiques des forums

Discussions
312 927
Messages
2 093 687
Membres
105 782
dernier inscrit
obelix76