MACRO EXCEL - Insert ligne

Bonjour,

Je vous expose mon problème qui parait simple mais je bloque dessus.

Sur la colonne A se trouve des boutons qui permet d'insérer une ligne par le bas.

Mon problème :
Si j'ajoute une ligne avec le premier bouton, les autres boutons sont décalés et insert une ligne au mauvais endroit.

Je vous laisse un lien avec mon fichier à télécharger.

Je remercie par avance de m'avoir lus et à toute personne qui voudrai m'apporter une aide.

Merci

http://www.partage-facile.com/1PU9T1...dvlp.xlsm.html

Bonjour à toi,

Je t'invite à lire ceci : http://www.developpez.net/forums/d84...s-discussions/
Et en plus tu héberge ton fichier sur un site bourré de pubs qui clignote en tout genre......
Personne ne va aller récupérer ton fichier !

Ensuite pour ton problème, lorsque tu insert une ligne elle vient toujours se placer au dessus de la ligne depuis laquelle tu fais l'insertion.
Donc l'idée est la suivante :

Code:

---

1 2	ActiveCell.Offset(1).EntireRow.Insert 'Je me place sur la ligne du dessous et j'insert une ligne ActiveCell.Offset(1).Select 'Je selectionne la cellule de ma nouvelle ligne

---

edit : pas vu ta réponse cerede


Bonjour,
non seulement il n'est pas recommandé de joindre un fichier dès le premier post (mieux vaut de bonnes explications) mais ton fichier est sur un site qui fait peur, alors non merci pour le télécharger

Je m'attendais pas à autant d'animosité en postant sur ce forum mais très bien, j'ai pris connaissance du lien plus au dessus et je m'en excuse d'avoir mis à disposition directement mon fichier. Je pensais que ça vous permettrai de mieux visualiser mon problème.

Je vous détail mon problème donc :

Imaginons que j'ai deux boutons.

Le 1er bouton me rajoute une ligne au-dessus de la rangé 8, donc :

Code:

---

1 2	Rows("8:8").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

---

Le 2nd bouton me rajoute une ligne au-dessus de la rangé 11, donc :

Code:

---

1 2	Rows("11:11").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

---

Mais, si grâce à mon 1er bouton je rajoute une ligne au-dessus de la rangé 8 ça va tout me décaler et donc, je ne souhaite pas que mon 2nd bouton me rajoute une ligne au-dessus de la rangé 11 mais, au-dessus de la rangé 12.

Visiblement tu n'as même pas regardé le code que j'ai mis......

Perso, peut-être à tort, je pensais à quelque chose comme ça, code des boutons

Code:

---

1 2 3 4 5 6 7 8 9

Dim decal As Long Private Sub CommandButton1_Click() Rows("8:8").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove decal = ActiveCell.Row End Sub   Private Sub CommandButton2_Click() Rows(decal + 4).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End Sub

---

@casefayere

J'ai essayé mais ça ne fonctionne pas.

@cerede2000

Désolé.
J'ai essayé ta méthode mais ce n'est pas ce que je recherche.
Le tienne consiste à rajouter une rangé lorsqu'on sélectionne une cellule.

L'idée serait de rajouter une rangé de manière automatique sans passer par la sélection.

Mais merci pour vos réponse, au pire je resterai sur la solution que Cerebe2000 m'a proposé ce n'est pas si mal au final.

Non mais j'ai fait activecell pour que ce soit simple.....
A toi de mettre la Range sur laquelle tu veux insérer.......................................

Citation:

---

J'ai essayé mais ça ne fonctionne pas.

---

ah bon, perso j'ai testé et ça fonctionne, à moins que tu oublies de dire quelque chose