VBA concatener plusieurs cellules
Bonjour!
Je doute de comment arriver a mes fins. si vous pouvez m'enligner ce serait géniale!
Voir document joint pour plus de clartée...
via l'onglet App(2) je souhaite "compiler" les données de certaines cellules et les exporter a l'onglet upload.
quand le bouton est pressé,
je souhaite que les données B3 et B5 arrivent respectivement au colones A et B (upload)
la colone C (upload) devrait prendre "Style"-"Size"-"Colour codes" soit "B9"-"H16:H40"-"G46:G60"
soit produire un résultat du genre a la colone C (upload):
"B9"-"H16"-"G46"
"B9"-"H16"-"G47"
"B9"-"H17"-"G46"
"B9"-"H17"-"G47"
"B9"-"H18"-"G46"
... pour chaque ligne (H16:H40) et (G46:G60)
Meme chose pour la Colone D : B7-B10-C46:C60-F16:F40
meme chose pour la colone E: B7-B10-E46:E60-H16:H40
Toutefois! Si une ame gentille peut m'aider pour la colone C, je crois bien que je serai en mesure de poursuivre!
en vous remerciant de votre support!
Bonjour!! OH WAOW! oui exactement, a une problematique pres:
outre le tableau3 (output)
je ne peux fonctionner avec le tableau1 et 2.
jai du retirer la formule qui allait chercher ces informations car le fichier est trop lourd pour le telechargement....
Or donc, la formule Filter cherche les donnees selon le critere en B13 (IS01) et y affiche les donnees necessaires qui peut aller de B16:H40 maximum...
jai tentee de retirer les references au tableau dans votre code en les remplacants par des ranges, mais definitivement je my prends mal!
outre ca, cest exactement ca :D
Bonjour sof123, tenders_vba, le forum,
Je n'ai pas trop compris....mais en me basant sur la proposition de tenders_vba
[EDIT]
je ne peux fonctionner avec le tableau1 et 2.
Cordialement,
Cest une solution tres similaire (qui fonctionnerait avec des entrees stables)
je ne peux utiliser la formule index pour remplir un tableau apparement...
J<ai Finalement reussi a joindre mon fichier,
il suffit de mettre = devant la formule a B46, ca donne une meilleure idee
Les donnees contenues dans ces sections sont tirees dun tableau dun autre onglet.
Je crois qu<il faudrait peut etre copier les valeurs affichees a cet endroit pour permettre de les prendre en consideration dans la macro et ensuite retourner a la formule d,origine pour permettre d<autres entrees... si ca fait du sens
Re,
Désolé, je suis sur excel 2010, je n'ai pas accès à cette fonction FILTRE....Peut-on voir la base de données ?
Cordialement,
Bonjour!
Voici,
j'ai du retirer le = ca rend le fichier trop lourd avec la formule....
elle se trouve a B16 et B46 pour aller chercher avec la liste deroulante en B14 les donnees ciblees dans les onglets color et size
jespere que ca eclaire un brin...
Re-bonsoir,
Pas le temps de peaufiner....mais voici un premier jet...
Cordialement,
oh waow!
effectivement, dans ce cas ci, je peux utiliser un tableau si lensemble est en macro cest claire que ca fait le tout!
merci de votre temps, je prendrai maintenant le mien pour biiiiiiien comprendre et apprendre de votre technique!!!
Bonne journee et merci encore.
Il y a un petit quelque chose que je ne comprends pas, si vous auriez l'obligeance d'eclairer ma lanterne!
au niveau du color code, la feuille dorigine est formatter sous 01 02 03 :D
quand les donnes sont integrer au tableau app(2), on voit 01 02 03 :D
Quand on exporte dans Upload, on retrouve le compil (:D) sous la forme : ####-##-# (puisque le nombre est sous 10) vs ####-##-## :(
jai beau tenter de formater la chose,
1: jai le probleme de toujours avoir un 0 supplementaire (si color est 11, pas besoin de 0! cela fonctionne pourtant aux autres endroits)
2: ca ne fonctionne quhors du tableau, et ne semble pas vouloir sappliquer sur la colone C.
pourquoi donc?
ou auriez vous une piste ?
un gros merci encore, cest exactement ce que je cherchais a faire a ce 0 pres!
Bonjour sof123,
Peux-tu me montrer le souci rencontré et le résultat souhaité, stp.
Dans l'exemple, on a 6 chiffres et 2 tirets, ce qui fait 8 ?
Petit souci de format lors de la retranscription du "Newtb" ?
newtb2(j, k + 1) = Format(tb2(i, j), "00") 'Sub test() Newtb(3, 1 + k) = Fsource.Range("B9").Value & "-" & tbIS(i, 7) & "-" & Format(tbCOL(j, 6), "00") 'Private Sub Worksheet_Change(ByVal Target As Range)Cordialement,
Cest de toute beautée.
Un Grand merci a vous!!!!