Excel2007 macro insertion lignes
Raymond PENTIER
Messages postés
58211
Date d'inscription
Statut
Contributeur
Dernière intervention
-
Raymond PENTIER Messages postés 58211 Date d'inscription Statut Contributeur Dernière intervention -
Raymond PENTIER Messages postés 58211 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour aux amateurs de VBA.
Comme vous le savez, je suis nul en macros !
Or je voudrais pouvoir, étant dans une ligne quelconque, lancer une macro qui m'insère 3 lignes vides après la ligne courante.
Et pour éviter de recommencer cette manoeuvre de nombreuses fois, peut-on écrire une macro qui répète cette action depuis une ligne sélectionnée et tant qu'il y a des lignes renseignées ?
https://www.cjoint.com/?kidBJn8265
Merci d'avance de vos diverses contributions.
Cordialement.
--
C'est bien, la retraite ! Surtout aux Antilles ... :-)
☻ Raymond ♂
Comme vous le savez, je suis nul en macros !
Or je voudrais pouvoir, étant dans une ligne quelconque, lancer une macro qui m'insère 3 lignes vides après la ligne courante.
Et pour éviter de recommencer cette manoeuvre de nombreuses fois, peut-on écrire une macro qui répète cette action depuis une ligne sélectionnée et tant qu'il y a des lignes renseignées ?
https://www.cjoint.com/?kidBJn8265
Merci d'avance de vos diverses contributions.
Cordialement.
--
C'est bien, la retraite ! Surtout aux Antilles ... :-)
☻ Raymond ♂
Configuration: Windows Vista Internet Explorer 7.0 MS Office 2007
2 réponses
-
Bonjour Raymond
fait beau aux Antilles ?
voilà 3 macros que pourrais peut être adapter (ou qq'un d'autre) et qu'on avait faite pour moiSub Ajoutligne_complet() On Error Resume Next 'à cause de la dernière ligne de la colonne A Dim c As Range For Each c In Selection If UCase(c) <> "" Then 'il faut qq chose dans la cellule sinon neutraliser le IF c.Offset(1, 0).EntireRow.Insert End If Next Range("A" & Selection.Row & ":A" & Selection.Row + 1).Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .ShrinkToFit = False .MergeCells = False End With Selection.Merge Range("B" & Selection.Row & ":B" & Selection.Row + 1).Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .ShrinkToFit = False .MergeCells = False End With Selection.Merge Range("C" & Selection.Row & ":C" & Selection.Row + 1).Select With Selection .HorizontalAlignment = xlLeft .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .ShrinkToFit = False .MergeCells = False End With Selection.Merge Range("F" & Selection.Row & ":F" & Selection.Row + 1).Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .ShrinkToFit = False .MergeCells = False End With Selection.Merge Range("D" & Selection.Row).Select With Selection .RowHeight = 15 End With Range("D" & Selection.Row + 1).Select With Selection .RowHeight = 15 End With End Sub Sub Ajoutligne_inf() Dim Ligne Ligne = ActiveCell.Row + 1 Range("A" & Ligne).EntireRow.Insert Range("A" & Ligne - 1 & ":A" & Ligne).Merge Range("B" & Ligne - 1 & ":B" & Ligne).Merge Range("C" & Ligne - 1 & ":C" & Ligne).Merge Range("F" & Ligne - 1 & ":F" & Ligne).Merge Range("D" & Selection.Row).Select With Selection .Value = "SRO" .RowHeight = 15 End With Range("D" & Selection.Row + 1).Select With Selection .Value = "NDB" .RowHeight = 15 End With End Sub Sub Ajoutligne_sup() Dim Ligne Ligne = ActiveCell.Row + 1 Range("A" & Ligne).EntireRow.Insert Range("A" & Ligne - 1 & ":A" & Ligne).Merge Range("B" & Ligne - 1 & ":B" & Ligne).Merge Range("C" & Ligne - 1 & ":C" & Ligne).Merge Range("F" & Ligne - 1 & ":F" & Ligne).Merge Range("D" & Selection.Row).Select With Selection .Value = "SRO" .RowHeight = 15 End With Range("D" & Selection.Row + 1).Select With Selection .Value = "NDB" .RowHeight = 15 End With End Sub -
Salut !
Oui, il fait beau (aujourd'hui) aux Antilles ; mais j'ai vu qu'il ne fait pas trop mauvais en Métropole (tout au moins dans certaines régions) ...
Je te remercie beaucoup de ta réponse rapide et, je l'espère bien, efficace : Je m'en vais tester tout ça dans la journée. Il faudra vraiment que j'essaie de m'y mettre pour de bon, à VBA !
Encore merci, et à bientôt.
