Macro insertion de lignes avec hauteur déterminée

[FranckS]

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

 

[Chris401]

Re : Macro insertion de lignes avec hauteur déterminée

Bonsoir

Essaye :

Sub AjouterLignes()
Dim CurrentSheet As Object
For Each CurrentSheet In ActiveWindow.SelectedSheets
With CurrentSheet.Range("a65:a121")
.EntireRow.Insert
.RowHeight = 20
End With
Next CurrentSheet
End Sub

Cordialement
Chris

 

[FranckS]

Re : Macro insertion de lignes avec hauteur déterminée

Bonjour Chris,
Merci pour ta réponse et ton aide.
J'ai encore un petit problème : les lignes s'ajoutent entre 65 et 121 mais le changement de hauteur s'effectue sur les lignes qui sont après la 121.
Il faudrait que ce soit les lignes ajoutées qui se redimensionne.
Encore merci et bonne journée.
Franck

 

[Chris401]

Re : Macro insertion de lignes avec hauteur déterminée

Bonjour

Autre essai :

Sub AjouterLignes()
Dim CurrentSheet As Object
For Each CurrentSheet In ActiveWindow.SelectedSheets
With CurrentSheet.Range("a65:a121")
.Select
.EntireRow.Insert
Selection.RowHeight = 20
End With
Next CurrentSheet
End Sub

Cordialement
Chris

 

[FranckS]

Re : Macro insertion de lignes avec hauteur déterminée + insertion image et PDF

Bonjour Chris,

Tout simplement parfait. C'est une petite macro mais c'est un gain de temps et de fiabilité incroyable pour nous.
Merci beaucoup.

J'aurai encore besoin d'aide pour 2 autres macros qui fonctionnent mais auxquelles je dois apporter des améliorations.
Il s'agit d'une macro pour insérer une image JPG et une macro pour insérer un document PDF.
Les 2 améliorations seraient :
1/ La macro ouvre ver un chemin fixe vers le serveur : //Serveur/Commun/
Ensuite la personne sélectionne l'image ou le PDF qu'elle souhaite intégrer.
2/ Une fois l'image ou le PDF sélectionner, il s'affiche à la ligne 64 (l'utilisateur se charge ensuite de repositionner ou de redimensionner si nécessaire lui-même)

Voici la macro pour insérer l'image :
Public Sub Inserer_image()
Dim ficimg As Variant
ficimg = Application.GetOpenFilename(".jpg,*.jpg", , "Choisissez l'image") ' choix nom du fichier
ActiveSheet.Pictures.Insert(ficimg).Select ' insertion
End Sub

Voici la macro pour insérer le PDF :
Sub Inserer_PDF()

Dim Obj As OLEObject
Dim Chemin As Variant
Dim L As Single, T As Single, W As Single, H As Single

'Choix du fichier PDF
Chemin = Application.GetOpenFilename("Fichiers PDF(*.pdf),*.pdf", Title:="Choisissez le fichier .PDF à insérer")
If Chemin = False Then Exit Sub
Application.ScreenUpdating = False

Set Obj = ActiveSheet.OLEObjects.Add(Filename:=Chemin, Link:=True, Displayasicon:=False)

End Sub

Milles mercis,
Franck

 

[Chris401]

Re : Macro insertion de lignes avec hauteur déterminée + insertion image et PDF

Re

Sur ce coup, je suis incapable de t'aider.
Je te conseille d'ouvrir un nouveau post pour cette nouvelle demande.

Cordialement
Chris

 

[FranckS]

Re : Macro insertion de lignes avec hauteur déterminée

OK, merci Chris et bonne journée.
Franck