Autres Remplir textbox dans un frame

fanfan38

XLDnaute Barbatruc

• 14 Août 2023

• #2

Bonjour
Ci joint ma solution

A+ François

 

Pièces jointes

• Dynamic-UserForm(2).xlsm

  33.1 KB · Affichages: 4

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 14 Août 2023

• #3

Bonjour.
Essayez comme ça :

VB:

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
   Dim N As Integer
   fraInput("TextBox1").Text = Item.Text
   For N = 2 To DataRng.Columns.Count
      fraInput("TextBox" & N).Text = Item.ListSubItems(N - 1).Text
      Next N
   End Sub

 

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 14 Août 2023

• #4

Bonsoir le forum, FanFan38, Dranreb

Je vous remercie pour votre aide
je viens de prendre connaissance, je fais un essai et je reviens vers vous

Merci à vous deux

 

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 14 Août 2023

• #5

 

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 14 Août 2023

• #6

Re
Pour Fanfan38 cela fonctionne
Pour Dranreb un Message d'erreur
sur cette ligne
fraInput("TextBox1").Text = Item.Text

 

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 14 Août 2023

• #7

Dommage j'aurais opter pour la solution de Dranreb sans offenser Fanfan38, mais l'avantage
de celui de Dranreb je n'aurai pas eu à rentrer tous les lignes

Encore une fois merci à vous deux

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 14 Août 2023

• #8

Quelle erreur ? Je n'ai pas pu tester parce que je ne peux pas débloquer les macros dans un zip avant de l'ouvrir. Mettez des espions. Peut être .Controls ne peut-il pas être omis pour un Frame comme il le peut pour l'UFm ?

 

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 14 Août 2023

• #9

fraInput("TextBox1").Text = Item.Text cette ligne la coupable

Sur cette ligne erreur d'exécution -2147024809 (80070057)

Objet spécifier introuvable

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 14 Août 2023

• #10

Essayez fraInput.Controls(1) pour le 1er et fraInput.Controls(N) pour les suivants

 

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 14 Août 2023

• #11

En ayant apporté les modifications que vous m'avez conseillées
je n'ai plus de message d'erreur toutefois,
seul les colonnes 1 et 3 apparaissent


Merci encore une fois pour le temps que vous me consacrez

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 14 Août 2023

• #12

Y aurait-il des contrôles parasites non affiché dans le Frame fraInput en plus de ceux créés dynamiquement ?
Vous auriez intérêt à lister leurs noms dans une procédure de test

 

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 14 Août 2023

• #13

Non Mais je vais reprendre le classeur
Pour m'assurer Je reviendrai vers vous prochainement

Merci une nouvelle fois

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 15 Août 2023

• #14

Bonjour
Avec une boucle...

A+ François

 

Pièces jointes

• Dynamic-UserForm(2).xlsm

  33.2 KB · Affichages: 10

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 15 Août 2023

• #15

Boujour le forum , Bonjour Fanfan38

Rien à redire tout fonctionne Bien j'imagine que les difficultés venaient de Userform_initialize
corrigé par fanfan38

Merci beaucoup à vous deux

 

Vote positif 0 Vote négatif