Test de remplissage d'un tableau avec un userform

Bonjour,

je suis entrain d'essayer de remplir un tableau à l'aide d'un USF.

J'ai trouvé de quoi débuter sur un site et j'ai commencé à l'adapter à mon projet.

Pour le moment, je n'en suis au remplissage et à la modification des données, aucune restriction (nombre, formatage N° tel, etc, etc) dans les données entrées mais si quelqu'un est intéressé il peut y toucher

Le remplissage des cellules se passe très bien mais lorsque j'utilise la Combox1 pour faire une recherche par nom, c'est la cata.

Une grande partie des données n'est pas à sa place dans le formulaire.

Je ne renseigne, pour le moment, que les cellules où la tête de colonne est verte, les deux autres se remplissent toutes seules et les "rouges" viendront plus tard.

Je vous mets mon fichier en PJ.

Merci à vous

Bonjour,

Modifiez votre code comme ceci:

'Correspond au programme de la LISTE DEROULANTE
Private Sub ComboBox1_Change()
    Dim Ligne As Long
    Dim I As Integer
    If Me.ComboBox1.ListIndex = -1 Then Exit Sub
    Ligne = Me.ComboBox1.ListIndex + 2
    For I = 1 To 12
        Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I)
    Next I
End Sub

Cdlt

Bonjour Arturo83,

Effectivement c'est beaucoup mieux et je t'en remercie mais il y a encore un petit problème. C'est le contenu de la cellule "L" qui s'affiche en lieu et place de la "N".

Est ce le fait qu'il y a deux colonnes (L et M)qui ne sont pas concernée??

je suis passé à côté de cette dernière

rectificatif:

'Correspond au programme de la LISTE DEROULANTE
Private Sub ComboBox1_Change()
    Dim Ligne As Long
    Dim I As Integer
    If Me.ComboBox1.ListIndex = -1 Then Exit Sub
    Ligne = Me.ComboBox1.ListIndex + 2
    For I = 1 To 11
        Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I)
    Next I
    Me.Controls("TextBox12") = Ws.Cells(Ligne, "N")
End Sub

Je te remercie, c'est tout bonnement parfait!

A moi la suite