tres urgentRésolu

Question

j'ai besoin d'un code qui me permet de declarer un tableux en 2colone nom , pr&#233;nom en suite afficher tous les nom dans la liste puis en cas de clic sur un nom de la list le pr&#233;nom doit safficher sur text1.text 

les nom et prenom doit etre declarer dans un module 

merci d'avence

nawakator · Accepted Answer

Exemple

- ---------------------Dans un module
Option Explicit
Public Const K_NOM1 As String = "DUPONT"
Public Const K_NOM2 As String = "MARTIN"
Public Const K_NOM3 As String = "SANTRAN"



Public Const K_PRENOM1 As String = "Benoit"
Public Const K_PRENOM2 As String = "Christine"
Public Const K_PRENOM3 As String = "Andr&#233;"

- ---------------------Dans une form
Option Explicit

Private ListNom(K_NBRNOM - 1, 1)
Private Sub Form_Load()


Dim i, j As Integer


    ListNom(0, 0) = K_NOM1
    ListNom(0, 1) = K_PRENOM1
    
    ListNom(1, 0) = K_NOM2
    ListNom(1, 1) = K_PRENOM2
    
    ListNom(2, 0) = K_NOM3
    ListNom(2, 1) = K_PRENOM3
    
    For i = 0 To K_NBRNOM - 1
        List1.AddItem ListNom(i, 0)
    Next
End Sub


Private Sub List1_Click()
    If (List1.ListIndex >= 0) And (List1.ListIndex <= (K_NBRNOM - 1)) Then
        Text1.Text = ListNom(List1.ListIndex, 1)
    End If
End Sub

spaa05 · Answer

c'est encore moi merci pour e code mais lorceque j'execute le programme il ya un message qui selectionne 

K_NBRNOM 

erreur de compilation :
valeur non d&#233;finie

nawakator · Answer

Desol&#233;
dans le module rajoute public const K_NBRNOM as integer = 3

spaa05 · Answer

merci enormement tu ma sauver vraiment un tres grand merci

Tres urgent

4 réponses