Decalage de valeur

Re,

J'ai l'image4 que je ne trouve, cette image devrait être a la place de l'image5 ... comment faire pour trouver des frames ou des images ou textbox combobox caches ?

- La Textbox26 affiche la valeur du combobox26.

- La Textbox27 affiche la valeur du textbox26

- La Textbox28 affiche la valeur du textbox27

- La Textbox29 affiche la valeur du textbox28

- La Textbox30 affiche la valeur du textbox29

J'ai un decalage de valeurs qui ne correspondent pas aux bonnes TextBox.

Pouvez-vous m'aider ?

@+

Re,

J'ai fait les codes pour insérer les images.

Elles s'inserent bien dans mon fichier Excel, mais je ne les voit pas quand je clique sur la ligne de ma Listbox.

Les chemins qui s'affichent dans les texbox sont aussi decales.

Pouvez-vous m'aider a regler ce probleme ?

A+

Re,

j'ai remplace cela

Private Sub ListBox20_Click()

Dim i As Byte

With Me

For i = 1 To 26

.Controls("ComboBox" & i).Text = .ListBox20.List(.ListBox20.ListIndex, i - 1)

Next i

For i = 26 To 30

.Controls("TextBox" & i) = .ListBox20.List(.ListBox20.ListIndex, i - 1)

Next i

.ComboBox1.SetFocus

End With

End Sub

Par

Private Sub ListBox20_Click()
   Me.ComboBox1 = Me.ListBox20
   Me.ComboBox2 = Me.ListBox20.Column(1)
   Me.ComboBox3 = Me.ListBox20.Column(2)
   Me.ComboBox4 = Me.ListBox20.Column(3)
   Me.ComboBox5 = Me.ListBox20.Column(4)
   Me.ComboBox6 = Me.ListBox20.Column(5)
   Me.ComboBox7 = Me.ListBox20.Column(6)
   Me.ComboBox8 = Me.ListBox20.Column(7)
   Me.ComboBox9 = Me.ListBox20.Column(8)
   Me.ComboBox10 = Me.ListBox20.Column(9)
   Me.ComboBox11 = Me.ListBox20.Column(10)
   Me.ComboBox12 = Me.ListBox20.Column(11)
   Me.ComboBox13 = Me.ListBox20.Column(12)
   Me.ComboBox14 = Me.ListBox20.Column(13)
   Me.ComboBox15 = Me.ListBox20.Column(14)
   Me.ComboBox16 = Me.ListBox20.Column(15)
   Me.ComboBox17 = Me.ListBox20.Column(16)
   Me.ComboBox18 = Me.ListBox20.Column(17)
   Me.ComboBox19 = Me.ListBox20.Column(18)
   Me.ComboBox20 = Me.ListBox20.Column(19)
   Me.ComboBox21 = Me.ListBox20.Column(20)
   Me.ComboBox22 = Me.ListBox20.Column(21)
   Me.ComboBox23 = Me.ListBox20.Column(22)
   Me.ComboBox24 = Me.ListBox20.Column(23)
   Me.ComboBox25 = Me.ListBox20.Column(24)
   Me.ComboBox26 = Me.ListBox20.Column(25)

   Me.TextBox26 = Me.ListBox20.Column(26)
   Me.TextBox27 = Me.ListBox20.Column(27)
   Me.TextBox28 = Me.ListBox20.Column(28)
   Me.TextBox29 = Me.ListBox20.Column(29)
   Me.TextBox30 = Me.ListBox20.Column(30)
   Me.ComboBox1.SetFocus
End Sub

Par contre ou était l'erreur, i- 1 ?

@+

J'ai un decalage de valeurs qui ne correspondent pas aux bonnes TextBox.

Pourquoi vous compliquez ?

Dans le code proposé remplacez

For i = 26 To 30
.Controls("TextBox" & i) = .ListBox20.List(.ListBox20.ListIndex, i - 1)
Next i

par

For i = 26 To 30
.Controls("TextBox" & i) = .ListBox20.List(.ListBox20.ListIndex, i )
Next i

NB : essayez de ne pas reposter votre fichier à chaque fois. Cela ne fait qu'alourdir le forum inutilement.

Cordialement

Bonjour Dan,

Juste pour comprendre ce que je fais. Je n'avais pas trouver la solution avec les boucles For et le i- 1 et i. Je suis donc reste sur ce qui marchais.

Merci encore.

J'ai fais mes codes avec bouton insert et modifie et j'ai des problemes aussi !

Je ferais un autre sujet pour cela ...

@+

Bonjour

Merci de cloturer le fil...

Crdlt