Replace deux conditions ?

J

JHA

XLDnaute Barbatruc

• 5 Mars 2010

• #2

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

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 5 Mars 2010

• #3

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+

 

Vote positif 0 Vote négatif

Odesta

XLDnaute Impliqué

• 5 Mars 2010

• #4

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

 

Vote positif 0 Vote négatif

D

DJ FA

XLDnaute Occasionnel

• 5 Mars 2010

• #5

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 ?😕

 

Vote positif 0 Vote négatif

Odesta

XLDnaute Impliqué

• 5 Mars 2010

• #6

Re : Replace deux conditions ?

Tout est possible...

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

 

Vote positif 0 Vote négatif

D

DJ FA

XLDnaute Occasionnel

• 5 Mars 2010

• #7

Re : Replace deux conditions ?

Oui je fais ça de suite.

 

Vote positif 0 Vote négatif

D

DJ FA

XLDnaute Occasionnel

• 5 Mars 2010

• #8

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Odesta

XLDnaute Impliqué

• 5 Mars 2010

• #9

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

 

Vote positif 0 Vote négatif

D

DJ FA

XLDnaute Occasionnel

• 5 Mars 2010

• #10

Re : Replace deux conditions ?

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

 

Vote positif 0 Vote négatif