Autres Remplir textbox dans un frame

chilo27

XLDnaute Occasionnel
Bonjour le forum

Encore une fois je sollicite votre concours

J'ai trouvé un petit fichier et j'aimerais m'en inspirer

Mais je ne parviens pas à trouver la bonne formulation pour transférer la ligne sélectionnée de la
listview vers les textbox qui se trouvent dans la frame

Est il possible de le réaliser ce transfert et de les gérer modifier sauvegarder etc...

Par avance merci pour votre aide
 

Pièces jointes

  • Dynamic-UserForm(3).zip
    37.5 KB · Affichages: 7

chilo27

XLDnaute Occasionnel
Re Bonjour

Je me retrouve avec une petite difficulté

Je ne trouve pas les bonne formules pour finaliser
A savoir Ajouter, Modifier Sauvegarder et supprimer
dans la listview

Merci pour votre aide
 

Pièces jointes

  • Dynamic-UserForm(2)-4.zip
    28.8 KB · Affichages: 0

chilo27

XLDnaute Occasionnel
Rebonjour le forum
Fanfan38 Bonjour

Tout fonctionne mais les méthodes pour Ajouter, Modifier, sauvegarder et supprimer
ont changé et je ne maîtrise pas du tout
Si de nouveau, vous m'apportez votre concours je serai comblé
Je reste sur ce post pour une meilleure compréhension
En vous remerciant par avance
 

Pièces jointes

  • Dynamic-UserForm(2)-4.zip
    28.8 KB · Affichages: 2

chilo27

XLDnaute Occasionnel
Re

J'ai fait un essai brièvement et cela a l'air de fonctionner
Merci Fanfan38
Au quel cas je reviendrai vers vous
Merci à vous deux

Pour Dranreb, le fichier est assez particulier et présente des messages d'erreur par rapport aux textbox
Toutefois votre proposition comporte de bien belle perspective
Mais j'avoue n'étant spécialiste cela me demandera du tant

Je vous remercie grandement pour votre messieurs
 

chilo27

XLDnaute Occasionnel
Bonsoir

Bizarrement je me retrouve avec une message d'erreur
sur cette

Private Sub CmdAjouter_Click()
Dim iX As Long
NomTableau = ("T_adherent")
For iX = 1 To DataRng.Columns.Count
Controls("T_box" & iX) = ""
Next
var_new = True
If [T_adherent].Item(1, 1) <> "" Then ligne = [T_adherent].Rows.Count + 1 Else ligne = 1

cette ligne
Controls("T_box1") = Application.Max([T_adherent[Nb ID]]) + 1
End Sub

Erreur d'exécution 13 incompatibilité de type
J'ai tout vérifié mais le problème

Encore une fois merci de vous penchez sur mon cas
 

chilo27

XLDnaute Occasionnel
Bonjour

IL me faudrait il me faudrait une dizaine
Les données et c'est que cela se complique

J'ai le code postal
Communes
Rue
Activité sportive
Situation famille
je vois grand mais il y a bien d'autres

Je suis retraité et je souhaitais faire une petite application bien complète
pour une association, et en même temps carnet etc...
Mais ce procédé qui a l'avantage d'éviter de longues saisies me parait bien complexe à gérer
et je n'ai pas les connaissances nécessaires

Merci à vous
 

Discussions similaires

Statistiques des forums

Discussions
312 210
Messages
2 086 277
Membres
103 170
dernier inscrit
HASSEN@45