Creation Macro

[magnum]

Je possede un tableau composé de plusieurs colonnes
(Cf fichier joint - Onglet ALVXXL01).
Je souhaiterai que la macro puisse extraire les données et créer un onglet par fournisseur et le nom de l'onglet est celui du Fournisseur de maniere à avoir un tableau identique à celui de l'onglet "Alcon"
Merci de votre aide

Pour info le fichier original fait plus de 1500 lignes

 

[wilfried_42]

Re : Creation Macro

salut à toi

voici un debut de code si j'ai bien compris ce que tu demandes
attention, tu as des vides dans tes colonnes

 

[pierrejean]

Re : Creation Macro

bonjour magnum

salur Wilfried (pas vu ton fichier , j'y jette un oeil)

ma version avec son resultat

même remarque que wilfried

 

[Bebere]

Re : Creation Macro

bonjour Magnum
une 1ère réponse,j'ai complété les vides de la 1ère colonne
à bientôt

 

[magnum]

Re : Creation Macro

PierreJean

Quand j'utilise ta macro par le chemin executer --- Macra etc , j'ai une fenetre de debogage qui apparait.
Si je clic sur fin , le resultat obtenu est celui que j'attends.

Pour les blancs , c'est normal car certaine fois on creer des commandes sans fournisseurs direct mais à des autres fournisseurs qui sont des centre d'aide par le travail et ceux-ci ne sont pas referencé dans notre systeme.

Je vous remercie de votre rapidité de réponse

Regis

 

[magnum]

Re : Creation Macro

J'ai trouver la raison de ce bog, c'est qu'en réalité la taille d'un nom dans un onglet est limité à 31 caracteres (ou 32) et que je possède dans la colonne "nom" certain items à plus de 31

 

[wilfried_42]

Re : Creation Macro

re:

pour les fournisseurs qui ne sont pas référencés, mets le N° de compte générique 400000. tu combleras tes blancs.

 

[pierrejean]

Re : Creation Macro

bonsoir

suis un peu tardif mais etait occupé

cette version ne prend (si necessaire ) que les 31 premiers caracteres du nom de fournisseur

 

[Bebere]

Re : Creation Macro

bonsoir le fil
apparemment mon code inaperçu,ce sera pour une prochaine fois
Pierre-Jean
je n'avais qu'une feuille comme résultat avec la ligne d'entêtes
j'ai changé ton code comme ceçi

With Sheets("ALVXXL01")
For n = 2 To .Range("A65536").End(xlUp).Row
On Error Resume Next
If .Range("A" & n) <> "" Then
fourn.Add .Range("A" & n), CStr(.Range("A" & n))
End If
On Error GoTo 0
Next n
End With
à bientôt

 

[Bebere]

Re : Creation Macro

rebonsoir
j'ai remis les blancs dans colonne A
à bientôt

 

[magnum]

Re : Creation Macro

Bebere,

Ta derniere version est très bien , j'ai fait une petite modif car j'ai un decalage de colonne entre ta version et ce que je souhaite

Merci bien et merci à tous ceux qui ont mis la main à la pate