ajout de ligne/modification tableau Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
a
abricotvba
Jeune membre
Jeune membre
Messages : 25
Inscrit le : 9 février 2016
Version d'Excel : 2013

Message par abricotvba » 17 mars 2016, 16:56

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
Avatar du membre
curulis57
Passionné d'Excel
Passionné d'Excel
Messages : 3'747
Appréciations reçues : 226
Inscrit le : 4 janvier 2016
Version d'Excel : 2016 FR / 2019 FR

Message par curulis57 » 17 mars 2016, 23:36

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+
Insérer.xlsm
(19.83 Kio) Téléchargé 37 fois
a
abricotvba
Jeune membre
Jeune membre
Messages : 25
Inscrit le : 9 février 2016
Version d'Excel : 2013

Message par abricotvba » 20 mars 2016, 15:41

Merci beaucoup !
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message