Microsoft 365 Macro - Concaténer avec variable

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Solution
macro corrigée
VB:
Sub Macro1()
'

Dim TabData() As Variant
With ActiveSheet
    fin = .Range("A" & .Rows.Count).End(xlUp).Row
    TabData = .Range("A2:G" & fin).Value
    For i = LBound(TabData, 1) + 3 To UBound(TabData, 1)
        For j = LBound(TabData, 2) + 4 To UBound(TabData, 2) - 1
            TabData(i, j) = TabData(1, j) & TabData(i, j - 4)
        Next j
    Next i
    VarNum = Replace(Split(TabData(4, 3), "-")(0), "PRODUIT ", "")
    ID_VAR = TabData(4, 2)
    For i = LBound(TabData, 1) + 3 To UBound(TabData, 1)
        NewVarNum = Replace(Split(TabData(i, 3), "-")(0), "PRODUIT ", "")
        If NewVarNum <> VarNum Then
            VarNum = NewVarNum
            ID_VAR = TabData(i, 2)
        End If
        TabData(i...
Hello
un essai par macro
VB:
Sub Macro1()
'

Dim TabData() As Variant
With ActiveSheet
    fin = .Range("A" & .Rows.Count).End(xlUp).Row
    TabData = .Range("A2:G" & fin).Value
    For i = LBound(TabData, 1) + 3 To UBound(TabData, 1)
        For j = LBound(TabData, 2) + 4 To UBound(TabData, 2) - 1
            TabData(i, j) = TabData(1, j) & TabData(i, j - 4)
        Next j
    Next i
    For i = LBound(TabData, 1) + 3 To UBound(TabData, 1)
        VarNum = Replace(Split(TabData(i, 2), "-")(0), "ID VAR ", "")
        TabData(i, UBound(TabData, 2)) = TabData(1, UBound(TabData, 2)) & "ID VAR " & VarNum
    Next i
    .Range("A2:G" & fin) = TabData
End With

End Sub

PS:tu aurais pu attirer l'attention sur le fait que la troisième colonne suit une logique particulière pour son remplissage..
 
et donc.. ma proposition du post #2 ??
Finalement ce n'est pas bon. Mes exemples avec "-" n'est pas une bonne idée. Elles avait pour but d'améliorer la compréhension. Du coup vous aves utilisé des biais qui ne fonctionne pas avec du numérique pour la colonne G

Voici le fichier avec des valeurs que j'utilise.

Toutes mes excuses.
 

Pièces jointes

@Aleksii

Avec ton nouveau fichier je vois pas la différence avec ton ancien fichier et pour moi nos 2 solutions fonctionnent donc je ne comprends pas ce que tu attends.

*J'ai mis ma macro sur le nouveau fichier et le résultat me semble correct donc ????

@Phil69970

C'est quoi la différence avec le fichier d'avant??
moi, ce que je vois, c'est que le code proposé génère exactement les colonnes attendues

Non, la colonne G n'est pas bonne. Regardez bien je dois avoir la valeur ID VAR du produit parent.
2022-10-11_11h46_36.png
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
348
Réponses
4
Affichages
143
Réponses
18
Affichages
520
Réponses
8
Affichages
112
Réponses
2
Affichages
49
Retour