Discussion :

[randrianasolodullin]

bonjour.

je suis un débutant dans langage VB Excel et je demande s'il y a personne, peuvent m'aider dans mon petit souci.

Maintenant, j'explique les problématiques :

J'ai déjà importé un fichier txt vers une feuille excel. Or les données vient de txt possède des données comme <#Numero: 23> ; <Type ; 0,045>. ce que j'envi de faire est de parcourir tous les cellules de ma feuille excel avec un code vba et de supprimer tous les signes < # > et sortir de la boucle lorsqu'il n'y a plus des signes < # > dans toutes les cellules.

Càd, j'importe les données de fichier txt vers ma feuille Excel spécifiée, ensuite on fait directement le nettoyage des données importés.

Merci d'avance

[Menhir]

Code :

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

1
2
3
ActiveSheet.UsedRange.Replace("<", "")
ActiveSheet.UsedRange.Replace(">", "")
ActiveSheet.UsedRange.Replace("#", "")

[jawed]

Bonjour
sans VBA un CTRL+H peut faire l'affaire, tu remplace par RIEN
Cordialement

[randrianasolodullin]

Merci Menhir pour ce code. J'ai essayé mais ce code supprime tous les données dans le cellule possède de signe <, # et >. Or je ne veux pas supprimer tout le contenu
, seul le signe.

Par exemple :
Avant le traitement colonne A1 possède <#NOTEIR : 45> et après le traitement A1 possède NOTEIR : 45
Avant B1578 possède >< Type et après le traitement Type seulement

[randrianasolodullin]

Merci Menhir pour ce code. J'ai essayé mais ce code supprime tous les données dans le cellule possède de signe <, # et >. Or je ne veux pas supprimer tout le contenu
, seul le signe.

Par exemple :
Avant le traitement colonne A1 possède <#NOTEIR : 45> et après le traitement A1 possède NOTEIR : 45
Avant B1578 possède >< Type et après le traitement Type seulement

Il y a d'autre aussi dans d'autre cellule

[Menhir]

Code :

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

1
2
3
ActiveSheet.UsedRange.Replace("<", "")
ActiveSheet.UsedRange.Replace(">", "")
ActiveSheet.UsedRange.Replace("#", "")

[eriiic]

Bonjour,

Code :

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

1
2
3
    Cells.Replace What:="<", Replacement:="", LookAt:=xlPart
    Cells.Replace What:=">", Replacement:="", LookAt:=xlPart
    Cells.Replace What:="#", Replacement:="", LookAt:=xlPart

eric

[Nagel Tha]

Bonjour,

Dans la méthode .Replace, si la partie de chaîne à remplacer n'est pas la totalité du contenu de la cellule il faut utiliser la valeur xlPart de l'argument LookAt. Si au contraire, il s'agit de tout son contenu c'est xlWhole qu'il faut utiliser. On peut noter que si l'argument What est lui-même tout le contenu d'une cellule l'argument LookAt ne changera rien. Tous les arguments de la méthode .Replace autres que What et Replacement sont facultatifs mais les écrire permet d'éviter les erreurs car par défaut les paramètres utilisés sont repris du dernier appel de la fonction rechercher/remplacer (ctrl+H).

Documentation MSDN de la méthode Range.Replace

La documentation MSDN est très complète. Elle est souvent suffisante à elle seule pour trouver les réponses. Je recommande donc de la consulter.

Petite astuce : tout comme dans la fonction rechercher/remplacer, il est possible de rechercher des portions de code par l'usage de l'astérisque (*). Voici un exemple :

Code :

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

1
2
3
 
ActiveSheet.Cells(Ligne, Colonne).Replace What:="#*", Replacement:=ChaineDeRemplacement, LookAt:=xlPart
' ici tout ce qu'il y a après # sera remplacé

La méthode .Replace peut également être couplée aux méthodes .Left, .Right, .InStr... dont j'invite bien entendu à consulter la documentation MSDN.

[randrianasolodullin]

merci les amis pour votre précieuse aide. ça marche