Excel 2010 - Macro Transcodage

[julien91080]

Bonjour,


Je souhaite faire du "transcodage" automatique.
Lorsque que je reçois un fichier Excel, j'aimerai que la macro teste chaque ligne d'un onglet en fonction d'un onglet "Table de transcodification" qui peut évoluer et qui corrige la valeur en fonction de la dite table si besoin.
Bien conscient que cela est probablement plus compliqué, cela dépasse mes compétences.

Cordialement,

Julien

 

[joss56]

Re : Excel 2010 - Macro Transcodage

Bonjour,

Cela est sûrement réalisable. Il nous faudrait maintenant un petit bout de fichier exemple pour tenter de trouver une solution qui te convienne.

Cdt,

Jocelyn

 

[julien91080]

Re : Excel 2010 - Macro Transcodage

Bonjour,

Je verrais quelque chose comme cela.
A préciser que la "table de transcodification" peut avoir des mise à jour (exemple: on se rend compte que l'on veut transformer le code "nn" en "N"), elle est donc extensible.
Enfin, l'onglet "Feuil3" n'a pas de taille fixe.

J'imagine un bouton et pouf, les codes se transforment.

Cordialement,

Julien

 

[camarchepas]

Re : Excel 2010 - Macro Transcodage

Bonsoir ,

une solution , a voir la rapidité si beaucoup de volume

 

[ROGER2327]

Re : Excel 2010 - Macro Transcodage

Bonjour à tous.

Une autre proposition :​

Sub MàJ()
Dim i&, HTrad&, Trad(), Cel As Range
    With shtParam: Trad = .Range(.Cells(1, 2), .Cells(.Rows.Count, 1).End(xlUp)).Value: End With
    HTrad = UBound(Trad)
    With Application: .ScreenUpdating = 0: .EnableEvents = 0: .Calculation = -4135: End With
    With Selection
        For Each Cel In .Cells
            For i = 2 To HTrad
                If StrComp(Cel.Value, Trad(i, 1)) = 0 Then Cel.Value = Trad(i, 2): Exit For
            Next
        Next
    End With
    With Application: .Calculation = -4105: .EnableEvents = 1: .ScreenUpdating = 1: End With
End Sub

Mode d'emploi dans la pièce jointe.​

Bonne nuit.


ℝOGER2327
#7771

Vendredi 27 Gueules 142 (Saint Tabagie, cosmogène - fête Suprême Quarte)
3 Ventôse An CCXXIII, 0,4837h - violier
2015-W08-6T01:09:39Z

 

[julien91080]

Re : Excel 2010 - Macro Transcodage

Bonjour Messieurs,

Merci beaucoup pour vos solutions.
Je pense que cela répond à ma demande.

Un grand merci et à bientôt.

Cordialement,

Julien

 

[ROGER2327]

Re : Excel 2010 - Macro Transcodage

Re...

Bonjour Messieurs,

Merci beaucoup pour vos solutions.
Je pense que cela répond à ma demande.

Un grand merci et à bientôt.

Cordialement,

Julien

Parfait ! Faites gaffe quand même : les deux propositions ne font pas toujours la même chose...​

Bonne nuit.


ℝOGER2327
#7776

Lundi 2 Pédale 142 (Saint André Marcueil, ascète cycliste - fête Suprême Quarte)
6 Ventôse An CCXXIII, 0,7846h - asaret
2015-W09-2T01:52:59Z