Insertion de mutiple lignes

Bonjour,

Je suis présentement entrain de commencer d'apprendre en Vba et j'ai un problème suivant :

J'ai une feuille de planification de projet, avec les projets et employés d'un côté. De l'autre côté j'ai les semaines. J'aimerais savoir quelle solution serait la plus facile à faire?

1-Je désirerais créer une macro me permettant d'ajuster le nombre de personne en fonction du nombre inscrit dans la cellule (J222 ou plage (EMP)). Par exemple, si je marque 3 dans (j222), une ligne est additionner en dessous dans chaque projet entre le dernier employé et le total. si je descend à 2 le nombre dans j222, la ligne est supprimé.

2-Si cela est trop complexe, je rajouterais simplement un bouton + [pour ajouter 1 personne] et un bouton - pour [enlever 1 personne], donc ajouter et enlever des ligne entre chaque personne 2 et Total.

Je ne sais pas vraiment par ou commencer pour coder, est-ce que vous auriez des idées? je vous joint le document!

merci!

Bonjour,

Peux tu mettre ton fichier au format excel 2003. Impossible de lire sur mon poste

Bonjour,

voici le fichier en excel 2003, par contre je ne sais pas si les macros en place vont fonctionner, mais c'est plutôt pour le visuel.

Ou bien une autre solution serait d'ajouter une ligne en haut de chaque cellule nommé [Total] et un autre bouton pour supprimer une ligne en haut de chaque cellule nommé [Total]. Est-ce que cela est possible

Merci!
Alex

Personnellement, je trouve que cette méthode est risquée.
Que se passe-t-il si je met 3, que je commence la saisie et je met 2 par erreur.
Mes données seront perdues :aie::cry:

A mon avis, ton tableau est une restitution de base de données.
En créant une base des projets, une base du personnel, une base de planning, il restera a faire un code qui montera ce tableau dynamiquement.

a toi de nous dire

Oui c'est vrai je n'avais pas penser à cela.

Sinon est-ce que le moyen de 2 bouton : [1 qui ajoute 1 ligne au dessus de chaque Total], [1 qui supprimer 1 ligne au dessus de chaque Total] pourrait être facilement fait. Je crois que cette méthode pourrait convenir pour le type de fiche que je voulais faire! :ccool:


Je vais faire attention pour mettre le bouton supprimer hors de porté des enfants ! :mouarf:

Merci!

Merci!

J'ai trouvé la solution suivante pour ajouter une ligne au dessus d'une cellule portant le nom "total"

Code:

---

1 2 3 4 5 6 7 8

Sub AJOUTEREMPLOYE() LR = Range("B300").End(xlUp).Row For X = LR To 1 Step -1 If Cells(X, "B").Value = "TOTAL" Then Cells(X, "B").EntireRow.Insert End If Next X End Sub

---

Pour ce qui est de supprimer, j'ai un code semblable, mais celui-ci :

Code:

---

1 2 3 4 5 6 7 8

Sub Deleter() LR = Range("B300").End(xlUp).Row For X = LR To 1 Step -1 If Cells(X, "B").Value = "TOTAL" Then Cells(X, "B").EntireRow.Delete End If Next X End Sub

---

supprime la ligne total et nom la ligne au dessus. j'ai esayer de sélectionner la ligne au dessus de la ligne total, mais sans succès. Est-ce que vous auriez une idée pour sélectionner : Ligne[Total -1]

merci
Alex!

Code:

---

1 2 3

For X = LR To 2 Step -1 If Cells(X, "B").Value = "TOTAL" Then Rows(X - 1).Delete Next X

---

Merci!

Cela fonctionne!