Discussion :

[jag83]

Bonjour

Pouvez vous m'aider à résoudre ce problème

Dans une colonne j'ai une série de lettres unique par cellule ou composée séparé par des virgules. Certaines lettres sont obsolètes. Pour les modifier je passe par rechercher remplacer (Ctrl H) mais la manip est longue compte tenu du nombre de ligne.

D
J, M
U
E
V
P
B
T
9
D, E, X
0, N
0, J, M
3, 9
0, 4, D, E, S, U, X
J, S
P, S
J, T
4, J, S, T
D, E, S
E, S
&
D, E, J, S
$, T
C, D, E, J, S
*
4, 9, D, E, J, K, P, S, X
D, F, J
N
0, D, E, J, M, S, X
D, E, J, P

Je voudrais remplacer les C, *,$

Auriez vous une formule à me proposer

Merci par avance

[patdan]

Bonjour

Voici le code

Code :

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

1
2
3
4
5
6
7
8
9
Sub Remplacement()
 
    Selection.Replace What:="C", Replacement:="Q", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
        ReplaceFormat:=False
    Selection.Replace What:="$", Replacement:="D", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
        ReplaceFormat:=False
End Sub

Par contre le caractère * est un caractère qui signifie tous les caractères et là , je n'ai pas l'astuce...
Bon courage

[patdan]

Je viens de trouver pur le signe *,il faut mettre tilda devant :

Code :

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

1
2
3
Selection.Replace What:="~*", Replacement:="W", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
        ReplaceFormat:=False

A +

[78chris]

Bonjour

Un cherche et remplace manuel ou VBA mettra le même temps, il me semble, si en manuel on utilise l'option remplacer tout...

[jag83]

Bonjour

Je suis novice en la matière pouvez vous m'expliquer SVP comment je fais pour intégrer cette ligne de code
Je suis un débutant alors les macros c'est un peu dur. Pouvez m'expliquer comment je fais pour l'associer à un classeur et la manière de procéder avec un bouton SVP
J'ai regardé votre macro et je vois que vous déclarer les lettres à changer. y a t il moyen de définir une matrice dans laquelle je mettrais les lettres à remplacer ou cela vous paraît inconcevable .

encore mille merci pour votre aide.

Cordialement

[Philippe Tulliez]

Bonjour,
Tu crées deux variables tableaux de même longueur que tu traites ensuite dans une boucle.
Exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub Test()
 Dim OldLetter(), NewLetter(), Elem As Byte
 OldLetter = Array("D", "G"): NewLetter = Array("FI", "H")
 For Elem = 0 To UBound(OldLetter)
  Selection.Replace What:=OldLetter(Elem), Replacement:=NewLetter(Elem), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
        ReplaceFormat:=False
 Next
End Test

Au lieu de passer par la fonction Array, tu peux bien entendu passer par une table tirée d'une plage de cellules se trouvant par exemple dans une feuille paramètre

[Menhir]

Je voudrais remplacer les C, *,$

Replacer pas quoi ?

En supposant que tu veux les remplacer par "+" et que la première cellule de tes données est en A1.
Tu places en B1 la formule suivantes :

Code :

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

=SUBSTITUE(A1;"C";"+")

Tu recopies cette cellule vers la droite et, dans la copie, tu changes "C" et "+" par la nouvelle substitution souhaitée, etc.
Tu la recopies l'ensemble des cellules contenant cette formule pour toutes tes lignes de données.
Ta dernière colonne devrai donner le résultat souhaité.

Je te conseil, à la fin de faire un gros "copier" + "coller valeur" sur la dernière colonne pour figer tout ça.

[jag83]

Bonjour,
Tu crées deux variables tableaux de même longueur que tu traites ensuite dans une boucle.
Exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub Test()
 Dim OldLetter(), NewLetter(), Elem As Byte
 OldLetter = Array("D", "G"): NewLetter = Array("FI", "H")
 For Elem = 0 To UBound(OldLetter)
  Selection.Replace What:=OldLetter(Elem), Replacement:=NewLetter(Elem), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
        ReplaceFormat:=False
 Next
