insertion de ligne excel

[sandrine]

j'ai une valeur égale à 3 dans ma cellule, et je souhaite que vba insere autant de ligne en dessous que le nombre de cette valeur (donc dans ce cas 3 lignes) .merci de vos réponses

 

[FabriceLeManuzien]

Bonsoir,

Une solution :

Sub InsertLignes()
Dim DébutLigne As Integer
Dim NbLignes As Integer

DébutLigne = 4 'pour insérer à partir de la ligne 4 par exemple
NbLignes = ActiveSheet.Range('A1').Value ' si le nombre de ligne est en 'A1',sinon modifier
If NbLignes > 0 Then
Rows(DébutLigne & ':' & (DébutLigne + NbLignes - 1)).Select
Selection.Insert Shift:=xlDown
End If
End Sub

 

[Charly2]

Bonsoir Sandrine, Fabrice, le forum,

Sandrine, je te joins un petit exemple dont tu pourras t'inspirer pour créer une macro... Si ce n'est pas ta demande, précise un peu ce que tu souhaites

En effet, si tu souhaites le faire manuellement, rien de plus simple, mais il faut le dire :whistle:

Amicalement
Charly

 

[Charly2]

Bonjour à tous,

Oups ! Je m'aperçois que j'avais omis le fichier. Je devais être fatigué hier soir

Je corrige ça tout de suite...

Amicalement
Charly [file name=Sandrine.zip size=6999]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Sandrine.zip[/file]