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

Messages postés
71
Date d'inscription
vendredi 25 août 2017
Statut
Membre
Dernière intervention
6 août 2019
- - Dernière réponse : Fat17
Messages postés
71
Date d'inscription
vendredi 25 août 2017
Statut
Membre
Dernière intervention
6 août 2019
- 6 août 2019 à 17:34
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
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
6155
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2019
382
1
Merci
Bonjour,

comme ceci:

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


Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 58235 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_Le Pivert
Messages postés
71
Date d'inscription
vendredi 25 août 2017
Statut
Membre
Dernière intervention
6 août 2019
0
Merci
Merci pour la solution, c'est parfait !
Commenter la réponse de Fat17