Listing fournisseur

[Hakimdelyon]

Bonjour,

J'ai un listing général de clients et je souhaite créer des fiches individuelles à partir de cette feuille. Je dispose d'un modéle de fiche mais le listing comporte plus de 100 clients et à la main, ça va me prendre un temps fou. Je pense qu'avec une macro ça devrais aller super vite. Mais voilà je suis hermétique au langage VBA, pour l'instant. J'ai essayé d'enregistrer une macro mais il y a une erreur quelque part et je n'arrive pas à voir où.

Merci pour votre aide.
Hakim

 

[rafael]

Re : Listing fournisseur

Bonjour Hakimdelyon ( allé l'OL ) et bien venu sur le forum

j'ai mis dans la feuille 2 des règles de calcul type INDEX(base de donnée; N° de ligne, N° de colonne) avec en référence B1 la ligne à afficher, ce qui te permet de visualiser la fiche sélectionnée
ex. Client N°2NomADS Concept AluAdresseXCP38000VilleArandonTel04 74 80 81 25Fax04 74 80 89 55
ensuite la macro
Sub impression()
' imprime les nouvelle fiche suivant le compteur
For i = Range("e1").Value To Range("g1").Value
Range("b1").Select
ActiveCell.FormulaR1C1 = i
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Range("a1").Select
Next i
End Sub
qui te permet d'imprimer les fiche du n° x au n° y
à toi de l'adapter à ta fiche

 

[Hakimdelyon]

Re : Listing fournisseur

Merci beaucoup Rafaël,

Je vais faire comme tu m'as consillé avec la fonction INDEX.

A+
Hakim