Rapport de message :*
 

Initialisation d'un formulaire à partir des données d'une table

Titre du sujet : Initialisation d'un formulaire à partir des données d'une table
par wjmavsk le 12/01/2013 16:05:32

Bonjour,

Je souhaite utiliser un formulaire pour mettre à jour des données dans une table Excel.
Je sélectionne une ligne de cette table et lance une macro qui ouvre un formulaire contenant des champs texte correspondant aux champs de la table.
Je n'arrive pas à récupérer dans le formulaire, les données de la ligne sélectionnée dans le tableur.

Voici le code que j'utilise pour initialiser l'affichage du formulaire:

Private Sub UserForm_Initialize()

    Set ws = Worksheets("Saisie")
 
' Positionne le formulaire
        Me.StartUpPosition = 0
        Me.Top = 0
        Me.Left = 150
' Recopie données de la ligne dans formulaire
Range("A" & Ln).Activate
Me.TxtExer.Value = ws.Cells(Ln, 1).Value
Me.TxtEtat.Value = ws.Cells(Ln, 5).Value
Me.TxtNom.Value = ws.Cells(Ln, 8).Value
Me.TxtFact.Value = ws.Cells(Ln, 9).Value
Me.TxtNat.Value = ws.Cells(Ln, 10).Value
Me.TxtDFTx.Value = ws.Cells(Ln, 11).Value
Me.TxtTTC.Value = ws.Cells(Ln, 12).Value

End Sub


Quelqu'un peut-il m'indiquer le code VBA qui permet d'extraire les données d'une ligne vers un formulaire?


Merci par avance,

JM