Ajustement hauteur ligne insérée avec macro [Résolu]

Signaler
Messages postés
72
Date d'inscription
vendredi 25 août 2017
Statut
Membre
Dernière intervention
31 octobre 2019
-
Messages postés
72
Date d'inscription
vendredi 25 août 2017
Statut
Membre
Dernière intervention
31 octobre 2019
-
Bonjour,
J'ai la macro ci dessous qui me permet de copier la dernière ligne remplie en colonne E et de la coller dans la première ligne vide en colonne I tout en effaçant le contenu de certaines cellules.
Elle fonctionne très bien avec un raccourci clavier "Ctrl+w"
Je voudrais juste que cette nouvelle ligne copiée ait une hauteur de 30 (ligne de titres et totaux) au lieu de 15 comme pour les autres actuellement (lignes de détails).
Comment écrire cette modification et où la placer ?
J'espère avoir été clair et merci d'avance pour votre collaboration.
Cordialement
Fat


Sub recop()
'dernière ligne remplie en colonne E
ligneC = Columns(5).Find("*", , , , xlByColumns, xlPrevious).Row
'première ligne vide en colonne I
Dim Ligne As Long
Ligne = Columns(9).Find("*", , , , xlByColumns, xlPrevious).Row + 1
'copier-coller
Range("A" & ligneC & ":Z" & ligneC).Select
Selection.Copy
Range("A" & Ligne).Select
ActiveSheet.Paste
'Effacements
Range("F" & Ligne).Select
ActiveCell.FormulaR1C1 = ""
Range("G" & Ligne).Select
ActiveCell.FormulaR1C1 = ""
Range("J" & Ligne).Select
ActiveCell.FormulaR1C1 = ""
Range("P" & Ligne).Select
ActiveCell.FormulaR1C1 = ""
Range("C" & Ligne).Select
ActiveCell.FormulaR1C1 = ""
End Sub




Configuration: Windows / Chrome 75.0.3770.142

2 réponses

Messages postés
6830
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
8 juillet 2020
532
Bonjour,

comme ceci:

Range("A" & Ligne).Select
Rows(Ligne & ":" & Ligne).RowHeight = 30


Messages postés
72
Date d'inscription
vendredi 25 août 2017
Statut
Membre
Dernière intervention
31 octobre 2019

Merci pour la solution, c'est parfait !