[Macro] Supprimer des mots dans une sélection Résolu/Fermé

Question

Bonjour, 

Je suis en train de m'arracher les cheveux sur une macro Excel, et j'en viens à demander votre aide.

J'ai une énorme liste de produits et je souhaite supprimer dans les cellules sélectionnées le texte figurant dans une cellule précise.
Par exemple :


J'aimerais sélectionner manuellement la plage A5 : A8 et ensuite utiliser une macro qui supprime dans la sélection les valeurs présente dans A4 et de rajouter dans la collonne B une commentaire, afin d'obtenir quelque chose comme ça :


Et ainsi de suite, sachant que la cellule de référence sera toujours celle juste en-dessus de la plage sélectionnée.

Merci d'avance,

Altays

Edit : Voici le lien vers l'exemple :
https://www.cjoint.com/c/FHEiUc4nrZU

Configuration: Windows 7 / Firefox 48.0

michel_m · Answer

bonjour,

Pour faciliter notre travail merci de mettre un extrait de ton classeur
pour cela
Mettre le classeur sans données confidentielles en pièce jointe sur https://www.cjoint.com/et coller le raccourci  par un clic droit sur le lien proposé dans le message de réponse 
Dans l’attente

michel_m · Answer

Bonjour,

merci pour ton classeur qui m'a aidé les "subtilités" sans précisions m'inquiètent :-)
si tu le désires on pourrait vérifier une sélection valable de cellules 

ci dessous code écrit rapidement valable jusqu'à 255 lignes à modifier
Option Explicit'---------------------------------------------Sub supprimer_mots()Dim plage As Range, cptr As Byte, T_in, T_out    'choix de la plage à modifier    Set plage = Application.InputBox(prompt:="sélectionnez la plage à modifier", Type:=8)    'mémorisation des données dans la plage sélectionnée    T_in = plage    ReDim T_out(1 To UBound(T_in), 1 To 2)    'modification de la plage mémorisée    For cptr = 1 To UBound(T_in)        T_out(cptr, 1) = Split(T_in(cptr, 1))(2) & " " & Split(plage(cptr, 1))(3)        T_out(cptr, 2) = "sous-catégorie"    Next    'restitution    plage.Resize(UBound(T_in), 2) = T_out    Set plage = NothingEnd Sub

michel_m · Answer

Bonjour,

OK, comme c'est nouveau pour toi...

lorsque tu réalises  ce genre de tableau, il est indispensable de garder la structure de tes désignations
dans "Chewing-gum sans sucre" la séparation se fait par virgule
dans "Fruchtpastillen" , les lignes 13 et 14 n'ont pas de virgule... 

 Dans mon code ci dessous , Vba séparant les différents mots suivant les virgules, il note aucune séparation dans ces 2 lignes et ne fait rien (ou plante)

je sais, c'est pointilleux et casse-pied!

Option Explicit'---------------------------------------------Sub selectionner_mots()Dim plage As Range, cptr As Byte, T_in, T_out    'choix de la plage à modifier    Set plage = Application.InputBox(prompt:="Avec la souris, sélectionnez la plage à modifier", Type:=8)    'mémorisation des données dans la plage sélectionnée    T_in = plage    ReDim T_out(1 To UBound(T_in), 1 To 2)    'modification de la plage mémorisée    For cptr = 1 To UBound(T_in)        T_out(cptr, 1) = Split(T_in(cptr, 1), ",")(1)        T_out(cptr, 2) = "sous-catégorie"    Next    'restitution    plage.Resize(UBound(T_in), 2) = T_out    Set plage = NothingEnd Sub

En espèrant que... ;-)

[Macro] Supprimer des mots dans une sélection

3 réponses

Discussions similaires