Discussion :

[CARTERS]

bonjours à tous

je n'arrive pas a trouver le code vba pour des renvois.

j'ai un classeur qui comporte deux feuilles de calcul: feuille1 nommé BDD et feuille2 nommé SUPPORT
la feuille BDD est mon formulaire de saisie.
la feuille SUPPORT contient des données: colonnes H (code article) et colonne I (désignation).
dans ma feuille BDD, la colonne B représente dans ma saisie les (code article) de la colonne H de la feuille SUPPORT donc dans propriété de Combox4 j'ai mis le code suivant: Rowsources SUPPORT!H2:H1045760 il fonctionne parfaitement
je veux que :
dans la feuille BDD, en remplissant une cellule de la colonne B (codes articles) je puisse avoir automatiquement les informations de (désignation) dans la colonne C bien sur qui proviendront de la feuille SUPPORT respectivement de la colonnes H (code article) et colonne I (désignation).

en plus mon ComboBox1 "recherche" qui doit me servir de rechercher les nombres enregistrés ne fonctionne pas ainsi que mon CommandButton3 "aller à"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'Pour la liste déroulante recherche
 
Private Sub ComboBox1_Change()
 
Dim ligne As Long
Dim I As Integer
 
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
 
  ligne = Me.ComboBox1.ListIndex + 2
 
  ComboBox2 = Ws.Cells(ligne, "D")
 
  For I = 1 To 13
     Me.Controls("TextBox" & I) = Ws.Cells(ligne, I + 2)
  Next I
 
End Sub

Merci d'avance