Macro remplcement caractere par un autre sou condition

Pierrot93

XLDnaute Barbatruc

• 23 Mai 2011

• #2

Re : Macro remplcement caractere par un autre sou condition

Bonjour,

avec la méthode "replace", il me semble pas.. regarde peut être ceci si ca peut t'aider, mais li te faudra faire une boucle sur les cellules de la colonne :

Code:

If InStr(ActiveCell, "a-e") = 0 Then ActiveCell.Replace "-", "--->", LookAt:=xlPart

bon après midi
@+

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 23 Mai 2011

• #3

Re : Macro remplcement caractere par un autre sou condition

Bonjour sim, Bonjour Pierrot 🙂,
Comme j'avais fait quelque chose, je le poste:

VB:

Sub test()
Dim I As Long
With Sheets("FX")
    For I = 1 To .Cells(Rows.Count, 180).End(xlUp).Row
        If .Cells(I, 180).Value <> "rabaquera-eit" And .Cells(I, 180) <> "--->" Then _
        .Cells(I, 180).Replace "-", "--->"
    Next I
End With
End Sub

Cordialement

 

Dernière édition: 23 Mai 2011

Vote positif 0 Vote négatif

S

sim

XLDnaute Occasionnel

• 23 Mai 2011

• #4

Re : Macro remplcement caractere par un autre sou condition

Bonjour a vous deux!!

Bon j'ai teste la solution de Efge, malheureusement pas de resultat, en fait plus aucun remplacement n'est fait...

Je vais essayer de faire la boucle dont pierrot parle...je reviens quoi qu'il arrive

Merci!!!

Sim

 

Vote positif 0 Vote négatif

S

sim

XLDnaute Occasionnel

• 23 Mai 2011

• #5

Re : Macro remplcement caractere par un autre sou condition

Bon, pierrot, efge, le forum,

J'y arrive pas...arffff pour une chose aussi bete!!

Peut etre que je devrai preciser que les cellules en colonne I ne contient pas qu'un mot:

Exemple:

I2: rabaqueria-eit-blalala-blili-blobo 'on remplace tout sauf celui la rabaqueria-eit
I3: blala-gogog-ririri-lalala ' on remplace tout
I4: etc

Je crois bien que le code d'efge ne prend pas cette notion en compte, c'est ma fautre je sais je l'avais pas dit

Voila, toute idee est la bienvenue!! 🙂

Sim

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Mai 2011

• #6

Re : Macro remplcement caractere par un autre sou condition

Re, bonjour fg🙂

I2: rabaqueria-eit-blalala-blili-blobo 'on remplace tout sauf celui la rabaqueria-eit

Cliquez pour agrandir...

alors ma proposition n'est pas ce qu'il te faut...

 

Vote positif 0 Vote négatif

S

sim

XLDnaute Occasionnel

• 23 Mai 2011

• #7

Re : Macro remplcement caractere par un autre sou condition

Bah si pierrot mais j'arrive pas a faire la boucle....😱😕

Je pensais commencet comme ca

With Sheets("FX")..Columns("I")
If....ton code...

Mais je crois pas que ca va marcher...

 

Dernière édition: 23 Mai 2011

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 23 Mai 2011

• #8

Re : Macro remplcement caractere par un autre sou condition

Re
Je pense qu'une boucle commence par

VB:

For I = X To

et se termine par

VB:

Next I

. Enfin je peux me tromper...🙄.
D'autre part, ce n'est pas la prmière foi que tu post sur le forum, tu devrais donc savoir qu'un bon fichier exemple vaut mieux qu'un long discour imprécis.
Edit;
Je ferais une proposition quand la demande sera finalisée....🙄

 

Dernière édition: 23 Mai 2011

Vote positif 0 Vote négatif

S

sim

XLDnaute Occasionnel

• 23 Mai 2011

• #9

Re : Macro remplcement caractere par un autre sou condition

Re

Pardon, c'est vrai que meme aussi simple la question soit elle, un petit exemple est toujours bcp plus parlant le voila
donc....🙂

Avec donnees brutes et reultat espere

Merci beaucoup 🙂

Sim

 

Pièces jointes

• exemple_remplacement_forum.xls

  19.5 KB · Affichages: 47

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 23 Mai 2011

• #10

Re : Macro remplcement caractere par un autre sou condition

Bonjour le fil 🙂,
Le plus simple (pour moi) :

Code:

With Sheets("FX").Columns("I")
.Replace "rabaquera-eit", "rabaquera#eit", LookAt:=xlPart
.Replace "-", "--->", LookAt:=xlPart
.Replace "rabaquera#eit", "rabaquera-eit", LookAt:=xlPart
End With

Bonne soirée 😎

 

Vote positif 0 Vote négatif

S

sim

XLDnaute Occasionnel

• 23 Mai 2011

• #11

Re : Macro remplcement caractere par un autre sou condition

Bonjour JNP!!

J'adore!! Ca, ca s'appel rouler excel!!

Je la garde dans un petit coin si jamais on n'y arrive pas avec les proposition precedente!!

En fait ce qui m'embete un peu c'est que ca oblige excel a travailler deux fois la cellule, sachant qu'il y a environ 2000 lignes je voudrait pas que ca alourdisse une procedure deja asses lourde!!

Mais je trouve ca tres malin! hahahah

Sim 😀!

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 23 Mai 2011

• #12

Re : Macro remplcement caractere par un autre sou condition

Re 🙂,
Plus exactement avec l'exemple 🙄...

Code:

With Sheets("Sheet1").Columns("I")
.Replace "RABAQUEIRA-EIT", "RABAQUEIRA#EIT", LookAt:=xlPart
.Replace "-", "--->", LookAt:=xlPart
.Replace "RABAQUEIRA#EIT", "RABAQUEIRA-EIT", LookAt:=xlPart
End With

Bonne suite 😎

 

Vote positif 0 Vote négatif

S

sim

XLDnaute Occasionnel

• 23 Mai 2011

• #13

Re : Macro remplcement caractere par un autre sou condition

Messieux!!

J'ai teste la solution de JNP, qui fonctionne tres bien, n'alourdie pas ma procedure (ou en tout cas c'est imperceptible) et en plus me fait rire!!!

Donc solution adoptee!!

Merci beaucoup encore pour votre aide a tout les trois!!

Bon aprem a tous

Sim

PS: bon par curiosite, je serai ravi de voir vos solutions respective! Merki!

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 23 Mai 2011

• #14

Re : Macro remplcement caractere par un autre sou condition

Re 🙂,

sim à dit:

En fait ce qui m'embete un peu c'est que ca oblige excel a travailler deux fois la cellule, sachant qu'il y a environ 2000 lignes je voudrait pas que ca alourdisse une procedure deja asses lourde!!

Cliquez pour agrandir...

Testé sur 5000 lignes : même pas le temps de compter jusqu'à 3 😛...
Alors qu'avec une boucle sur 5000 cellules avec un test, je pense que ça va être plus long 🙄...
Bonne suite 😎

 

Vote positif 0 Vote négatif