Ajout d'une ligne dans l'ordre croissant Le sujet est résolu

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

Message par abricotvba » 3 mars 2016, 16:44

Bonjour, j'ai réussi a créer un code permettant d'ajouter une ligne dans un tableau a partir d'un formulaire situé sur une autre page, cependant je ne connais que le code pour l'ajouter sur la première ligne vide. je souhaiterais qu'elle s'ajoute dans l'ordre, la première colonne étant un nombre.
Voici mon code, quelqu'un sait-il ce que je peux changer ?


Sub Enregistrement()
'
' Enregistrement Macro
'

'

Dim lignevide As Integer
Dim CodeUtilisateur
Dim NomUtilisateur



CodeUtilisateur = Range("B1").Value
NomUtilisateur = Range("B3").Value


Sheets("Utilisateur").Select
lignevide = Columns("A").Find("", Range("A1"), xlValues).Row
Cells(lignevide, "A") = CodeUtilisateur
Cells(lignevide, "B") = NomUtilisateur

Sheets("Gestion Utilisateur").Select
Range("B1", "B3").ClearContents

Dim reponse As String
reponse = MsgBox("Utilisateur ajouté !", vbOKOnly, "Confirmation")
End Sub
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'343
Appréciations reçues : 663
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 4 mars 2016, 08:25

Bonjour,
Essaie ceci :
Public Sub Enregistrement()
Dim lignevide As Long
Dim CodeUtilisateur As Long
Dim NomUtilisateur As String

    CodeUtilisateur = Range("B1").Value
    NomUtilisateur = Range("B3").Value

    With Worksheets("Utilisateur")
        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
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
a
abricotvba
Jeune membre
Jeune membre
Messages : 25
Inscrit le : 9 février 2016
Version d'Excel : 2013

Message par abricotvba » 5 mars 2016, 18:34

Ça fonctionne, merci beaucoup :)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message