Ajout de ligne/modification tableau

Bonjour,

J'ai un code me permettant, à partir d'un formulaire d'ajouter une ligne à un tableau, cependant, le rajout de ligne entraîne un décalage et je ne sais pas comment faire pour que la présentation que j'ai choisie suive.

En gros la dernière ligne sort toujours du tableau et je ne sais pas comment faire pour que le cadre s'agrandisse.

J'espère avoir été assez clair.

Voici mon code :

Sub Enregistrement()

Dim lignevide As Long

Dim CodeUtilisateur As Long

Dim NomUtilisateur As String

CodeUtilisateur = Range("B1").Value

NomUtilisateur = Range("B3").Value

With Worksheets("Utilisateurs")

lignevide = .Cells(Rows.Count, 1).End(xlUp).Row + 1

.Cells(lignevide, "A").Value = CodeUtilisateur

.Cells(lignevide, "B").Value = NomUtilisateur

.Cells(1, "A").Sort _

key1:=.Cells(2, "A"), _

order1:=xlAscending, _

Header:=xlGuess

End With

Worksheets("Gestion Utilisateur").Range("B1", "B3").ClearContents

MsgBox "Utilisateur ajouté !", vbOKOnly + vbInformation, "Confirmation"

End Sub

Salut AbricotVba,

laisse une ligne vide en bas de tableau ce qui te permet d'insérer une nouvelle à chaque entrée et ainsi de repousser ton cadre vers le bas!

A+

37inserer.xlsm (19.83 Ko)

Merci beaucoup !

Rechercher des sujets similaires à "ajout ligne modification tableau"