Supprimer un mot des cellules d'une colonne Résolu

Question

Bonjour, 

Je souhaiterais supprimer les mêmes mots d'une colonne excel.

Je m'explique, mes colonnes ont les valeurs suivantes :

TRANSPORTS XXXX
YYYY TRANSPORT
ZZZZ TRANSPORTS
TRANSPORT QQQQ


Le but serait d'arriver à avoir dans les cellules les valeurs suivantes:

XXXX
YYYY
ZZZZ
QQQQ

Ce qui implique de supprimer "TRANSPORT" et "TRANSPORTS" des cellules.

Merci de votre aide.

Cordialement.

Vaucluse · Accepted Answer

Bonjour
sélectionnez le champ
touche ctrl avec touche h
dans la fenêtre: remplacer>  inscrivez Transport
dans la fenêtre par, ne mettez rien
cliquez sur "remplacer tout"
crdlmnt 
PS
et si vous voulez supprimer des blancs liés à ce mot, ,inscrivez les avec le mot dans le cadre remplacer
 
Errare humanum est, perseverare diabolicum

Kuartz · Answer

Bonjour,

Merci pour la réponse.

Si possible, une formule m'arrangerait, dans le sens où plusieurs personnes vont probablement compléter la base de données.

Du VBA serait encore mieux je pense.

Cordialement.

Excel-worker · Answer

Bonjour,

Sélectionner les colonnes à modifier, puis faire Ctrl+F => Remplacer=> rechercher : Transport puis laisser remplacer par vide => remplacer tout

Faire de même pour Transports.

Cordialement.

Vaucluse · Answer

Bonjour

pour le VBA je ne sais pas...à part une macro avec un bouton ou une commande clavier qui va exécuter le remplacement sur le même principe que proposé
soit ça donc, qui va supprimer transport dans le champ sélectionné

Sub CHANGE  
    Selection.Replace What:="Transport", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub


pour la formule:

=SUBSTITUE(A1;"Transport;"")

crdlmnt 
 
Errare humanum est, perseverare diabolicum

Kuartz · Answer

Merci beaucoup :)

Mike-31 · Answer

Bonjour,

Avec un bouton ActiveX 
 et deux paramètres TRANSPOTS et TRANSPORT sur une plage variable colonne A

Private Sub CommandButton1_Click()
    Dim i As Integer
    For i = 2 To Range("A65536").End(xlUp).Row
    Cells(i, 1).Replace What:="TRANSPORTS", Replacement:=""
    Cells(i, 1).Replace What:="TRANSPORT", Replacement:=""
    Next
End Sub

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Supprimer un mot des cellules d'une colonne

6 réponses

Votre réponse

Discussions similaires

Newsletters