Insertion ligne

Bonjour

Je place ci-dessous la formule VBA que j'ai renseigné afin d'insérer une ligne dans un tableau base de données. La formule marche très bien, mais elle prend en compte la hauteur de ligne supérieure (80) et non la ligne en dessous (25). Quelqu'un pourrait il me donner une astuce pour que la hauteur de la ligne insérée soit toujours égale à la hauteur de la ligne du dessous.

Merci beaucoup et par avance!!

Mazarin

Option Explicit

Sub Nouvelleligne()

End Sub

Bonjour mazarin,

Ton code modifié et optimisé :

Sub Nouvelleligne()
Rows("6:6").Insert Shift:=xlDown
Rows(6).RowHeight = Rows(7).RowHeight
Range("A7:AK7").AutoFill Destination:=Range("A6:AK7"), Type:=xlFillDefault
Range("A6,C6:H6,J6:AD6").ClearContents
End Sub

Les ".Select" sont en général inutiles.

J'ai également rassemblé en une formule la suppression du contenu des cellules A6, C6:H6 et J6:AD6.

C'est tout simplement génial et en plus ça marche !!

Ton code est en effet plus simple, j'apprends donc en marchant.

Merci beaucoup de ta réponse rapide, elle me dépanne autant qu'elle m'éclaire.

Bonne fin de journée

Mazarin.