Fonction Subtitue mais dans VBA
Bonjour forum,
Mon problème c'est que j'effectue une requête dans une base SQL, mais l'un de mes champs '' Code activité '' sort en code (T1, T2, T3, C4...) il est donc difficile de comprendre le tableau. Mon but et de rechercher dans une colonne les code et les remplacer par leur nom exemple : T1 = Dessin / Layout, T2 = Engineering, etc, j'ai plus de 60 code et ma mon tableau est variable, car il se fait selon des critères.
Merci
Bonjour,
Pouvez-vous mettre, en pièce jointe, un fichier exemple ?
Cordialement.
PMO
Patrick Morange
Ok regarde sur la Feuil3 ce que je veux substituer est en jaune, mon tableau est une requête, je veux donc qu'après ma requête, que tout mes codes de la colone G prenne leur nom respectif de la colone N.
Merci
Bonjour,
Une piste en VBA
1) Copiez le code suivant dans un module standard
'### A adapter - Feuille où se situe les légendes à partir de A1 ###
Const FEUILLE_LEGENDES As String = "Légendes"
'###################################################################
Sub LegendVsCode()
Dim S As Worksheet
Dim R As Range
Dim var
Dim var2
Dim i&
Dim j&
Set S = Sheets(FEUILLE_LEGENDES)
Set R = S.[a1].CurrentRegion
var2 = R
Set S = ActiveSheet
Set R = S.Range("g1:g" & S.[g65536].End(xlUp).Row & "")
var = R
For i& = 2 To UBound(var, 1)
For j& = 2 To UBound(var2, 1)
If LCase(Trim(var(i&, 1))) = LCase(Trim(var2(j&, 1))) Then
var(i&, 1) = var2(j&, 2)
Exit For
End If
Next j&
Next i&
R = var
End Sub2) Dans une feuille nommée "Légendes" et à partir de A1 mettez vos Code d'activité / Légende avec UNE ligne de titre.
3) Sélectionnez la feuille à traiter et lancez la macro LegendVsCode
Cordialement.
PMO
Patrick Morange
C'est parfait un gros merci!!