XL 2010 MACRO POUR REMPLACER NOMBRES PAR NOMS

M

mcj1997

XLDnaute Accro
Bonjour,

Je reçois régulièrement des fichiers volumineux avec une colonne avec des nombres auxquels correspondent un nom, je recherche une macro qui me permette de remplacer sur toute la colonne les nombres par les noms.

Exemple dans fichier reçu j'ai une colonne de n° de département, 36, 23, 87......, qui doivent être remplacés par INDRE, CREUSE, HAUTE VIENNE......,

Dans ma macro dans ce petit exemple il me faudrait donc commander de remplacer 36 par Indre, 23 par Creuse et 87 par Haute Vienne.
Est-ce possible en (1) sélectionnant la colonne concernée et en (2) en activant la macro ?

Merci d'avance,
 
Trier par date Trier par votes
Robert

Robert

XLDnaute Barbatruc
Repose en paix
Bonsoir le fil, bonsoir le forum,

VB: 
Sub Chuuuuuuut()
Dim TN(1 To 3) 'déclare le tableau TN de 3 variables (Tableau des Numéros)
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim COL As Integer 'déclare la variable COL (COLonne)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)
Dim J As Byte 'déclare la variable J (incrément)

TN(1) = 36 'définit TN(1)
TN(2) = 23 'définit TN(2)
TN(3) = 87 'définit TN(3)
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
COL = 1 'définit la colonne COL (à adapter à ton cas)
DL = O.Cells(Application.Rows.Count, COL).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne COL de l'onglet O
For I = 1 To DL 'boucle 1 sur toute les lignes I de 1 à DL
    For J = 1 To 3 'boucle 2 : sur toutes les variable J de TN
        'si la valeur de la cellule ligne I colonne COL est égale à la variable J du tableau TN, récupère le nom en fonction du choix J, sort de la boucle 2
        If O.Cells(I, COL).Value = TN(J) Then O.Cells(I, COL).Value = Choose(J, "Indre", "Creuse", "Haute-Vienne"): Exit For
    Next J 'prochaine variable de la boucle 2
Next I 'prochaine ligne de la boucle 1
End Sub
[Édition]
Plus adaptée :
VB: 
Sub Chuuuuuuut()
Dim SEL As Range 'déclare la variable SEL (SElection)
Dim TN(1 To 3) 'déclare le tableau TN de 3 variables (Tableau des Numéros)
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim COL As Integer 'déclare la variable COL (COLonne)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)
Dim J As Byte 'déclare la variable J (incrément)

On Error GoTo fin 'en cas d'erreur va à l'étiquette "fin"
Set SEL = Application.InputBox("sélectionner la colonne en cliquant sur une cellule de celle-ci.", "COLONNE", Type:=8) 'définit la selection SEL (génère une erreur si [Annuler])
COL = SEL.Column
TN(1) = 36 'définit TN(1)
TN(2) = 23 'définit TN(2)
TN(3) = 87 'définit TN(3)
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
DL = O.Cells(Application.Rows.Count, COL).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne COL de l'onglet O
For I = 1 To DL 'boucle 1 sur toute les lignes I de 1 à DL
    For J = 1 To 3 'boucle 2 : sur toutes les variable J de TN
        'si la valeur de la cellule ligne I colonne COL est égale à la variable J du tableau TN, récupère le nom en fonction du choix J, sort de la boucle 2
        If O.Cells(I, COL).Value = TN(J) Then O.Cells(I, COL).Value = Choose(J, "Indre", "Creuse", "Haute-Vienne"): Exit For
    Next J 'prochaine variable de la boucle 2
Next I 'prochaine ligne de la boucle 1
fin:
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
M

mcj1997

XLDnaute Accro
Robert à dit:
Bonsoir le fil, bonsoir le forum,

VB: 
Sub Chuuuuuuut()
Dim TN(1 To 3) 'déclare le tableau TN de 3 variables (Tableau des Numéros)
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim COL As Integer 'déclare la variable COL (COLonne)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)
Dim J As Byte 'déclare la variable J (incrément)

