Discussion :

[FCL31]

Dans un fichier Excel, j'ai des cellules avec un mot que je voudrais supprimer :

Dans la colonnes B, j'ai des renseignements dans les cellules mais c'est renseignements ne correspondent pas forcement à ce que je veu
dans certaines cellules, je voudrais supprimer un mot qui est recurant dans plusieurs cellules de la colonne.

Dans plusieurs cellules, j'ai le mot "Presses" que je voudrais supprimer

Par exemple, la cellule qui contien le texte "12 Presses mp" devienne "12 mp"

Merci de votre aide

[Krovax]

Bonjour,
utilise find pour trouver le mot en question (je te laisse lire l'aide excel, vu les infos je ne peux pas faire mieu que son exemple)

puis
au lieu de c.Value = 5
tu met

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

c= replace(c, "ton mot", "")

Pour la déclaration des variable c est un range

E

[FCL31]

Merci

Mais je ne comprend pas vraiment le code proposé (je suis pas trtés fort) mais on dirrai que le code proposé, cherche les cellules qui on pour valeur "2" et les remplce par "5"

Je suis pas certain que sa corresponde vraiment à se que je cherche

[Krovax]

Oui c'est ca tu remplca 2 par ton mot et tu lit la suite de mon poste pour ne pas remplacer par un 5

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
With Worksheets(1).Range("a1:a500") 'ici tu met ton oglet et la plage dans laquelle tu fait la recherche
    Set c = .Find('ton mot", lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c= replace(c, "ton mot", "")
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

[FCL31]

Je pense avoir trouvé une solution avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Test()
Dim i As Long
 Application.ScreenUpdating = False
 For i = 1 To Range("b65535").End(xlUp).Row
 Cells(i, 2) = Replace(Cells(i, 2), "PRESSE ", "")
 Cells(i, 2) = Replace(Cells(i, 2), "presse ", "")
 Next i
End Sub

Sa a l'air de marcher mais je voudrais avoir votre avis si c'est bien une solution qui ne devrai pas me poser de probléme

[Krovax]

C devrais fonctinner mais disont que ca sera bien plus lent a toi de voir. Par contre j'aimerais bien savoir ce que tu reproche au code précédent...