Discussion :

[ab1to]

Bonjour,

J'ai une base de données en xls et je voudrais modifier le nom des variables, c'est à dire modifier les chaînes de caractères des cellules de la ligne 1.

J'ai réussi à modifier une partie des caractères, mais je n'ai pas d'idée pour faire le reste.

Par exemple, j'ai une cellule qui contient le nom de ma variable, c'est à dire : "V1_2_TXT".
J'ai réussi à la modifier avec la macro ci-dessous pour que cela devienne :
"o_V1_2".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Codes_Var_Com()
 
Sheets("Extract").Select
 
    Dim Cell As Variant
    Dim LastCol As Integer
    Dim Col As Variant
    Dim Var As String
 
    LastCol = Range("ALL" & 1).End(xlToLeft).Column 'Definition derniere colonne
 
    For Col = 43 To LastCol
        Var = Cells(1, Col)
            If Right(Var, 4) = "_TXT" Then
                Var = Replace(Var, "_TXT", "")
                Cells(1, Col) = "o_" & Var
            End If
    Next Col
 
End Sub

Mais, là où je bloque, c'est que si les 2 derniers caractères sont "_2", le chiffre après le "V" et avant le dernier "_" est augmenté de 1 et le "_2" disparait :
"o_V1_2" devient "o_V2" OU "o_V6_2" devient "o_V7"

Est-ce clair ???

Merci d'avance de votre aide.

Anthony

[Arkham46]

bjr,

J'utiliserais Left au lieu de Replace pour ne garder que la partie de gauche (sur une taille fonction de la longueur trouvée avec Len)
Replace pourrait éventuellement remplacer une chaîne de caractères trouvée ailleurs qu'à la fin.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Var = "o_" & Left(Var, Len(Var) - len("_TXT"))

Mid permet d'extraire une chaîne de caractères entre 2 positions.
Instr (ou InstrRev) permet de trouver un caractère dans une chaîne.

Avec tout ça il doit être possible de trouver le nombre avant _2 et de l'incrémenter.

[mercatog]

Si tes titres sont bien connus, je propose ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim Col As Integer
With Sheets("Extract")
    For Col = 43 To .Cells(1, Columns.Count).End(xlToLeft).Column
        .Cells(1, Col).Value = IIf(Right(.Cells(1, Col).Value, 4) = "_TXT", "o_" & Left(.Cells(1, Col).Value, Len(Cells(1, Col).Value) - 4), .Cells(1, Col).Value)
    Next Col
End With

[ab1to]

Super !!! Merci à vous 2.

Anthony