Substituer

[azaro]

Bonjour,

svp je suis nouveau j aimerais bien que vous m aider ;

voila

je veux changer les chifre par d autre exemple ; le 1 PAR 20 LE 2 PAR 18

les chiffres de 1 A 20

1,2,3,4,15
1,2,3,5,10
1,2,3,6,8
1,2,3,7,12
1,2,3,9,14
1,2,3,11,13
1,2,4,5,11
1,2,4,6,13
1,2,4,7,14
1,2,4,8,9
1,2,4,10,12

 

[job75]

Bonjour azaro, bienvenue sur XLD,

Voyez le fichier joint et cette formule en B2 :

=STXT(SUBSTITUE(SUBSTITUE(","&A2&",";",1,";",20,");",2,";",18,");2;NBCAR(SUBSTITUE(SUBSTITUE(","&A2&",";",1,";",20,");",2,";",18,"))-2)

Par ailleurs le titre de votre discussion ne permettra pas de la retrouver via le moteur de recherche.

Remplacez ce titre par Substituer en éditant votre post #1.

A+

 

[azaro]

REBONJOUR MERCI POUR VOTRE RÉPONSE

VOILA

Original	1​	2​	3​	4​	5​	6​	7​	8​
Modifié	4​	6​	7​	20​	19​	18​	16​	2​
Original	Modifié
1,2,3,4,15	?
1,2,3,5,10	?
1,2,3,6,8	?
1,2,3,7,12	?
1,2,3,9,14	?
1,2,3,11,13	?
1,2,4,5,11	?
1,2,4,6,13	?
1,2,4,7,14	??
1,2,4,8,9	?
1,2,4,10,12	?

 

[job75]

Avec beaucoup de substitutions différentes le plus simple est d'utiliser cette macro (fichier joint) :

Sub Modifier()
Dim sep$, RemplacerPar, ncol%, tablo, i&, s, j%, k%
sep = "," 'séparateur modifiable
RemplacerPar = [A1].CurrentRegion.Resize(2) 'matrice, plus rapide
ncol = UBound(RemplacerPar, 2)
tablo = [A4].CurrentRegion.Resize(, 2) 'matrice, plus rapide
For i = 2 To UBound(tablo)
    s = Split(tablo(i, 1), sep)
    For j = 0 To UBound(s)
        For k = 2 To ncol
            If s(j) = CStr(RemplacerPar(1, k)) Then s(j) = RemplacerPar(2, k): Exit For
    Next k, j
    tablo(i, 2) = Join(s, sep)
Next
[A4].Resize(UBound(tablo), 2) = tablo 'restitution
End Sub

PS : sur un forum écrire en majuscules équivaut à HURLER !!!

 

[azaro]

merci

job75

exactement ce que je cherchais

merci

 

[job75]

Pour tester j'ai recopié la plage A5:A15 sur 55 000 lignes => chez moi la macro s'exécute en 2,1 secondes.

 

[azaro]

j ai testée ça marche très bien ; juste une petite chose svp pour trier ou chercher dans les résultats un numéro ou deux exemple je cherche juste les ligne avec le 18 20

 

[job75]

pour trier ou chercher dans les résultats un numéro ou deux exemple je cherche juste les ligne avec le 18 20

Voyez ce fichier (2) où j'ai ajouté ces 2 macros :

Sub Chercher()
Application.ScreenUpdating = False
RAZ
Modifier
ThisWorkbook.Names.Add "Sep", "," 'séparateur modifiable
With [A4].CurrentRegion
    .Columns(3) = ""
    .Columns(4).CurrentRegion.Name = "Cherche" 'plage nommée
    .Cells(2, 3) = "=SUMPRODUCT(N(ISNUMBER(FIND(Sep&Cherche&Sep,Sep&B5&Sep))))" 'critère
    .Resize(, 2).AdvancedFilter xlFilterInPlace, .Cells(1, 3).Resize(2) 'filtre avancé
    .Cells(2, 3) = ""
End With
End Sub

Sub RAZ()
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End Sub

 

[job75]

Fichier de 55000 lignes joint, la macro "Chercher" s'exécute en 2,9 secondes chez moi.

 

[azaro]

merci job 75