remplacer une donnée par une autre

[stephi]

bonjour à tous

je récupère un fichier excel de mon site web via phpmyadmin (exporter sous excel)

sur mon onglet 1:

j ai une colonne ID, nomclient, ID formation

EX: 10, martin, 5
11, lebon,6
etc...

sur mon onglet 2

ID formation, nom formation
5, droit
6,économie
etc...

ce que j aimerai c est remplacer dans mon onglet 1 l'ID formation 5 par le nom de la formation droit et cela pour tous bien sûr.

ce qui me permet de faire des tris plus lisibles.

je pense qu un bout de code ou macro ou fonction serait utile.

voila quelq un aurait il une idée?

merci à tous de votre aide.

stephi

 

[Etienne2323]

Re : remplacer une donnée par une autre

Salut Stephi,
est-ce que tu pourrais déposer un exemple de ce fichier en mettant, dans un onglet à part, le résultat souhaité ? Il serait alors beaucoup plus simple pour nous de pouvoir te donner du concret.

À te relire pour plus,

Étienne

Edit : Salutations J-M

 

[flyonets44]

Re : remplacer une donnée par une autre

Bonsoir
ci-joint un début de réponse sans macro-avec des plages nommées
Cordialement
Flyonets

 

[stephi]

Re : remplacer une donnée par une autre

merci à vous c est une possiblité mais tu vois j exporte chaque jour ma base mysql dans excel. la liste de mes formations est fixe mais ce que j exporte ce sont les demandes de formations via le site web.
donc de que j aimerai c est que directement la colonne où j ai les ID FORMATION PRENNET LES NOM DES FORMATIONS DIRECTEMENT;et pas rajouter une colonne.

dans le fichier joint, j ai simplifié mais j ai une quinzaine de colonnes.

merci

stephi

 

[mth]

Re : remplacer une donnée par une autre

Bonsoir à tous

Un petit essai avec ce code sur une colonne:

Sub Macro1()
Dim lig As Long
Application.ScreenUpdating = False
With Sheets("Feuil1")
    lig = .Cells(Rows.Count, 1).End(xlUp).Row
    For Each c In .Range("C2:C" & lig).SpecialCells(xlCellTypeConstants)
        Set recherche = Sheets("Feuil2").Columns("A").Find(c.Value)
        If Not recherche Is Nothing Then
            c.Value = Sheets("Feuil2").Range("B" & recherche.Row)
        End If
    Next c
End With
Application.ScreenUpdating = True
End Sub

Bonne soirée à tous,

xXx Etienne

mth

 

[stephi]

Re : remplacer une donnée par une autre

salut mth

je suis pas trop fort en code. je mets ça où sur mon exemple, stp?

merci

stephi

 

[mth]

Re : remplacer une donnée par une autre

Re

Voici ton fichier en PJ, le code est dans un module standard, pour le voir tu vas dans l'onglet développeur, tu cliques sur le bouton "Visual Basic", tu peux aussi appuyer sur les touches ALT puis F11 pour arriver au même endroit.
Là, tu vois le code apparaître dans un module, comme ceci:



Bien à toi,

mth

 

[stephi]

Re : remplacer une donnée par une autre

merci mth

tu es très sympa. ton code est très cool.

Peux t on faire ça automatiquement c a dire je copie le contenu de ma base du jour dans l'onglet 1 et ça transforma automatiquement les ID ( sachant que dans mon classeur j ai toujours l'onglet 2 avec le nom des formations.

là ce serait top.

stephi