Discussion :

[Goube]

Bonsoir,

Je viens de lire l'intéressant billet de Pierre Fauconnier sur la modification d'un formulaire et je reste bloqué sur la façon de renseigner le numéro de ligne à afficher.
https://www.developpez.net/forums/bl...-formulaire-2/

Comment remplacer le 2 par le n° de la ligne que l'on veut modifier ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ReadData "t_contacts", 2, VBA.Array("fc_Prénom", "Prénom", "fc_Nom", "Nom", "fc_DN", "Date naissance", "fc_Actif", "Actif")

Merci pour vos lumières.

Cordialement.

[Invité]

Bonjour,
remplace ta function ReadData par celle-ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Function ReadData(Tablename As String, Index As Long, Map)
  Dim i As Long
  Dim t As ListObject
  Index = nl - 10
 
  Set t = Range(Tablename).ListObject
  For i = LBound(Map) To UBound(Map) Step 2
    Range(Map(i)).Value = t.ListColumns(Map(i + 1)).DataBodyRange(Index).Value
  Next i
  Set t = Nothing
End Function

[Philippe Tulliez]

Bonjour,

remplace ta function ReadData par celle-ci

Certainement pas.
La fonction ReadData est une fonction générique et est parfaite. C'est en amont qu'il faut définir le numéro d'index. 2 étant une constante pour l'exemple

[Goube]

Bonjour mimimathy, Philippe Tulliez,

Merci pour vos réponse.
Philippe, tu indiques qu'il faut définir le n° d'index en amont. Comment faire ? Pour que cela fonctionne.
Merci, cordialement.

[Invité]

Re,
De mon côté cela fonctionne
https://mon-partage.fr/f/380XuLw8/

[Goube]

Re,

Je viens de tester la méthode de mimimathy et cela fonctionne aussi chez moi.
Merci mimimathy.