XL 2019 Effacer plusieurs mots dans une même colonne dans plusieurs cellules

sousou

XLDnaute Barbatruc

• 10 Décembre 2019

• #2

Bonjour
Ca doit être possible, mais encore!

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 10 Décembre 2019

• #3

Bonjour,

Une clarification de vocabulaire ...

Une formule ne pourra pas balayer une feuille pour effacer des données ... une macro elle pourra le faire

Le plus simple ... joindre un fichier test ...

Edit : Salut sousou

 

Vote positif 0 Vote négatif

riton00

XLDnaute Impliqué

• 10 Décembre 2019

• #4

Bonjour à tous

Tu peux sélectionner ta colonne...... Puis

Edition - Remplacer - Rechercher le mot - Remplacer par.... rien du tout

puis cliquer sur Remplacer tout.

Slts

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 10 Décembre 2019

• #5

Salut à tous,

riton00 a raison ... si tu veux effectuer le tout manuellement ... avec le raccourci Ctrl H

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 13 Décembre 2019

• #6

Bonjour le forum
Bonjour ThomasZander, sousou, James007 & riton

Avec demande d'UN mot à "deleter" pour une plage de cellules à définir. Il doit y avoir possibilité de faire avec plusieurs mots mais je ne sais pas faire.

VB:

Sub RechercherMot()
Dim mot As String
mot = InputBox("Mot à rechercher ?")
If mot = "" Then Exit Sub
For Each c In Range("A1:E9")   'A adapter
If c.Value Like mot Then
c.Delete
End If
Next
End Sub

Bonne nuit à toutes & à tous

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Décembre 2019

• #7

bonjour
@Eric C qui a dit que la cellule devait être vidée?
la demande c'est effacer plusieurs mots

VB:

Sub test()
mots = Array(",toto", ",cellules", "trois")
For i = LBound(mots) To UBound(mots)
Range("A:A").Cells.Replace What:=mots(i), Replacement:="", LookAt:=xlPart
Next
End Sub

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 13 Décembre 2019

• #8

Re le fil,

@patrick - Merci de ta réactivité J'en profite : ne peut on pas (si certainement....) renseigner les mots désirés à l'aide d'un InputBox ? Je vais essayer de ce côté là. Bonne journée

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 13 Décembre 2019

• #9

Re,

Pourquoi les "virgules" dans toto et cellules contenus dans l'Array ? Ces mots ne seront pas effacés ?

VB:

(",toto", ",cellules", "trois")

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Décembre 2019

• #10

re
ben si ils seront effacés
et oui tu peux faire avec un inputbox même en y mettant plusieurs mots séparés par le séparateur que tu veux
tu split le return de l'imput et tu boucle

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 13 Décembre 2019

• #11

Il ne reste plus qu'à savoir ce qu'en pense @ThomasZander ...

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 13 Décembre 2019

• #12

@patrick - Je reviens sur mon propos, la virgule faisant partie intégrante du contenu de l'Array, la valeur ne sera pas effacée sauf si dans la cellule, cette ponctuation est présente ?

Au temps pour moi, en regardant ton gif, on peut voir que tu effaces ",toto" & ",cellule" donc ponctuation ET mot.
Sinon, la mise en application de ton #10 est trop coriace pour moi. Bye

 

Dernière édition: 13 Décembre 2019

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Décembre 2019

• #13

re
coriace !!????

VB:

Sub test()
    Dim mots As Variant
    mots = InputBox("tapez les mots séparés pas un "";""")
    mots = Split(mots, ";")
    For i = LBound(mots) To UBound(mots)
        Range("A:A").Cells.Replace What:=mots(i), Replacement:="", LookAt:=xlPart
    Next
End Sub

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 13 Décembre 2019

• #14

@patrick - Tout paraît si simple en Vba après ton passage et les grands de ce forum.
Moi, qui bidouille, je peux te dire que je suis dessus depuis 13H00. J'en ai lu des articles sur le net, j'en ai tripatouillé des codes à rallonge avec des redim et des ArrayVariable()...... mais nada. Et là, il suffit de....
Petite expli sur ce code que je vois souvent :

VB:

For i = LBound(mots) To UBound(mots)

. Je crois savoir que cela crée un tableau dans un ordre croissant ? Pourrais je avoir un exemple concret (si ce n'est abusé de ton temps). Pour m'ouvrir d'autres horizons dans la recherche et les remplacements.....
Encore grand merci pour moi et pour tout ceux qui ont parcouru ce post (+ de 100)... enfin s'ils reviennent

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Décembre 2019

• #15

re

Je crois savoir que cela crée un tableau dans un ordre croissant ?

Cliquez pour agrandir...

PAS DU TOUT !!!!!!
explication en couleur
For i = LBound(mots) To UBound(mots)
traduction
for i= plutpetitindex(de l'array mots) to plus grandindex (de l'array mots)

et je le dis bien en ses termes!!!!! car beaucoup croient que ubound donne le count de l'array hors c'est faux
et la différence se vérifie avec un array en base 0 (ce que donne le split d'une chaine d'ailleurs )

 

Dernière édition: 13 Décembre 2019

Vote positif 0 Vote négatif