Microsoft 365 Macro - Concaténer avec variable

Aleksii · 11 Octobre 2022

Bonjour,

Je souhaites générer un transfert de 2 variables avec un concaténer texte sous forme de macro.

Ci-joint le fichier avec la DATA et le RESULTAT RECHERCHE.

Merci pour votre aide.

vgendron · 11 Octobre 2022

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...

vgendron · 11 Octobre 2022

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..

Phil69970 · 11 Octobre 2022

Bonjour @Aleksii , Vincent

Je te propose ce fichier

Merci de ton retour

@Phil69970

Aleksii · 11 Octobre 2022

Phil69970 à dit:
Bonjour @Aleksii , Vincent

Je te propose ce fichier

Merci de ton retour

@Phil69970

Bonjour,
Presque , le détail est dans la colonne G. La valeur doit correspondre à ID VAR du produit parent.

Merci.

Phil69970 · 11 Octobre 2022

Re

J'avais pas vu
Voici le correctif

Merci de ton retour

@Phil69970

vgendron · 11 Octobre 2022

Aleksii à dit:
Bonjour,
Presque , le détail est dans la colonne G. La valeur doit correspondre à ID VAR du produit parent.

Merci.

et donc.. ma proposition du post #2 ??

Aleksii · 11 Octobre 2022

vgendron à dit:
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.

Phil69970 · 11 Octobre 2022

@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

vgendron · 11 Octobre 2022

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

Aleksii · 11 Octobre 2022

Phil69970 à dit:
Phil69970 à dit:

@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

Cliquez pour agrandir...

vgendron à dit:

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

Cliquez pour agrandir...

Non, la colonne G n'est pas bonne. Regardez bien je dois avoir la valeur ID VAR du produit parent.

Phil69970 · 11 Octobre 2022

@Aleksii

Alors mets le bon fichier au lieu du même fichier que le post #1

@Phil69970

Aleksii · 11 Octobre 2022

Phil69970 à dit:
@Aleksii

Alors mets le bon fichier au lieu du même fichier que le post #1

@Phil69970

Je me suis excusé au post #7, je ne me doutais pas de l'utilisation du biais avec le "-"
Ce n'est pas le même fichier.

Phil69970 · 11 Octobre 2022

Re

Aleksii à dit:
Ce n'est pas le même fichier.

Faux c'est toujours le même !!!

@Phil69970

Phil69970 · 11 Octobre 2022

Re

Pour la 3eme et dernière fois, en ce qui me concerne, c'est toujours le même fichier que le post #1
Merci de nous fournir le bon fichier

@Phil69970

Aleksii · 11 Octobre 2022

Décidément je suis à côté de la plaque
Ci-joint le fichier.

Microsoft 365 Macro - Concaténer avec variable

Aleksii

XLDnaute Nouveau

Pièces jointes

vgendron

vgendron

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

Aleksii

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Pièces jointes

vgendron

XLDnaute Barbatruc

Aleksii

XLDnaute Nouveau

Pièces jointes

Phil69970

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Aleksii

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Aleksii

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Aleksii

XLDnaute Nouveau

Pièces jointes

Discussions similaires