Ajout de ligne ecxel macro

Fermé
boubajon Messages postés 3 Date d'inscription lundi 21 avril 2008 Statut Membre Dernière intervention 22 avril 2008 - 21 avril 2008 à 14:21
licool Messages postés 130 Date d'inscription lundi 23 janvier 2006 Statut Membre Dernière intervention 6 juillet 2009 - 22 avril 2008 à 17:54
Bonjour, je souhaiterai connaitre les lignes de codes me permetant d'ajouter des ligne en fonction d'une saisie:

B1=5

ajout de 5 lignes C D E F G

ex:

0.......B1=0..................................0 B1=3
1
2
3
..................................................1
..................................................2
..................................................3

merci d'avance!!

2 réponses

licool Messages postés 130 Date d'inscription lundi 23 janvier 2006 Statut Membre Dernière intervention 6 juillet 2009 80
21 avril 2008 à 17:33
Salut,

essayes ça :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Integer
cell = Range("B1").Value

If Not Application.Intersect(Target, Range("B1")) Is Nothing Then

For compteur = 1 To cell
Rows("2:2").Insert Shift:=xlDown
ActiveCell.Offset(1, 0).Select
Next


End If
End Sub
0
boubajon Messages postés 3 Date d'inscription lundi 21 avril 2008 Statut Membre Dernière intervention 22 avril 2008
22 avril 2008 à 11:10
en faite ji sui arriver mai sest simpas

bn ses un peu plus compliquer ske jai fai mais sa marche

par hasard tu ne serai pa comment faire untruc du style

k=Range("Hi").Value
K=Range("H(1+val).value

en faite jaimerai metttre une variable a la cellule choisit mai jvoi po comment

merci davance
0
licool Messages postés 130 Date d'inscription lundi 23 janvier 2006 Statut Membre Dernière intervention 6 juillet 2009 80
22 avril 2008 à 17:54
j'ai pas bien compris ce que tu voulais faire, mais vu que t as créé un topic pour cette autre question (http://www.commentcamarche.net/forum/affich 6060143 cellule variable macro) ,merci de mettre celui ci résolu.
0