Suppression dans cellule

[claude09]

Bonjour le forum et bon week end .Je voudrais supprimer tous les termes qui ne contienent pas le terme en e3 (càd a) de façon a obtenir les résultats en colonne F.(en jaune ,les modifications) Merci;

 

[Guest]

Re : Suppression dans cellule

Bonjour,

Avec une petite fonction perso.

A+

 

[pierrejean]

Re : Suppression dans cellule

Bonjour claude09

Vois si cela te convient

Edit Salut hasco

 

[claude09]

Re : Suppression dans cellule

Merci bien de vos réponses qui fonctionnent ,bonne journée .

 

[job75]

Re : Suppression dans cellule

Bonjour claude09, salut Hasco, pierrejean,

En effet s'il n'y a que les groupes avec "m" à supprimer :

Sub suppr()
Dim plage As Range
Set plage = Range("C5", Range("C65536").End(xlUp))
plage.Replace "?m ", "", LookAt:=xlPart
plage.Replace " ?m", ""
End Sub

A+

 

[job75]

Re : Suppression dans cellule

Re,

S'il y a plusieurs groupes (lettres) à supprimer, on peut les lister dans un tableau :

Sub suppr()
Dim tablo, plage As Range, t
Application.ScreenUpdating = False
tablo = Array("m", "x", "y", "z") 'groupes à supprimer
Set plage = Range("C5", Range("C65536").End(xlUp))
For Each t In tablo
  plage.Replace "?" & t & " ", "", LookAt:=xlPart
  plage.Replace " ?" & t, ""
Next
End Sub

A+

 

[claude09]

Re : Suppression dans cellule

merci à tous ceux qui m'ont répondu,dans la précipitation,j'ai oublié une chose importante:dans E4 il peut y avoir a;ou m;ou p;ou s;ou h.Il faut donc éliminer les lettres qui ne sont pas dans E4.Ensuite mettre les résultats dans la colonne adjacente.Ci joint un nouveau fichier.Merci.

 

[pierrejean]

Re : Suppression dans cellule

Re

Voila

NB : le nombre d'espace n'est pas exactement reproduit
S'il devait l'etre reviens et dis-nous

 

[job75]

Re : Suppression dans cellule

Re,

En effet c'était important.

La lettre à garder est donc en E3.

La nouvelle macro :

Sub suppr()
Dim tablo, plage As Range, t
Application.ScreenUpdating = False
tablo = Array("a", "m", "p", "s", "h") 'groupes à supprimer
[D:D].Clear
Set plage = Range("C5", [C65536].End(xlUp))
plage.Copy plage.Offset(, 1)
With plage.Offset(, 1)
  For Each t In tablo
    If t <> [E3] Then
      .Replace "?" & t & " ", "", LookAt:=xlPart
      .Replace " ?" & t, ""
    End If
  Next
End With
End Sub

Fichier (3).

A+

 

[claude09]

Re : Suppression dans cellule

Merci Pierrejean et job75 (et les autres aussi),petit souci:lorsque je remplace dans E3 a par h ,la macro ne me garde que les termes en h et supprime les autres ???Elle fait le contraire.....

 

[pierrejean]

Re : Suppression dans cellule

Re

Et dans l'exemple fourni elle fait quoi la macro ???
Et ceci ,ça signifie quoi ??
Il faut donc éliminer les lettres qui ne sont pas dans E4

 

[job75]

Re : Suppression dans cellule

Re pierrejean,

Faut pas faire attention, la fatigue du soir 🙄

Mais moi j'ai un sérieux souci avec ma macro, je m'explique.

Dans le tableau du dernier fichier, il y a 15 espaces doubles " ".

Avec la commande Remplacer, ou avec la macro, je remplace donc <2 espaces> par " ".

Et bien ensuite ma macro donne des résultats aberrants.

Je n'arrive vraiment pas à comprendre pourquoi 😕

A+

 

[claude09]

Re : Suppression dans cellule

je pensais que aviez compris et je m'excuse si ma question n'était pas claire.En effet il faut supprimer les termes qui ne sont pas dans E4.Ex : E4 = m;eliminer les termes genre 3a; 8h; 0s ....En ce qui concerne la macro,elle marche avec a ,mais quand je remplace dans e4 a par h ,elle garde les termes en h au lieu de les supprimer.

 

[claude09]

Re : Suppression dans cellule

Je m'excuse,comme dit job75,çà doit etre la fatigue du soir...la macro fonctionne,comme quoi quand on fait plusieurs choses à la fois...sur ce je vous remercie et bonne soirée à vous tous.

 

[job75]

Re : Suppression dans cellule

Rebonsoir,

Mais moi j'ai un sérieux souci avec ma macro, je m'explique.

J'ai finalement résolu le problème soulevé au post #12.

Il faut dans la boucle une 3ème ligne de suppression sur les groupes de 2 lettres :

Sub suppr()
Dim tablo, plage As Range, t
Application.ScreenUpdating = False
tablo = Array("a", "m", "p", "s", "h") 'groupes à supprimer
[D:D].Clear
Set plage = Range("C5", [C65536].End(xlUp))
plage.Copy plage.Offset(, 1)
With plage.Offset(, 1)
  .Replace "  ", " ", LookAt:=xlPart 'espaces doubles
  For Each t In tablo
    If t <> [E3] Then
      .Replace "?" & t & " ", ""
      .Replace " ?" & t, ""
      .Replace "?" & t, ""
    End If
  Next
End With
End Sub

Fichier (4).

A+