cs_stephanie123
Messages postés1Date d'inscriptionmercredi 9 juillet 2008StatutMembreDernière intervention 9 juillet 2008
-
9 juil. 2008 à 21:53
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 2012
-
10 juil. 2008 à 08:17
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