Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Youky
cela fera l'affaire, verifie le nom des feuilles.. Private Sub CommandButton1_Click() For k = 1 To [Feuil1!A65536].End(xlUp).Row nom = Feuil1.Cells(k, 1) For lig = 1 To [Feuil2!A65536].End(xlUp).Row If Feuil2.Cells(lig, 1) = nom Then tx = Feuil2.Cells(lig, 2) & ", " & tx End If Next lig If tx <> "" Then tx = Left(tx, Len(tx) - 2) Feuil1.Cells(k, 2) = tx tx = "" Next k End Sub
Youky "Concatener une plage des données non-fix" <Concatener une plage des données a écrit dans le message de news:
Bonjour,
J'ai deux feuilles Excel avec des données
Feuille 1) Feuille 2) Colonne A Colonne A | Colonne B A A X B A Y C A Z B 1 B 2 C a C b
Je veux dans la Feulle 1 une Colonne B qui me renvoie des données sous la forme Colonne A Colonne B A X, Y, Z B 1, 2 C a, b
Sachant que le nombre des lignes de la Colonne B de la Feuille 2 est variable.
Quelle est le Macro ou le code VBA pour resoudre ce problème.
Merci
cela fera l'affaire, verifie le nom des feuilles..
Private Sub CommandButton1_Click()
For k = 1 To [Feuil1!A65536].End(xlUp).Row
nom = Feuil1.Cells(k, 1)
For lig = 1 To [Feuil2!A65536].End(xlUp).Row
If Feuil2.Cells(lig, 1) = nom Then
tx = Feuil2.Cells(lig, 2) & ", " & tx
End If
Next lig
If tx <> "" Then tx = Left(tx, Len(tx) - 2)
Feuil1.Cells(k, 2) = tx
tx = ""
Next k
End Sub
Youky
"Concatener une plage des données non-fix" <Concatener une plage des données
non-fix@discussions.microsoft.com> a écrit dans le message de news:
C366A794-39AC-488F-8111-F78CF2CC7E3E@microsoft.com...
Bonjour,
J'ai deux feuilles Excel avec des données
Feuille 1) Feuille 2)
Colonne A Colonne A | Colonne B
A A X
B A Y
C A Z
B 1
B 2
C a
C b
Je veux dans la Feulle 1 une Colonne B qui me renvoie des données sous la
forme
Colonne A Colonne B
A X, Y, Z
B 1, 2
C a, b
Sachant que le nombre des lignes de la Colonne B de la Feuille 2 est
variable.
Quelle est le Macro ou le code VBA pour resoudre ce problème.
cela fera l'affaire, verifie le nom des feuilles.. Private Sub CommandButton1_Click() For k = 1 To [Feuil1!A65536].End(xlUp).Row nom = Feuil1.Cells(k, 1) For lig = 1 To [Feuil2!A65536].End(xlUp).Row If Feuil2.Cells(lig, 1) = nom Then tx = Feuil2.Cells(lig, 2) & ", " & tx End If Next lig If tx <> "" Then tx = Left(tx, Len(tx) - 2) Feuil1.Cells(k, 2) = tx tx = "" Next k End Sub
Youky "Concatener une plage des données non-fix" <Concatener une plage des données a écrit dans le message de news:
Bonjour,
J'ai deux feuilles Excel avec des données
Feuille 1) Feuille 2) Colonne A Colonne A | Colonne B A A X B A Y C A Z B 1 B 2 C a C b
Je veux dans la Feulle 1 une Colonne B qui me renvoie des données sous la forme Colonne A Colonne B A X, Y, Z B 1, 2 C a, b
Sachant que le nombre des lignes de la Colonne B de la Feuille 2 est variable.
Quelle est le Macro ou le code VBA pour resoudre ce problème.
Merci
Concatener une plage des données non-fix
ça fonctionne, grand merci
cela fera l'affaire, verifie le nom des feuilles.. Private Sub CommandButton1_Click() For k = 1 To [Feuil1!A65536].End(xlUp).Row nom = Feuil1.Cells(k, 1) For lig = 1 To [Feuil2!A65536].End(xlUp).Row If Feuil2.Cells(lig, 1) = nom Then tx = Feuil2.Cells(lig, 2) & ", " & tx End If Next lig If tx <> "" Then tx = Left(tx, Len(tx) - 2) Feuil1.Cells(k, 2) = tx tx = "" Next k End Sub
Youky "Concatener une plage des données non-fix" <Concatener une plage des données a écrit dans le message de news:
Bonjour,
J'ai deux feuilles Excel avec des données
Feuille 1) Feuille 2) Colonne A Colonne A | Colonne B A A X B A Y C A Z B 1 B 2 C a C b
Je veux dans la Feulle 1 une Colonne B qui me renvoie des données sous la forme Colonne A Colonne B A X, Y, Z B 1, 2 C a, b
Sachant que le nombre des lignes de la Colonne B de la Feuille 2 est variable.
Quelle est le Macro ou le code VBA pour resoudre ce problème.
Merci
ça fonctionne, grand merci
cela fera l'affaire, verifie le nom des feuilles..
Private Sub CommandButton1_Click()
For k = 1 To [Feuil1!A65536].End(xlUp).Row
nom = Feuil1.Cells(k, 1)
For lig = 1 To [Feuil2!A65536].End(xlUp).Row
If Feuil2.Cells(lig, 1) = nom Then
tx = Feuil2.Cells(lig, 2) & ", " & tx
End If
Next lig
If tx <> "" Then tx = Left(tx, Len(tx) - 2)
Feuil1.Cells(k, 2) = tx
tx = ""
Next k
End Sub
Youky
"Concatener une plage des données non-fix" <Concatener une plage des données
non-fix@discussions.microsoft.com> a écrit dans le message de news:
C366A794-39AC-488F-8111-F78CF2CC7E3E@microsoft.com...
Bonjour,
J'ai deux feuilles Excel avec des données
Feuille 1) Feuille 2)
Colonne A Colonne A | Colonne B
A A X
B A Y
C A Z
B 1
B 2
C a
C b
Je veux dans la Feulle 1 une Colonne B qui me renvoie des données sous la
forme
Colonne A Colonne B
A X, Y, Z
B 1, 2
C a, b
Sachant que le nombre des lignes de la Colonne B de la Feuille 2 est
variable.
Quelle est le Macro ou le code VBA pour resoudre ce problème.
cela fera l'affaire, verifie le nom des feuilles.. Private Sub CommandButton1_Click() For k = 1 To [Feuil1!A65536].End(xlUp).Row nom = Feuil1.Cells(k, 1) For lig = 1 To [Feuil2!A65536].End(xlUp).Row If Feuil2.Cells(lig, 1) = nom Then tx = Feuil2.Cells(lig, 2) & ", " & tx End If Next lig If tx <> "" Then tx = Left(tx, Len(tx) - 2) Feuil1.Cells(k, 2) = tx tx = "" Next k End Sub
Youky "Concatener une plage des données non-fix" <Concatener une plage des données a écrit dans le message de news:
Bonjour,
J'ai deux feuilles Excel avec des données
Feuille 1) Feuille 2) Colonne A Colonne A | Colonne B A A X B A Y C A Z B 1 B 2 C a C b
Je veux dans la Feulle 1 une Colonne B qui me renvoie des données sous la forme Colonne A Colonne B A X, Y, Z B 1, 2 C a, b
Sachant que le nombre des lignes de la Colonne B de la Feuille 2 est variable.
Quelle est le Macro ou le code VBA pour resoudre ce problème.