Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Plusieurs remplacements

Plusieurs remplacements

8 réponses
Avatar
Lionel B
Bonsoir à toutes et à tous
Plusieurs remplacements
J' ai un tableau de plusieurs milliers de lignes
Dans la colonne A j'ai des chiffres que je souhaite remplacer
Bon... Vous allez me dire q'avec la commande Rechercher / remplacer c'est
bon.
Mais, j'ai par exemple 6116 à transformer en 61, puis 6213 en 62 puis 6423
en 642 etc.
Je souhaite créer avec un userform un tableau de correspondance puis lorsque
je clique sur un commandbutton, cela me remplace tous les éléments
Je vous remercie de votre aide
Merci
LB
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacquouille
Bonsoir
Et si tu divisais tout ton tableau par 100 et formater tes cellules en
nombre entier,càd avec 0 décimale ?
Bonne chance.

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"Lionel B" a écrit dans le message de news:
%
Bonsoir à toutes et à tous
Plusieurs remplacements
J' ai un tableau de plusieurs milliers de lignes
Dans la colonne A j'ai des chiffres que je souhaite remplacer
Bon... Vous allez me dire q'avec la commande Rechercher / remplacer c'est
bon.
Mais, j'ai par exemple 6116 à transformer en 61, puis 6213 en 62 puis 6423
en 642 etc.
Je souhaite créer avec un userform un tableau de correspondance puis
lorsque je clique sur un commandbutton, cela me remplace tous les éléments
Je vous remercie de votre aide
Merci
LB



Avatar
Lionel B
Bonjour Jacquouille
le pb est qu'il faut que j'utilise un vrai tableau de remplacement car il
n'y a pas de logique entre les changements
Merci
LB

"Jacquouille" a écrit dans le message de
news:
Bonsoir
Et si tu divisais tout ton tableau par 100 et formater tes cellules en
nombre entier,càd avec 0 décimale ?
Bonne chance.

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"Lionel B" a écrit dans le message de news:
%
Bonsoir à toutes et à tous
Plusieurs remplacements
J' ai un tableau de plusieurs milliers de lignes
Dans la colonne A j'ai des chiffres que je souhaite remplacer
Bon... Vous allez me dire q'avec la commande Rechercher / remplacer c'est
bon.
Mais, j'ai par exemple 6116 à transformer en 61, puis 6213 en 62 puis
6423 en 642 etc.
Je souhaite créer avec un userform un tableau de correspondance puis
lorsque je clique sur un commandbutton, cela me remplace tous les
éléments
Je vous remercie de votre aide
Merci
LB







Avatar
Patrick BASTARD
Bonjour, *Lionel B*
J'ai lu ton post
avec le plus grand intéret :

