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

[Zekraoui_Jakani]

Si j'ai bien compris, vous pouvez exploiter : CelluleDestination = Sheets("Support").ActiveCell.Offset(numLigne,numCol)
Si numLigne (numCol) est négatif, il va chercher la ou les lignes au dessus de la cellule active, respectivement la ou les colonnes à gauche de la cellule active; sinon en dessous, ou à droite de celle-ci.
Si nécessaire, voir documentation sur MS-Office pour la fonction "Offset"

[CARTERS]

Si j'ai bien compris, vous pouvez exploiter : CelluleDestination = Sheets("Support").ActiveCell.Offset(numLigne,numCol)
Si numLigne (numCol) est négatif, il va chercher la ou les lignes au dessus de la cellule active, respectivement la ou les colonnes à gauche de la cellule active; sinon en dessous, ou à droite de celle-ci.
Si nécessaire, voir documentation sur MS-Office pour la fonction "Offset"

bonjour ZEkraoui
merci d'avoir reagit à mon poste.
en fait la saisie se fait dans mon userform1 dans la case "code du produit" de la feuille BDD. je voudrait quand cliquant sur le bouton valider, il puisse apparaître dans la colonne B nommé (code produit) et générer automatiquement les (désignations du produit) de la colonne C de la même feuille BDD en se référant aux données de la colonne H (article) et colonne I (désignation objet) de la feuille SUPPORT

[CARTERS]

bonjour Zekraoui

merci d'avoir réagit à mon poste.
en fait la saisie se fait dans mon userform1 dans la case "code du produit" de la feuille BDD. je voudrait quand cliquant sur le bouton valider, il puisse apparaître dans la colonne B nommé (code produit) et générer automatiquement les (désignations du produit) de la colonne C de la même feuille BDD en se référant aux données de la colonne H (article) et colonne I (désignation objet) de la feuille SUPPORT

[Zekraoui_Jakani]

Exemple:

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
19
20
21
 
Private Sub valider_Click()
 
    Sheets("BDD").Select
 
    'récupérer le code encodé dans le formulaiire
    Range("B1").Value = CLng(votreTextBox_CodeProduit)
    monCode = CLng(votreTextBox_CodeProduit)
 
'    En supposant que vos codes produits se trouvent en colonne G de la feuille "Support",
'    et que la zone contenant ces codes s'appelle "maTable" couvrant "G2:I7" par exemple
 
    'mettre l'article en C1
    Range("C1").Value = Application.WorksheetFunction.VLookup(monCode, [maTable], 2, 0)
    'mettre la désignation en D1
    Range("D1").Value = Application.WorksheetFunction.VLookup(monCode, [maTable], 3, 0)
 
'Si vous devez remplir plusieurs lignes, il vous faudra repérer le 1ère ligne vide pour y écrire vos données
'l'une à la suite de l'autre
 
End Sub

[CARTERS]

Exemple:

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
19
20
21
 
Private Sub valider_Click()
 
    Sheets("BDD").Select
 
    'récupérer le code encodé dans le formulaiire
    Range("B1").Value = CLng(votreTextBox_CodeProduit)
    monCode = CLng(votreTextBox_CodeProduit)
 
'    En supposant que vos codes produits se trouvent en colonne G de la feuille "Support",
'    et que la zone contenant ces codes s'appelle "maTable" couvrant "G2:I7" par exemple
 
    'mettre l'article en C1
    Range("C1").Value = Application.WorksheetFunction.VLookup(monCode, [maTable], 2, 0)
    'mettre la désignation en D1
    Range("D1").Value = Application.WorksheetFunction.VLookup(monCode, [maTable], 3, 0)
 
'Si vous devez remplir plusieurs lignes, il vous faudra repérer le 1ère ligne vide pour y écrire vos données
'l'une à la suite de l'autre
 
End Sub

j'ai essaye mais ca ne marche pas encore