Ajouter ligne fin de tableau VBA

Bonjour à tous,

Je suis apprentie dans une entreprise et je souhaite créer un outil de gestion qui soit facile pour les chefs d'équipe.

Mais je suis novice en macros et après de loooooongue et looooongue recherche sur internet, youtube, etc... je n'arrive toujours pas au résultat escompté.

Ce que je souhaiterais faire, c'est qu'en cliquant sur un bouton, une ligne s’insère automatiquement à la fin du tableau avec la même mise en forme mais aussi qu'elle soit numéroté (n° ligne du dessus +1).

Cependant lorsque que je créer ma macro la ligne et la mise en forme ne se fais que pour la colonne A et non de la colonne A à K.

J'ai joins le fichier.

J'espère avoir été assez claire, c'est ma première publications

Merci d'avance pour votre aide

Bonjour,

Il est ou le fichier ?

A+

Mon dieu une vraie débutante.

Toutes mes excuses, le voici !!

Bonjour,

Une proposition à étudier.

Les données ont été mises sous forme de tableau, et les formules revisitées en conséquence.

Cdlt.

Je te laisse en bonne main...

A+

Waouh !!!

Merci beaucoupppp

Re,

Bonjour Galopin01,

La débutante n'a pas de questions ?

Cdlt.

Jean-Eric a écrit :

Re,

Bonjour Galopin01,

La débutante n'a pas de questions ?

Cdlt.

Si toujours mais je ne voulais pas te saouler lol

Quel code mettre pour que le curseur se positionne sur la ligne qui a été créer ?

J'ai essayer :

Sub ajout_vae()

'

' ajout_vae Macro

'

'

Sheets("VAE").Select

Selection.End(xlDown).Select

Rows("88").Select

Selection.Insert Shift:=xlDown

Range("A88:K88").Select

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlInsideVertical)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlInsideHorizontal)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

Cells(1, 1) = Range("A7").SpecialCells(xlCellTypeLastCell).Row

Range("A88:A88").Select

Range("B88").Select

End Sub

Bonjour,

A partir de mon fichier :

Private Sub cmdInsertRow_Click()
Dim lr As ListRow
    With Me.ListObjects(1)
        Set lr = .ListRows.Add
        lr.Range.Cells(1).Select
    End With
End Sub

Cdlt.