End Test

Au lieu de passer par la fonction Array, tu peux bien entendu passer par une table tirée d'une plage de cellules se trouvant par exemple dans une feuille paramètre

Bonjour

Je ne suis pas un grand expert de macro mais si je te fourni une petit tableau, peux tu me le transposer dans la feuille de calcul Feuil 1 avec un petit bouton de commande :

Merci

Cdlt

[jag83]

Replacer pas quoi ?

En supposant que tu veux les remplacer par "+" et que la première cellule de tes données est en A1.
Tu places en B1 la formule suivantes :

Code :

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

=SUBSTITUE(A1;"C";"+")

Tu recopies cette cellule vers la droite et, dans la copie, tu changes "C" et "+" par la nouvelle substitution souhaitée, etc.
Tu la recopies l'ensemble des cellules contenant cette formule pour toutes tes lignes de données.
Ta dernière colonne devrai donner le résultat souhaité.

Je te conseil, à la fin de faire un gros "copier" + "coller valeur" sur la dernière colonne pour figer tout ça.

Bonjour

ta formule fonctionne mais pour des données du type "C, D, E, J, S" cela donne ", D, E, J, S" il me reste la virgule. Ta formule est pour une lettre seule mais peux tu me proposer une autre formule qui pourrait aller chercher des valeurs dans une matrice. Qu'en penses tu ?

Merci

Cdlt
"

[Menhir]

ta formule fonctionne mais pour des données du type "C, D, E, J, S" cela donne ", D, E, J, S" il me reste la virgule.

Tu as dis que tu voulais remplacer des lettres. Tu n'as pas dis que tu voulais les supprimer.

Ta formule est pour une lettre seule mais peux tu me proposer une autre formule qui pourrait aller chercher des valeurs dans une matrice.

Je t'ai indiqué dans mon précédent message qu'il suffisait de copier la formule vers la droite en mettant une nouvelle valeur dans la valeur recherchée.

Si tu veux mettre les valeurs à rechercher dans des cellules, il te suffit de changer le second paramètre.
Par exemple, si tes données vont de A2 à A100.
Tu mets "C" en B1
En B2, tu mets la formule :

Code :

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

=SUBSTITUE(A2;B$1;"+")

Tu copies la formule en C2, D2, E2 et tu mets en C1, D1 et E1 d'autres valeurs que tu veux remplacer.
Tu copies B2:E2 et tu le colles en B3:E100.

[Philippe Tulliez]

Bonjour,

Je ne suis pas un grand expert de macro mais si je te fourni une petit tableau, peux tu me le transposer dans la feuille de calcul Feuil 1 avec un petit bouton de commande :

Sauf si je me suis trompé, il me semble que Developpez.com est un club d'entraide des développeurs.
Entraide signifie que la personne qui pose des questions fera un minimum d'effort pour arriver à la solution.
Or au vu de ta réponse ainsi que celle que tu as laissé dans une autre discussion intitulée Compléter des références, qui depuis ma dernière intervention de ce matin n'a plus suscité aucune réaction de ta part, me laisse supposer que tu attends des solutions toutes faites (style Copier/Coller) sans apporter ta contribution.
Ce n'est pas comme cela que j'entrevoie d'aider quelqu'un. Il existe pour cela des consultants, programmeurs professionnels, etc. qui sont rétribués pour le faire.
J'ajouterai qu'il existe sur ce site et ailleurs des centaines de tutoriels pour apprendre et évoluer.

[jag83]

Je suis justement sur la 1ère question et pour moi cela, je dois le dire me donne du travail que je ne refuse pas car c'est en forgeant que l'on devient forgeron. En fonction de tes données je teste, mais je mets plus de temps que des personnes naviguant avec aisance dans ce dédale de formule de cet outil.

Merci

[Philippe Tulliez]

Bonjour,
Et bien une petite réponse du style, "je teste et je reviens" éventuellement précédée de "merci" aurait été sympathique et permet aux contributeurs que nous sommes de constater que nous n'écrivons pas dans le vide (je fais bien entendu allusion à l'autre discussion intitulée Compléter des références).