Creation d'un macro ou VBA Help

Résolu
VTec06 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   -  
VTec06 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Bonjour je ne connait rien en vba ou autre. Excel je l'apprend avec essai erreur. Mais la j'arrive pas a trouver mon bonheurs. Alors je fait appel a vous.

Je m'explique. J'ai une feuille Nom Matiere avec une table des matiere de Collection de Bande dessiner. Certaine de ces collection ont de distributeur différent. J'aimerais avoir une feuille pour chaque distributeur qui importe la ligne avec leur nom en A copie se qui se trouve sur la colonne N et j'aimerais avoir une adition de la ligne pour la colonne FGHIJK. Elle peuvent sécrire sur la meme ligne d'une feuille a l'autre.

Exemble Page 1
Colonne A***************GHIJKL***********M **************N
Ab Irato*****************1***2***********vents d'ouest*****Socadis
Academie des chasseur*****2***4***********Drugstore********ADP
Achille Talon**************1*4*************Dargaud*********Erpi
Aria*********************1**3************Spiro***********Socadis

Page 2
Table de la lettre B etc.

Donc sur ma feuille Socadis j'aimerais voir apparaite que les ligne socadis Ab Irato et Aria adition de GHIJKL devient colonne F et colonne M devient G.

Je ferais meme procedure pour ADP etc.

J'espere m'etre bien exprimer et avoir ete clair
Merci de m'aider. Je pourrais ensuite voir avec mes distributeur pour qu'il m'envoie le bon nombre de BD necessaire pour mes clients. Sans devoir toujours tout copie coller a la mains.
A voir également:

11 réponses

lynyrd1960 Messages postés 207 Date d'inscription   Statut Membre Dernière intervention   245
 
Bonsoir
Rien compris
peut tu envoyer un fichier ( avec ci-joint) de ce que tu souhaites.
A+
0
VTec06 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
Comment je fait pour t'envoyer le fichier je comprend pas comment
0
lynyrd1960 Messages postés 207 Date d'inscription   Statut Membre Dernière intervention   245
 
il faut aller sur le site"ci joint"
A+
0
chossette9 Messages postés 4239 Date d'inscription   Statut Contributeur Dernière intervention   1 311
 
Bonjour,

comme dit plus bas par eriiic, ci joint n'est plus utilisable, il faut passer par Cjoint.

Cordialement.
0
VTec06 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
Tu m'a répond il faut aller sur le site "ci joint" ????
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Bonsoir,

Déposer le fichier xls (réduit au nécessaire et anonymisé) sur cjoint.com et coller ici le lien fourni.

eric
0
lynyrd1960 Messages postés 207 Date d'inscription   Statut Membre Dernière intervention   245
 
oui sur le site "ci joint"
tu télécharges ton fichier depuis leur site,il te donnent un N° de dossier.
tu fais un copier-collé,tu reviens sur le site de "comment ca marche" et tu colles le n° de dossier
A+
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
cjoint.com
0
VTec06 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
0
VTec06 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
Sa semble marcher
0
VTec06 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
J'ai de ces idées des fois. Je sais meme pas si c'est faisable.

Merci de m'aider et excusé ma blonditude le "ci-joint" je pensait que le liens fonctionnait pas. hihihihi
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Bonjour,

Quel est l'intérêt de sauter une page à chaque changement de lettre ?
A part gêner la lecture je ne vois pas.
Perso je ne connais pas grand monde qui s'embêtera à aller à la ligne 1042 pour voir si tu as commandé un 2nd livre...

Une base de donnée doit avoir des titres en haut et ensuite que des données sans vide. Sinon tu tombes sur une usine à gaz que tu ne pourras même pas maintenir.

eric

0
VTec06 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
J'ai crée ma base pour de donner a partir d'un autre outils. Et de cette facon ma mise en page est faite pour imprimé mon document.

Mes est ce que quelqu'un peux m'aider a crée un macro ou VBA

J'aimerais avoir une feuille pour chaque distributeur qui importe la ligne avec leur nom en A copie se qui se trouve sur la colonne N et j'aimerais avoir une adition de la ligne pour la colonne FGHIJK. Elle peuvent sécrire sur la meme ligne d'une feuille a l'autre.

Donc sur ma feuille Socadis j'aimerais voir apparaite que les ligne socadis Ab Irato et Aria adition de GHIJKL devient colonne F et colonne M devient G.

J'aimerais dans le fond toujours ecrire que sur la feuille matiere et que mes donné ce copie dans la bonne feuille.
0
VTec06 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
J'ai le message Erreur de compilation End Sub attendu quelqu'un peux m'aider

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 2013-01-04 par xxx
'
'1.Worksheets Feuil3("Matiere").Select
'2.Range("A7:A45").Select
'3.Range("A52:A90").Select
'4.Selection.Copy
'5.worksheets Feuil2("socadis").Select
'6.Range("A7:A45").Select
'7.Range("A52:A90").Select
'8.ActiveSheet.Past
'9.End Sub
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
si tu mets une ' devant une ligne elle devient un commentaire.
Là ton code fait 1 ligne : Sub Macro1() et c'est tout.

eric
0
VTec06 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
La ligne 8 fonctionne pas. Comment je fat pour dire de coller la selection

J'ai essayer avec ActiveSheet.Past

Dans le fond je veux que se que j'écris dans colonne A de la feuille Matiere se copie automatique dans feuille socadis

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 2013-01-04 par Librairie du Nord
'
1 Sheets("Matiere").Select
2 Range("A7:A45").Select
3 Range("A52:A90").Select
4 Selection.Copy
5 Sheets("socadis").Select
6 Range("A7:A45").Select
7 Range("A52:A90").Select
8 Selection.Past9 End Sub
0
VTec06 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
J'ai reussi Merci
0