Type variable personalisee

Hello la commu,

J'ai un tableau de donnée basique représentant une liste de client.

Je souhaite utiliser le type perso de variable pour définir les clients via le code ci-dessous :

Type tClient
    Nom As String
    Prenom As String
    Age As String
    Ville As String
End Type

Sub testing()

Dim Client(2) As tClient
Dim i As Byte

For i = 0 To 2
    With Client(i)
        .Nom = Cells(i + 2, 1)
        .Prenom = Cells(i + 2, 2)
        .Age = Cells(i + 2, 3)
        .Ville = Cells(i + 2, 4)
    End With
Next i

End Sub

Maintenant, j'aimerai connaitre la liste des clients situés à "MARSEILLE"... Mais je ne vois pas comment boucler sur l'ensemble de mes clients ...

Savez-vous comment on peut boucler sur les clients après avoir affectées des valeurs ?

Merci d'avance

R@g

bonsoir

essaie ceci

For i = 0 To 2
    With Client(i)
      if  .Ville = "MARSEILLE" then
          msgbox "Le client " & .nom & " " & .prenom & " habite à Marseille"
     end if
    End With
Next i

Hello,

La même boucle avec une condition en + du coup, ça marche

Merci. A+

R@G

Rechercher des sujets similaires à "type variable personalisee"