ajout de ligne ecxel macro

Question

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!!

licool · Answer

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

licool · Answer

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.

Ajout de ligne ecxel macro

2 réponses

Discussions similaires

Newsletters