Bonjour à tous,
Je suis newbie sur VBA, c'est mon premier post ici, et je tente depuis hier de dupliquer une ligne identifiée, mais à ne garder que la mise en forme, les formules et les validations.
"Transversal_" est le titre de mon tableau, en dessous du titre il y a une ligne de titre, et donc je copie la ligne encore en dessous, insere une ligne, fais un copie spécial et croise les doigts. Et après plusieurs tâtonnements, voici le mieux que j'ai pu trouver :
Sub Ajout_Ligne_Transversal()
Dim L1_transversal As Integer
L1_transversal = Cells.Find(What:="Transversal_", LookAt:=xlWhole, SearchFormat:=False).Offset(2, 0).Row
Rows(L1_transversal).Insert Shift:=xlUp
Rows(L1_transversal + 1).Copy
With Rows(L1_transversal)
.PasteSpecial Paste:=xlPasteFormats
.PasteSpecial Paste:=xlPasteFormulas
.PasteSpecial Paste:=xlPasteValidation
End With
Application.CutCopyMode = False
End Sub
Ca fonctionne presque comme je voudrais, sauf que ca copie également les valeurs, et je n'arrive pas à comprendre pourquoi....
Merci d'avance pour vos réponses