Une colonne supplémentaire est-elle envisageable (dans cette feuille, ou sur
une feuille provisoire) ?
Si oui, dans cette colonne, recherche en table (recherchev ou index(equiv),
puis copier, collage spécial valeur sur la colonne source, et suppression de
la colonne supplémentaire.

Soit à la mimine, soit par VBA.

Cela te convient-il ?


--
Bien amicordialement,
P. Bastard


Bonjour Jacquouille
le pb est qu'il faut que j'utilise un vrai tableau de remplacement
car il n'y a pas de logique entre les changements
Merci
LB

"Jacquouille" a écrit dans le message
de news:
Bonsoir
Et si tu divisais tout ton tableau par 100 et formater tes cellules
en nombre entier,càd avec 0 décimale ?
Bonne chance.

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"Lionel B" a écrit dans le message de news:
%
Bonsoir à toutes et à tous
Plusieurs remplacements
J' ai un tableau de plusieurs milliers de lignes
Dans la colonne A j'ai des chiffres que je souhaite remplacer
Bon... Vous allez me dire q'avec la commande Rechercher / remplacer
c'est bon.
Mais, j'ai par exemple 6116 à transformer en 61, puis 6213 en 62
puis 6423 en 642 etc.
Je souhaite créer avec un userform un tableau de correspondance puis
lorsque je clique sur un commandbutton, cela me remplace tous les
éléments
Je vous remercie de votre aide
Merci
LB






Avatar
Lionel B
Bonjour Patrick
Effectivement, je n'y avais pas pensé à INDEX/EQUIV par VBA c'est beaucoup
plus compliqué ?
Merci de ton aide
LB

"Patrick BASTARD" a écrit dans le
message de news:
Bonjour, *Lionel B*
J'ai lu ton post
avec le plus grand intéret :

Une colonne supplémentaire est-elle envisageable (dans cette feuille, ou
sur une feuille provisoire) ?
Si oui, dans cette colonne, recherche en table (recherchev ou
index(equiv), puis copier, collage spécial valeur sur la colonne source,
et suppression de la colonne supplémentaire.

Soit à la mimine, soit par VBA.

Cela te convient-il ?


--
Bien amicordialement,
P. Bastard


Bonjour Jacquouille
le pb est qu'il faut que j'utilise un vrai tableau de remplacement
car il n'y a pas de logique entre les changements
Merci
LB

"Jacquouille" a écrit dans le message
de news:
Bonsoir
Et si tu divisais tout ton tableau par 100 et formater tes cellules
en nombre entier,càd avec 0 décimale ?
Bonne chance.

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"Lionel B" a écrit dans le message de news:
%
Bonsoir à toutes et à tous
Plusieurs remplacements
J' ai un tableau de plusieurs milliers de lignes
Dans la colonne A j'ai des chiffres que je souhaite remplacer
Bon... Vous allez me dire q'avec la commande Rechercher / remplacer
c'est bon.
Mais, j'ai par exemple 6116 à transformer en 61, puis 6213 en 62
puis 6423 en 642 etc.
Je souhaite créer avec un userform un tableau de correspondance puis
lorsque je clique sur un commandbutton, cela me remplace tous les
éléments
Je vous remercie de votre aide
Merci
LB










Avatar
Patrick BASTARD
Bonjour, *Lionel B*


Le plus simple : après avoir activé l'enregistreur de macro : Affichage,
Barre d'outils, Visual Basic, cliquer sur le rond bleu qui active
l'enregistreur (il se transformera en carré bleu dès que tu auras validé le
nom de la macro)
Exécuter la manip une fois manuellement, cliquer sur le carré bleu pour
arrêter l'enregistrement.

Pour voir ton oeuvre :
Alt + F11, double cliquer sur Module1 dans VBA Project (fenêtre de gauche),
le code enregistré se trouve dans la fenêtre de droite.
Tu peux, si besoin, le copier-coller et revenir nous voir pour
apurer-corriger ce code.

--
Bien amicordialement,
P. Bastard

Bonjour Patrick
Effectivement, je n'y avais pas pensé à INDEX/EQUIV par VBA c'est
beaucoup plus compliqué ?
Merci de ton aide
LB

"Patrick BASTARD" a écrit dans le
message de news:
Bonjour, *Lionel B*
J'ai lu ton post
avec le plus grand intéret :

Une colonne supplémentaire est-elle envisageable (dans cette
feuille, ou sur une feuille provisoire) ?
Si oui, dans cette colonne, recherche en table (recherchev ou
index(equiv), puis copier, collage spécial valeur sur la colonne
source, et suppression de la colonne supplémentaire.

Soit à la mimine, soit par VBA.

Cela te convient-il ?


--
Bien amicordialement,
P. Bastard


Bonjour Jacquouille
le pb est qu'il faut que j'utilise un vrai tableau de remplacement
car il n'y a pas de logique entre les changements
Merci
LB

"Jacquouille" a écrit dans le
message de news:
Bonsoir
Et si tu divisais tout ton tableau par 100 et formater tes cellules
en nombre entier,càd avec 0 décimale ?
Bonne chance.

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"Lionel B" a écrit dans le message de
news: %
Bonsoir à toutes et à tous
Plusieurs remplacements
J' ai un tableau de plusieurs milliers de lignes
Dans la colonne A j'ai des chiffres que je souhaite remplacer
Bon... Vous allez me dire q'avec la commande Rechercher /
remplacer c'est bon.
Mais, j'ai par exemple 6116 à transformer en 61, puis 6213 en 62
puis 6423 en 642 etc.
Je souhaite créer avec un userform un tableau de correspondance
puis lorsque je clique sur un commandbutton, cela me remplace
tous les éléments
Je vous remercie de votre aide
Merci
LB










Avatar
Lionel B
Je te remercie
LB

"Patrick BASTARD" a écrit dans le
message de news:
Bonjour, *Lionel B*


Le plus simple : après avoir activé l'enregistreur de macro : Affichage,
Barre d'outils, Visual Basic, cliquer sur le rond bleu qui active
l'enregistreur (il se transformera en carré bleu dès que tu auras validé
le nom de la macro)
Exécuter la manip une fois manuellement, cliquer sur le carré bleu pour
arrêter l'enregistrement.

Pour voir ton oeuvre :
Alt + F11, double cliquer sur Module1 dans VBA Project (fenêtre de
gauche), le code enregistré se trouve dans la fenêtre de droite.
Tu peux, si besoin, le copier-coller et revenir nous voir pour
apurer-corriger ce code.

--
Bien amicordialement,
P. Bastard

Bonjour Patrick
Effectivement, je n'y avais pas pensé à INDEX/EQUIV par VBA c'est
beaucoup plus compliqué ?
Merci de ton aide
LB

"Patrick BASTARD" a écrit dans le
message de news:
Bonjour, *Lionel B*
J'ai lu ton post
avec le plus grand intéret :

Une colonne supplémentaire est-elle envisageable (dans cette
feuille, ou sur une feuille provisoire) ?
Si oui, dans cette colonne, recherche en table (recherchev ou
index(equiv), puis copier, collage spécial valeur sur la colonne
source, et suppression de la colonne supplémentaire.

Soit à la mimine, soit par VBA.

Cela te convient-il ?


--
Bien amicordialement,
P. Bastard


Bonjour Jacquouille
le pb est qu'il faut que j'utilise un vrai tableau de remplacement
car il n'y a pas de logique entre les changements
Merci
LB

"Jacquouille" a écrit dans le
message de news:
Bonsoir
Et si tu divisais tout ton tableau par 100 et formater tes cellules
en nombre entier,càd avec 0 décimale ?
Bonne chance.

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"Lionel B" a écrit dans le message de
news: %
Bonsoir à toutes et à tous
Plusieurs remplacements
J' ai un tableau de plusieurs milliers de lignes
Dans la colonne A j'ai des chiffres que je souhaite remplacer
Bon... Vous allez me dire q'avec la commande Rechercher /
remplacer c'est bon.
Mais, j'ai par exemple 6116 à transformer en 61, puis 6213 en 62
puis 6423 en 642 etc.
Je souhaite créer avec un userform un tableau de correspondance
puis lorsque je clique sur un commandbutton, cela me remplace
tous les éléments
Je vous remercie de votre aide
Merci
LB














Avatar
Frédo P
rebonjour LionelB
En A1 sur la "Feuil1" met "Tab" et en dessous tout les code à remplacer
et en B1 ce que tu veux ,par ex "Rep" et en dessous ce qui doit être placé.

Sub repl()
Dim ws As Worksheet, Fin As Integer, Deb As Integer, i As Byte
Fin = Sheets("Feuil1").Range("B65536").End(3).Row
Deb = [Match("tab",feuil1!A:A,0)] + 1
For i = Deb To Fin
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Feuil1" Then
With Sheets(ws.Name).[A:A]
.Replace What:=Sheets(ws.Name).Range("A" & i),
replacement:=Sheets("feuil1").Range("B" & i), lookat:=xlPart, _
searchorder:=xlByRows, MatchCase:úlse
End With
End If
Next ws
Next i
End Sub


--
Fred
Pour répondre, ôtez "nsp"
Avatar
Lionel B
Bonsoir Frédo
mon sauveur ;-)
Ta procédure fonctionne parfaitement,
j'ai eu un peu de mal à l'adapter, mais cela fonctionne très bien !
Bravo et merci
LB

"Frédo P" a écrit dans le message de news:
%
rebonjour LionelB
En A1 sur la "Feuil1" met "Tab" et en dessous tout les code à remplacer
et en B1 ce que tu veux ,par ex "Rep" et en dessous ce qui doit être
placé.

Sub repl()
Dim ws As Worksheet, Fin As Integer, Deb As Integer, i As Byte
Fin = Sheets("Feuil1").Range("B65536").End(3).Row
Deb = [Match("tab",feuil1!A:A,0)] + 1
For i = Deb To Fin
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Feuil1" Then
With Sheets(ws.Name).[A:A]
.Replace What:=Sheets(ws.Name).Range("A" & i),
replacement:=Sheets("feuil1").Range("B" & i), lookat:=xlPart, _
searchorder:=xlByRows, MatchCase:úlse
End With
End If
Next ws
Next i
End Sub


--
Fred
Pour répondre, ôtez "nsp"