Ajout de ligne ecxel macro
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!!
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!!
Configuration: Windows XP Firefox 2.0.0.14
2 réponses
-
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 -
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.
