Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro insertion de lignes avec hauteur déterminée

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
F

FranckS

XLDnaute Nouveau
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
 
Trier par date Trier par votes
Re : Macro insertion de lignes avec hauteur déterminée

Bonsoir

Essaye :
Code: 
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : Macro insertion de lignes avec hauteur déterminée

Bonjour

Autre essai :
Code: 
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Question Question
XL 2016 Simplifier une macro Ajuster hauteur de lignes
Réponses
2
Affichages
961
cardi
C
F
  • Question Question
Macro insertion image : déterminer un répertoire/chemin fixe
Réponses
1
Affichages
1 K
Dranreb
C
  • Question Question
VBA reproduire une macro sur plusieurs lignes avec insertion de lignes
Réponses
13
Affichages
4 K
Paf
B
  • Question Question
Extension macro
Réponses
10
Affichages
3 K
Benwill153
B
S
  • Question Question
insertion lignes+ protection feuille
Réponses
6
Affichages
1 K
stephane.quinquis
S
M
  • Question Question
Insertion de plusieurs lignes si la valeur est comprise entre ... et ...
Réponses
11
Affichages
2 K
JNP
M
[REF] Wiki 3 de MichelXld (Piloter d'autres applications depuis Excel)
Réponses
0
Affichages
80 K
MichelXld
M
M
[REF] Wiki Page 8 de MichelXld
Réponses
0
Affichages
39 K
MichelXld
M
M
[REF] Wiki Page 7 de MichelXld
Réponses
0
Affichages
51 K
MichelXld
M
M
[REF] Wiki 1 de MichelXld (Généralités Excel)
Réponses
6
Affichages
60 K
Le_Phénomène
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
47 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…