Discussion :

[pasterlouis]

Bonjour,
Je viens solliciter votre aide svp:
En fait j'aimerais enlever tous les espaces et tous les underscores contenus dans chacune de mes cellules. Mais cela pour seulement la macro, je ne veux aucun changement dans mes cellules; c'est pour juste faire des comparaisons sans agir sur les cellules.

Merci d'avance

[Philippe Tulliez]

Bonjour,
La fonction Replace peut t'aider.
Exemple

Code :

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

1
2
3
4
5
6
7
8
9
 Dim texte$
 texte = "Ceci est un fichier_Txt"
 Debug.Print Replace(Replace(texte, " ", ""), "_", "")
 Debug.Print "CeciestunfichierTxt" = Replace(Replace(texte, " ", ""), "_", "")
 If "CeciestunfichierTxt" = Replace(Replace(texte, " ", ""), "_", "") Then
   MsgBox "C'est la même chaîne"
  Else
   MsgBox "Chaîne différente"
 End If

[pasterlouis]

Merci beaucoup phillipe; cela correspond exactement à ce que je cherchais. c'est très gentil.
Vive ce forum!