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