Liste de validation et export de données
Bonjour a toutes et à tous,
j'avance peu à peu sur un projet professionnel mais je bute sur la rédaction d'une macro.
dans le fichier joint, l'objectif serait de faire défiler tous les éléments de la cellule B2 de l'onglet SYNTHESE et de reporter les données en vert dans l'onglet REPORT les une après les autres.
J'espère que l'expression de mon besoin est assez claire
Merci d'avance pour votre aide
Stephane
merci pour ce premier essai.
on est pas loin de ce que je recherche.
Sauf que je souhaiterais ne pas devoir faire défiler manuellement chaque magasin en B2 mais que la macro le fasse automatiquement
Merci en tout cas, cela me permet d'avancer
Stéphane
en outre, le nombre de lignes à remonter varie selon les magasins.
Ainsi le magasin 1 a 3 lignes à reporter (ilot 10 11 et 12) mais le 2 seulement deux lignes
Au maximum, il y a 3 lignes à reporter (magasin 1)
stephcic a écrit :je souhaiterais ne pas devoir faire défiler manuellement chaque magasin en B2 mais que la macro le fasse automatiquement
Cela ira-t-il ?
waouh parfait, c'est exactement cela. Merci énormément sauf que je ne comprends pas trés bien le code
deux questions encore si vous le permettez :
- dans le fichier joint j'ai complété les données pour un magasin 5 et la macro ne reporte qu'une partie des données ????
- je n'arrive pas à l'adapter à mon projet
Dans l'onglet Synthèse du fichier joint (en jaune), les correspondances de colonne à exporter, que devient alors le code ????
Merci
je continue à chercher comment adapter votre code en attendant vos précisions
Stéphane
Voilà :
c'est exactement cela. Merci
Par contre, je ne comprends pas le code. tu peux m'expliquer ???
Car là , je galère pour l'adapter à mon fichier.
Sheets("REPORT").Range("A2:D" & Sheets("REPORT").Range("A" & Rows.Count).End(xlUp)(2).Row).Clear
With Sheets("Technique")
For Each Cel In .Range("H1:H" & .Range("H" & Rows.Count).End(xlUp).Row)
Cells(2, "B").Value = Cel.Value
With Sheets("REPORT")
For Each C In Range("B5:B" & Range("B" & Rows.Count).End(xlUp).Row)
If C.Value <> "" Then
Lgn = .Cells(Rows.Count, "A").End(xlUp)(2).Row
.Cells(Lgn, "A").Value = Cells(2, "B").Value
.Cells(Lgn, "B").Value = C.Value
.Cells(Lgn, "C").Value = C.Offset(0, 3).Value
.Cells(Lgn, "D").Value = C.Offset(0, 5).Value
End If
Next C
End With
Next Cel
End With
End Sub
Fichier avec macro commentée :
Bonjour,
merci pour ces explications. c'est un peu plus clair.
J'ai juste un problème quand j'adapte ta macro à mon fichier.
Elle ne me recopie que la première ligne de données. par exemple seulement l'ilot 51 mais pas les autres.
Comment cela se fait il ?
Bonjour
Tu écris :
J'ai juste un problème quand j'adapte ta macro à mon fichier.
Elle ne me recopie que la première ligne de données. par exemple seulement l'ilot 51 mais pas les autres.
Comment cela se fait il ?
Je ne sais pas ! Envoie ton fichier !
Bye !
IL FAIT DEUX M0 et comporte des données confidentielles.
je peux l'adapter et te l'envoyer par mail ?
VOICI EN PIECE jointe un fichier simplifier avec la mise en forme exacte du fichier sur lequel je travaille.
Et à partir de la ligne 29, le code que j'ai actuellement.
ce dernier fonctionne trés bien jusqu'en ligne 46 MAIS il ne me remonte pas ensuite la bonne donnée.
j'aimerais les données de la colonne R.
puis toutes celles en jaune dans mon fichier.
j'espère etre clair
Merci
Bonjour
Je suis désolé mais avec un fichier vide, je ne peux pas faire grand-chose.
Envoie ton fichier par www.cjoint.com : tu peux aller jusqu'à 8 Mo
Et pour les données confidentielles, rend les anonymes...
J'ai tout de même noté que à la différence du fichier initial, il n'y a plus de liste déroulante pour choisir le magasin : la macro s'en servait...
Bye !
voici le lien du document, en espérant que cela marche
merci encore
Bonjour
Dans le tableau de la feuille « Rentabilité bureau », il y a des lettres comme titres de colonnes : A ; B ; C ; ...
Dans le tableau de la feuille « Reporting », il y a des titres : ‘Guichet’ ; ‘Bureau’, ‘Libéllé bureau’…
Mais sans correspondance entre les deux, je ne peux pas deviner quelles colonnes la macro doit reporter d’un tableau dans l’autre…
A te relire.
Rentabilité bureau reporting
A
B B
C C
D D
E E
R F
AN G
AR H
BF I
BL J
BN K
BP L
Je ne comprends toujours pas.
Ce que je veux c’est savoir dans quelle colonne du tableau ‘Rentabilité bureau ‘ je dois prendre les données de :
• GUICHET à priori en B2
• BUREAU à priori en colonne B
• LIBELLE BUREAU --> ?
• DRH --> ?
• SURFACE ?
• PNI --> ?
(HORS EPS) --> ?
• COMMISSIONS ?
etc...
GUICHET à priori en B2
• BUREAU à priori en colonne B
• LIBELLE BUREAU --> colonne C
• DRH --> colonne D
• SURFACE --> colonne E
• PNI --> colonne R
• COMMISSIONS --> colonne AN
• PNB --> colonne AR
• FRAIS GENERAUX --> colonne BF
• COUT DU RISQUE --> colonne BL
• RES D EXPL --> colonne BN
• RBE --> colonne BP