Macros insertion de lignes sur plusieurs feuilles
Yarkis
Messages postés
1
Statut
Membre
-
Boubou -
Boubou -
Bonjour,
Voila , j'expose mon petit soucis . Je suis en stage et une de mes taches est d'automatiser un tableau récapitulant les charges de travail par agent et par projet .. Bref .
Voici une trame du fameux tableaux (vide) : https://www.cjoint.com/?CFziRUhKPh8
Je voudrais créer un bouton affecté d'une macro afin de pouvoir automatiser la création d'un nouveau projet (en gros une nouvelle ligne) dans la feuille 'Collecte' et qui se répercuterai automatiquement dans le tableau de la page 'Charge par projet' .
(Vous le verrez sur le fichier mais j'aimerai créer un bouton pour un projet qui se mettrait dans la partie "DAIP" du tableau et un bouton pour un projet "DSP")
Etant débutant dans tout ce qui est Macros ou VBA , je m'en remets à votre aide .
Cordialement,
Yarkis
(PS: Ne criez pas parce je suis sous Vista , c'est mon ordinateur de bureau , j'ai pas eu le choix :p )
Voila , j'expose mon petit soucis . Je suis en stage et une de mes taches est d'automatiser un tableau récapitulant les charges de travail par agent et par projet .. Bref .
Voici une trame du fameux tableaux (vide) : https://www.cjoint.com/?CFziRUhKPh8
Je voudrais créer un bouton affecté d'une macro afin de pouvoir automatiser la création d'un nouveau projet (en gros une nouvelle ligne) dans la feuille 'Collecte' et qui se répercuterai automatiquement dans le tableau de la page 'Charge par projet' .
(Vous le verrez sur le fichier mais j'aimerai créer un bouton pour un projet qui se mettrait dans la partie "DAIP" du tableau et un bouton pour un projet "DSP")
Etant débutant dans tout ce qui est Macros ou VBA , je m'en remets à votre aide .
Cordialement,
Yarkis
(PS: Ne criez pas parce je suis sous Vista , c'est mon ordinateur de bureau , j'ai pas eu le choix :p )
A voir également:
- Macros insertion de lignes sur plusieurs feuilles
- Comment faire un livret avec des feuilles a4 - Guide
- Touche insertion clavier - Guide
- Insertion sommaire word - Guide
- Insertion liste déroulante excel - Guide
- Partage de photos en ligne - Guide
1 réponse
Ce qui me dérange un peu, c'est la feuille collecte.
Disons, on entre les données et on a 5 nouvelle ligne dans collecte, on active le bouton, et les données des 5 lignes sont recopiés.
Ensuite, on ajoute encore 3 ligne dans collecte... si on appuie le bouton, le bouton va prendre les 8 ligne et donc doubler les 5 premières.
Comment savoir ce qui a été recopié déjà....
L'idéal serait d'avoir une feuille de saisie. on recopie la saisie dans collecte et dans DAIP et DSP, et on supprime ensuite les lignes dans la feuille de saisie.
Tu mets le bouton dans la feuille de saisie et ensuite pour chaque valeur tu la recopie ex
Worksheets("collecte").range("A3").value = Worksheets("listes").range("A2").value
Tu fais de même pour tout ce que tu veux recopier, le nom de la feuille entre guillemets, avec range et la coordonnée ou tu veux inscrire la valeur.
En plus, tu vas avoir des boucles. Tu dois trouver combien de ligne a recopier tu as, et à quel endroit tu es rendu dans la feuille collecte.
Dim Ligne_Saisie as integer
Dim Ligne_Collecte as integer
Ligne_Saisie = 2
Ligne_collecte = 2
do
Ligne_Collecte = Ligne_Collecte + 1
Loop While Worksheets("Collecte").Range("A" & Ligne_Collecte).Value <> ""
do
Worksheets("collecte").range("A" & Ligne_Collecte).value = Worksheets("listes").range("A" & Ligne_Saisie).value
Ligne_Saisie = Ligne_saisie + 1
Ligne_collecte = Ligne_Collecte +1
Loop While Worksheets("liste").Range("A" & Ligne_Saisie).Value <> ""
Worksheets("listes").row(2:Ligne_saisie).clearcontents
En résumé, tu créé un bouton sur la feuille de saisie (liste).
Tu défini deux variable pour savoir a quelle ligne on est rendu.
Tu assigne une valeur à ces deux variable.
On fait une boucle sur la feuille collecte pour trouver la premiere ligne ou il n'y a rien pour le site. C'est la ligne ou on est rendu pour transcrire.
On fait une boucle sur la feuille de saisie, la on copie la premiere case dans collecte. Tu dois t'inspirer de la ligne pour copier tout ce que tu veux dans n'importe quelle feuille.
On incrémente les variable pour changer de ligne tant sur la feuille de saisie que collecte.
Oh, et j'oublie, tu dois faire des variables et des boucles supplémentaire si tu veux trouver ou tu est rendu pour chaque feuille.
Voilà, c'est un peu ce qui t'attend.
Tu as beaucoup de matière à digérer. donc je te laisse expérimenter un peu.
Disons, on entre les données et on a 5 nouvelle ligne dans collecte, on active le bouton, et les données des 5 lignes sont recopiés.
Ensuite, on ajoute encore 3 ligne dans collecte... si on appuie le bouton, le bouton va prendre les 8 ligne et donc doubler les 5 premières.
Comment savoir ce qui a été recopié déjà....
L'idéal serait d'avoir une feuille de saisie. on recopie la saisie dans collecte et dans DAIP et DSP, et on supprime ensuite les lignes dans la feuille de saisie.
Tu mets le bouton dans la feuille de saisie et ensuite pour chaque valeur tu la recopie ex
Worksheets("collecte").range("A3").value = Worksheets("listes").range("A2").value
Tu fais de même pour tout ce que tu veux recopier, le nom de la feuille entre guillemets, avec range et la coordonnée ou tu veux inscrire la valeur.
En plus, tu vas avoir des boucles. Tu dois trouver combien de ligne a recopier tu as, et à quel endroit tu es rendu dans la feuille collecte.
Dim Ligne_Saisie as integer
Dim Ligne_Collecte as integer
Ligne_Saisie = 2
Ligne_collecte = 2
do
Ligne_Collecte = Ligne_Collecte + 1
Loop While Worksheets("Collecte").Range("A" & Ligne_Collecte).Value <> ""
do
Worksheets("collecte").range("A" & Ligne_Collecte).value = Worksheets("listes").range("A" & Ligne_Saisie).value
Ligne_Saisie = Ligne_saisie + 1
Ligne_collecte = Ligne_Collecte +1
Loop While Worksheets("liste").Range("A" & Ligne_Saisie).Value <> ""
Worksheets("listes").row(2:Ligne_saisie).clearcontents
En résumé, tu créé un bouton sur la feuille de saisie (liste).
Tu défini deux variable pour savoir a quelle ligne on est rendu.
Tu assigne une valeur à ces deux variable.
On fait une boucle sur la feuille collecte pour trouver la premiere ligne ou il n'y a rien pour le site. C'est la ligne ou on est rendu pour transcrire.
On fait une boucle sur la feuille de saisie, la on copie la premiere case dans collecte. Tu dois t'inspirer de la ligne pour copier tout ce que tu veux dans n'importe quelle feuille.
On incrémente les variable pour changer de ligne tant sur la feuille de saisie que collecte.
Oh, et j'oublie, tu dois faire des variables et des boucles supplémentaire si tu veux trouver ou tu est rendu pour chaque feuille.
Voilà, c'est un peu ce qui t'attend.
Tu as beaucoup de matière à digérer. donc je te laisse expérimenter un peu.
