Macro gestion de onglet dans excel

[invite7eac5b19]

Bonjour tout le monde,
grâce à un ami j'ai réussi à mettre en place une macro qui permet de sélectionné automatiquement certaines colonnes de mon classeur pour créer une nouvelle feuille excel et aussi de réagencé mon tableau.
avec cette sélection pour mon nouveau tableau:
Date||Code||Contrat||Client||M ission||Tech.||Catégorie||Réf. ||Description||Qte||PU HT||Remise||PU Rem.

Il y a aussi un réagencement à faire.Pour chaque ligne il ya plusieurs articles possibles jusqu'à 12.
La macro permet de sélectionné les colonnes concernant les articles et créer de nouvelles lignes avec
Date||Code||Contrat||Client||M ission||Tech.||Catégorie correspondant.AU final je voudrais un tableau du type

ligne1:Article1ate||Code||Cont rat||Client||Mission||Tech.||C atégorie||Réf.||Description||Q te||PU HT||Remise||PU Rem.
ligne2:Article2ate||Code||Cont rat||Client||Mission||Tech.||C atégorie||Réf.||Description||Q te||PU HT||Remise||PU Rem.
.............................. ..............et ainsi de suite.
Voici un lien vers le fichier générant ma transformation.
#######
En appuyant sur transform on obtient le résultat recherché.

Mais maintenant mon patron voudrait une dernière chose.Il faudrait que chaque entreprise ai un nouvel onglet avec les lignes transformées correspondantes à l'entreprise.
Je joint un lien vers fichier excel en exemple pour les onglets que je souhaite généré avec mon doc.Je sais pas si j'arrive bien à expliqué.
#######
Je voudrais conservé mon fichier "data"(contenant les données à mettre dans les onglets) dans mon excel.
Merci pour votre aide.

J'ai supprimé les liens vers tes fichiers, en effet dans ce genre de cas nous préférons avoir un certain contrôle du contenu et nous souhaitons que tu mettes tes fichiers en pièces jointes et non sur un serveur extérieur.

Pour la modération,

yoda1234.
-----

[invite7eac5b19]

Mon un lien vers le fichier générant ma transformation a été censuré donc je le joint ici au format zip.

En appuyant sur transform on obtient le résultat recherché.

[invite7eac5b19]

Mais maintenant mon patron voudrait une dernière chose.Il faudrait que chaque entreprise ai un nouvel onglet avec les lignes transformées correspondantes à l'entreprise.
Je joint à ce message un fichier d'exemple du résultat souhaités.
Je voudrais conservé mon fichier "data"(contenant les données à mettre dans les onglets) dans mon excel.
Merci pour votre aide.

[yoda1234]

Mon un lien vers le fichier générant ma transformation a été censuré donc je le joint ici au format zip.

Bonjour,

ce n'est pas une question de censure, c'est une question de contrôle!
Tu hébergeais tes fichiers sur un site extérieur et donc nous n'avons aucun contrôle sur leurs contenus.
Et j'ajouterais: nous devions faire un travail pour lequel tu es rénuméré?

[A voir en vidéo sur Futura]

[invite7eac5b19]

Je me suis mal exprimé.Je comprends tout à fait ta réaction de modérateur sur le contrôle de contenu du site.Quand j'ai utilisé le terme censure ce n'était pas une critique,c'est juste que j'ai mal choisi mes termes.
En ce qui concerne la rémunération je suis stagiaire étudiant non rémunéré.Mon stage est en fait un stage de devellopeur Php.
Cette tâche supplémentaire m'a été assigné alors que je ne maîtrisé pas du tout le VBA.Pour mon patron un devellopeur doit pouvoir tout maîtrisé.
C'est pourquoi je cherche de l'aide sur ce forum pour m'aider à réaliser cette tâche pour que je puisse être réassigné à de la programmation php.
Merci pour votre aide et désolé si je me suis mal exprimé.Je ne voulais blessé personne.

[invite7eac5b19]

J'ai réussi à mettre cette macro en place:



Sub Onglet()

Dim NewSheet As Worksheet
Dim SName As String
Dim Boucle As Integer
Dim DerniereValeur As Long
On Local Error Resume Next 'si erreur a la prochaine ligne, l'execution du code continu et ne renvoi que le message specifié dans le if
DerniereValeur = Worksheets("Feuil3").Range("D").Find("*", [D1], , , xlByRows, xlPrevious).Row
If Err <> 0 Then 'si erreur different de 0 c'est que la fonction find n'a rien trouvé
MsgBox "aucun nom trouvé !", vbExclamation
Err.Clear
End
End If
For Boucle = 1 To DerniereValeur
SName = Worksheets("Feuil3").Range("D" & Boucle).Text
If SName <> vbNullString Then
Set NewSheet = Worksheets.Add(After:=Workshee ts(Worksheets.Count))
NewSheet.Name = SName
End If
Next
Set NewSheet = Nothing

End Sub

Par contre le problème de cette macro c'est qu'elle me crée un onglet vide dès qu'elle retrouve une entreprsie deux fois.Pourriez vous m'aidez à la corrigé svp?

[yoda1234]

Je me suis mal exprimé.Je comprends tout à fait ta réaction de modérateur sur le contrôle de contenu du site.Quand j'ai utilisé le terme censure ce n'était pas une critique,c'est juste que j'ai mal choisi mes termes.
En ce qui concerne la rémunération je suis stagiaire étudiant non rémunéré.Mon stage est en fait un stage de devellopeur Php.
Cette tâche supplémentaire m'a été assigné alors que je ne maîtrisé pas du tout le VBA.Pour mon patron un devellopeur doit pouvoir tout maîtrisé.
C'est pourquoi je cherche de l'aide sur ce forum pour m'aider à réaliser cette tâche pour que je puisse être réassigné à de la programmation php.
Merci pour votre aide et désolé si je me suis mal exprimé.Je ne voulais blessé personne.

Bonjour,

ok, expliqué de cette façon, je comprend mieux, j'ai donc validé tes pièces jointes que les autres forumeurs puissent t'aider.

[invite7eac5b19]

Bonjour,
Je voudrais retiré les pièces jointes que j'ai ajouté et les remplacés pat d'autre.Comment faire pour éditer son message je n'ai pas l'option éditer.

J'ai remis tes pièces jointes en attente.
JPL, modérateur

[gienas]

Bonjour jayden et tout le groupe

... Je voudrais retiré les pièces jointes que j'ai ajouté et les remplacés par d'autres ...

Tu peux poster une nouvelle réponse, avec tes nouvelles PJ, avec une explication. Un modérateur en charge de ce forum, pourra faire la permutation, puis supprimer la réponse devenue inutile.

Ce sera quelqu'un d'autre que moi, car je n'ai pas ce pouvoir, ici.

[inviteead871d5]

Bonjour,
Je voudrais retiré les pièces jointes que j'ai ajouté et les remplacés pat d'autre.Comment faire pour éditer son message je n'ai pas l'option éditer.

Bonne décision.

[JPL]

J'ai supprimé les pièces jointes initiales. En fait tu ne peux pas éditer ton message. Il faut que tu en crée un autre et je pourrai mettre un renvoi dans l'ancien vers le nouveau si tu le souhaites.