Petite recherche pour supprimer ...

[karinette]

Bonsoir (ou plutôt bonne nuit),
Quelqu'un aurait il un code pour rechercher un mot dans la plage "D1:K500", afin de le supprimer ...
Je pourrais être en week plus tôt .... 😛
Merci

 

[JHA]

Re : Petite recherche pour supprimer ...

Bonsoir Karinette, le forum,

Cette formule ôte le caractère"/" dans A1, à adapter bien sûr.
j'ai mis des espaces dans la formule pour éviter les smileys.

=SUBSTITUE(A1;STXT(A1;TROUVE("/";A1) ;1) ; )

JHA

 

[ROGER2327]

Re : Petite recherche pour supprimer ...

Bonsoir karinette

Un code est-il vraiment nécessaire ?

1. Sélectionner la plage à traiter.
2. Ctrl + H
3. Écrire le mot à remplacer
4. Remplacer tout
5. OK
6. Fermer

Plus rapide que d'écrire un code...​

Bonne nuit.
ROGER2327

 

[Pierrot93]

Re : Petite recherche pour supprimer ...

Bonjour à tous

si il te faut vraiment un code :

Range("D1:K500").Replace "tonmot", "", xlPart, , False

bonne journée
@+

 

[karinette]

Re : Petite recherche pour supprimer ...

Merci, je vais tester ça ....

 

[Hulk]

Re : Petite recherche pour supprimer ...

Hello Forum, le fil 🙂

Une autre solution via Macro.

Places un bouton sur la feuille et colles-lui ce code...

Private Sub CommandButton1_Click()

    Dim LaPlage As Range
    Dim Mot As String
    Dim c As Range
    
    Set LaPlage = Range("D1:K500")
    
    Mot = InputBox("Quel mot recherchez-vous ?", "Recherche")

    If Mot = "" Then Exit Sub
    
    For Each c In LaPlage
        [COLOR="Green"][B]If c = Mot Then[/B][/COLOR]
            Range(c.Address).Select
            Select Case MsgBox("Êtes-vous certain de vouloir effacer ce mot ?", vbYesNo, "Confirmation")
                Case vbYes
                    Selection = ""
                Case vbNo
                    Exit Sub
            End Select
        End If
    Next c

End Sub

A tester.

Cordialement, Hulk.

EDIT : Petite modif sur le If, plus parlant peut-être.

En revanche, j'essaye, en vain, que si le mot n'est pas dans la plage -> MsgBox avec un truc du style

...
...
Else
    MsgBox "Ce mot n'est pas dans la plage !"
    Exit Sub
...
...

Mais là ou pas, il affiche ce dernier message 😡 😕

... A creuser.

Bonne journée à tous.

 

[karinette]

Re : Petite recherche pour supprimer ...

Super ton code, Hulk ....
Je pense que cela va m'être très utile 🙂