TN(1) = 36 'définit TN(1)
TN(2) = 23 'définit TN(2)
TN(3) = 87 'définit TN(3)
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
COL = 1 'définit la colonne COL (à adapter à ton cas)
DL = O.Cells(Application.Rows.Count, COL).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne COL de l'onglet O
For I = 1 To DL 'boucle 1 sur toute les lignes I de 1 à DL
    For J = 1 To 3 'boucle 2 : sur toutes les variable J de TN
        'si la valeur de la cellule ligne I colonne COL est égale à la variable J du tableau TN, récupère le nom en fonction du choix J, sort de la boucle 2
        If O.Cells(I, COL).Value = TN(J) Then O.Cells(I, COL).Value = Choose(J, "Indre", "Creuse", "Haute-Vienne"): Exit For
    Next J 'prochaine variable de la boucle 2
Next I 'prochaine ligne de la boucle 1
End Sub
[Édition]
Plus adaptée :
VB: 
Sub Chuuuuuuut()
Dim SEL As Range 'déclare la variable SEL (SElection)
Dim TN(1 To 3) 'déclare le tableau TN de 3 variables (Tableau des Numéros)
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim COL As Integer 'déclare la variable COL (COLonne)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)
Dim J As Byte 'déclare la variable J (incrément)

On Error GoTo fin 'en cas d'erreur va à l'étiquette "fin"
Set SEL = Application.InputBox("sélectionner la colonne en cliquant sur une cellule de celle-ci.", "COLONNE", Type:=8) 'définit la selection SEL (génère une erreur si [Annuler])
COL = SEL.Column
TN(1) = 36 'définit TN(1)
TN(2) = 23 'définit TN(2)
TN(3) = 87 'définit TN(3)
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
DL = O.Cells(Application.Rows.Count, COL).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne COL de l'onglet O
For I = 1 To DL 'boucle 1 sur toute les lignes I de 1 à DL
    For J = 1 To 3 'boucle 2 : sur toutes les variable J de TN
        'si la valeur de la cellule ligne I colonne COL est égale à la variable J du tableau TN, récupère le nom en fonction du choix J, sort de la boucle 2
        If O.Cells(I, COL).Value = TN(J) Then O.Cells(I, COL).Value = Choose(J, "Indre", "Creuse", "Haute-Vienne"): Exit For
    Next J 'prochaine variable de la boucle 2
Next I 'prochaine ligne de la boucle 1
fin:
End Sub
Cliquez pour agrandir...
Merci beaucoup, c'est top, maintenant je fais faire de la saisie dans le code afin de rentrer toutes les références.
Une question y aurait moyen qu'au cas ou la référence ne soit pas rentrée dans la macro, qu'elle tourne tout de même et pointe ensuite sur l'erreur. En effet cela pourrait arriver que je reçoive un fichier avec un nom non référencé dans la macro.
Dans l'attente encore merci !!!
 
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Pour compléter ce que j'ai dit au post #15 voyez ce fichier (2) et la macro du bouton :
VB: 
Sub Remplacer()
Application.ScreenUpdating = False
With [A1].CurrentRegion
    .Columns(2) = "=IFERROR(VLOOKUP(A1,'" & ThisWorkbook.Path & "\[FICHIER AVEC REFERENCES.xlsx]Feuil1'!A$1:B$100,2,0),"""")"
    .Columns(2) = .Columns(2).Value 'supprime les formules
    .Columns(2).Copy .Columns(1) 'copier-coller
    .Columns(2).ClearContents 'RAZ
End With
End Sub
 

Pièces jointes

  • FICHIER AVEC REFERENCES.xlsx
    8.4 KB · Affichages: 12
  • FICHIER A MODIFIER(2).xlsm
    16.1 KB · Affichages: 6
Vote positif 0 Vote négatif
M

mcj1997

XLDnaute Accro
job75 à dit:
Pour compléter ce que j'ai dit au post #15 voyez ce fichier (2) et la macro du bouton :
VB: 
Sub Remplacer()
Application.ScreenUpdating = False
With [A1].CurrentRegion
    .Columns(2) = "=IFERROR(VLOOKUP(A1,'" & ThisWorkbook.Path & "\[FICHIER AVEC REFERENCES.xlsx]Feuil1'!A$1:B$100,2,0),"""")"
    .Columns(2) = .Columns(2).Value 'supprime les formules
    .Columns(2).Copy .Columns(1) 'copier-coller
    .Columns(2).ClearContents 'RAZ
