Ajout de ligne ecxel macro

boubajon Messages postés 3 Statut Membre -  
licool Messages postés 134 Statut Membre -
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 134 Statut Membre 73
 
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 Statut Membre
 
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 134 Statut Membre 73
 
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