Enregistrer + tri dans une listbox

Signaler
Messages postés
1
Date d'inscription
mercredi 9 juillet 2008
Statut
Membre
Dernière intervention
9 juillet 2008
-
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
-
Sub MAJContacts(secteurContact As String, unitéContact As String)
    Dim MaCel As Range
    Dim i As Integer
    'La zone de texte nom doit être renseignée
    If Contacts.TextBox1_secteur = "" Then
        MsgBox "Contact Invalide, le l'unité doit être renseigné", vbInformation, "Contact"
        Exit Sub
    End If
    Set MaCel = Range("[programme.xls]Contacts!A1")
    If Contacts.CommandButton1.Caption = "OK" Then
        'Si la valeur du bouton est "OK", c'est un nouveau contact
        i = 1
        Do While MaCel.Offset(i) <> ""
            If secteurContact & unitéContact < MaCel.Offset(i) & MaCel.Offset(i, 1) Then
                'Insertion d'une ligne dans le fichier Contacts pour avoir la liste en ordre alphabetique
                Worksheets("Contacts").Rows(i + 1).Insert Shift:=xlDown
                Exit Do
            End If
            i = i + 1
        Loop
    Else
        'MAJ contact
        'i récupère la ligne du fichier à partir de l'index de la listbox des contacts
        i = FichAdresse.ListBoxContacts.ListIndex + 1
    End If
    With Contacts
        MaCel.Offset(i) = .TextBox1_secteur
        MaCel.Offset(i, 1) = .TextBox2_unité
        MaCel.Offset(i, 2) = .TextBox3_machine
        MaCel.Offset(i, 3) = .TextBox4_périodicité
        MaCel.Offset(i, 4) = .TextBox5_shémas
        MaCel.Offset(i, 5) = .TextBox6_logigramme
        MaCel.Offset(i, 6) = .TextBox7_tag
        MaCel.Offset(i, 7) = .TextBox8_position
        MaCel.Offset(i, 8) = .TextBox9_effet
        MaCel.Offset(i, 9) = .TextBox10_eips
        MaCel.Offset(i, 10) = .TextBox11_ordre1
        MaCel.Offset(i, 11) = .TextBox12_action1
        MaCel.Offset(i, 12) = .TextBox13_ordre2
        MaCel.Offset(i, 13) = .TextBox14_action2
        MaCel.Offset(i, 14) = .TextBox15_ordre3
        MaCel.Offset(i, 15) = .TextBox16_action3
        MaCel.Offset(i, 16) = .TextBox17_ordre4
        MaCel.Offset(i, 17) = .TextBox18_action4
        MaCel.Offset(i, 18) = .TextBox19_pcf
        MaCel.Offset(i, 19) = .TextBox20_machine
        MaCel.Offset(i, 20) = .TextBox21_date
       
    End With
    'Réinitialise la listbox des contacts
    ListeContacts
End Sub

1 réponse

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,




<ol>
<li>Mauvaise section</li>
<li>Pas de question</li>
<li>Aucun respect du règlement</li>
</ol>

MERCI DE CORRIGER CELA (SANS REPOSTER UNE NOUVELLE QUESTION MAIS EN CONTINUANT ICI)









@+: Ju£i€n


Pensez: Réponse acceptée