End With
End Sub
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
M

mcj1997

XLDnaute Accro
job75 à dit:
Pour compléter ce que j'ai dit au post #15 voyez ce fichier (2) et la macro du bouton :
VB: 
Sub Remplacer()
Application.ScreenUpdating = False
With [A1].CurrentRegion
    .Columns(2) = "=IFERROR(VLOOKUP(A1,'" & ThisWorkbook.Path & "\[FICHIER AVEC REFERENCES.xlsx]Feuil1'!A$1:B$100,2,0),"""")"
    .Columns(2) = .Columns(2).Value 'supprime les formules
    .Columns(2).Copy .Columns(1) 'copier-coller
    .Columns(2).ClearContents 'RAZ
End With
End Sub
Cliquez pour agrandir...
Merci, c'est bien aussi, par contre avec cette solution il faut que je rentre la macro dans le fichier que je reçois, mais c'est plus simple de saisir le tableau des références dans le fichier références.
 
Vote positif 0 Vote négatif
Robert

Robert

XLDnaute Barbatruc
Repose en paix
mcj1997 à dit:
Merci beaucoup, c'est top, maintenant je fais faire de la saisie dans le code afin de rentrer toutes les références.
Une question y aurait moyen qu'au cas ou la référence ne soit pas rentrée dans la macro, qu'elle tourne tout de même et pointe ensuite sur l'erreur. En effet cela pourrait arriver que je reçoive un fichier avec un nom non référencé dans la macro.
Dans l'attente encore merci !!!
Cliquez pour agrandir...
Re,

C'est bien pour cela que depuis le début on se tue à te demander les fichiers. Je me doutais bien qu'il n'y avait pas que trois départements te je t'aurais proposé un code différent (pas aussi efficace que celui de Job, que je salue, mais lui c'est spécial, c'est en extraterrestre...).
Peut-être tu retiendras cela pour tes prochains posts...
 
Vote positif 0 Vote négatif

Discussions similaires

V
  • Question
XL 2016 remplacer une valeur par sa correspondante trouvée dans une table
Réponses
2
Affichages
560
Vélosolex
V
C
  • Résolu(e)
Microsoft 365 [VBA] macro pour cibler une cellule aléatoire et y coller une valeur
Réponses
5
Affichages
901
AtTheOne
AtTheOne
Usine à gaz
  • Résolu(e)
Microsoft 365 formules pour remplacer les caractères "st" et "ste" en début de chaine de texte ou dans la chaine si séparés par 1 espace avant et 1 espace après
2 3 4
Réponses
50
Affichages
3 K
Usine à gaz
Usine à gaz
N
  • Question
Macro VBA "Remplacer par" amélioré
2
Réponses
15
Affichages
5 K
nicopat
N
A
  • Question
Macro VBA : Besoin d'aide pour créer une marco
Réponses
0
Affichages
800
abercrom75
A
M
  • Question
Couleur en fonction de noms
Réponses
9
Affichages
1 K
mcj1997
M
C
  • Question
Besoin d'aide sur macro vba pour reformatter une base de données inutilisable
Réponses
3
Affichages
1 K
cbiette
C
C
  • Question
macro pour remplacer date la plus ancienne par la plus récente
Réponses
3
Affichages
27 K
caramelle04
C
C
  • Question
problème macro copie mais change mes nombres??
Réponses
12
Affichages
1 K
chemist
C
P
  • Question
Différences entre macro enregistrée et un enchainement manuel d'actions
Réponses
6
Affichages
1 K
Patrick.
P

Membres actuellement en ligne

3 membres et 44 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 206
Messages
2 086 219
Membres
103 158
dernier inscrit
laufin