Replace deux conditions ?

[DJ FA]

Bonjour voilà j'ai deux formules ou j'aimerais qu'elles se fusionnent en une pour un même résultat soit avoir "JEAN" quelque soit la valeur d'origine. Pouvez-vous m'aider? merci à vous.

Cells.Replace What:="AVEC JEA", Replacement:="JEAN", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:="JEAN ", Replacement:="JEAN", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

 

[JHA]

Re : Replace deux conditions ?

Bonjour DJ FA, le forum,

Pas sur de tout comprendre mais pour trouver "JEA" ou JEAN, tu peux utiliser la fonction cherche().
Exemple:
=SI(NON(ESTERREUR(CHERCHE("jea";A1;1)));"OK";"Not OK")

Si on trouve "JEA" en A1, on met "OK" sinon "Not OK"

JHA

 

[Gorfael]

Re : Replace deux conditions ?

Salut DJ FA et le forum
Tu as 2 valeurs à remplacer par JEAN. Ça demandera deux formules. Comme ce n'est qu'un extrait de code, difficile de proposer quelque chose.
A+

 

[Odesta]

Re : Replace deux conditions ?

Bonjour,
Pourquoi souhaitez-vous une seule commande, alors que vous avez deux tâches à accomplir ?
Quel est le but excatement ?
Votre "avec jea" serait-il un JEA* (jae-étoile) ? ou c'est réellement le mots AVEC que vous chercher ?

Olivier

 

[DJ FA]

Re : Replace deux conditions ?

En fait j'ai deux requêtes différentes le même jour (sur le même fichier) et donc le même nom écris différemment, et moi donc je veux que la macro corrige afin d'avoir un nom équivalent. Possible ?😕

 

[Odesta]

Re : Replace deux conditions ?

Tout est possible...

Pourrait-on avoir un extrait de fichier à traiter svp ? (le plus annonyme possible)

 

[DJ FA]

Re : Replace deux conditions ?

Oui je fais ça de suite.

 

[DJ FA]

Re : Replace deux conditions ?

Voici la macro, à laquelle en fin je rajoute les codes de replace.

Sub X()
Dim i%, j!, n!, nn!, oList, TaListedExclusion, Y As Boolean
oList = Array("BB")
TaListedExclusion = Array("BB")
j = 2
For n = 0 To UBound(oList)
For i = 1 To 500
If Sheets("X").Cells(i, 3).Value = oList(n) Then
Y = True
For nn = 0 To UBound(TaListedExclusion)
If Sheets("X").Cells(i, 4).Value = TaListedExclusion(nn) Then Y = False
Next
If Y Then
j = j + 1

With Sheets("A")
.Range("A" & j & ":F" & j).Value = Sheets("X").Range("A" & i & ":F" & i).Value
.Range("G" & j).Value = Sheets("X").Range("J" & i).Value

End With

End If
End If
Next i
Next n
For Each a In Range("D3 : D60"): a.Value = Trim(a.Value): Next




End Sub

 

[Odesta]

Re : Replace deux conditions ?

Merci, mais c'est aussi le fichier sur lequel travail cette macro qu'il nous faut.

Car perosnnellement, je ne comprends pas bien ce qui ne va pas, et quelle est l'aide que vous attendez

 

[DJ FA]

Re : Replace deux conditions ?

Je vais faire un fichier dès que possible, merci.😉