Bonjour,
J'ai souhaité créé un bouton pour insérer des lignes dans une feuille Excel à un endroit précis. J'ai réussi à le faire avec la macro suivante trouvé sur un site (je me contente de copier, je n'ai pas de connaissances en VBA) :
Sub AjouterLignes()
Dim CurrentSheet As Object
For Each CurrentSheet In ActiveWindow.SelectedSheets
CurrentSheet.Range("a65:a121").EntireRow.Insert
Next CurrentSheet
End Sub
Cela fonctionne mais je souhaiterai qu'elle ne reprenne pas la mise en forme de la ligne 64 et que les lignes ajoutées est une hauteur déterminée (20 par exemple).
Pouvez m'indiquer les modifications à faire ?
Merci d'avance pour votre aide.
Franck
J'ai souhaité créé un bouton pour insérer des lignes dans une feuille Excel à un endroit précis. J'ai réussi à le faire avec la macro suivante trouvé sur un site (je me contente de copier, je n'ai pas de connaissances en VBA) :
Sub AjouterLignes()
Dim CurrentSheet As Object
For Each CurrentSheet In ActiveWindow.SelectedSheets
CurrentSheet.Range("a65:a121").EntireRow.Insert
Next CurrentSheet
End Sub
Cela fonctionne mais je souhaiterai qu'elle ne reprenne pas la mise en forme de la ligne 64 et que les lignes ajoutées est une hauteur déterminée (20 par exemple).
Pouvez m'indiquer les modifications à faire ?
Merci d'avance pour votre aide.
Franck