Discussion :

[fripoti]

Bonjour,
je cherche depuis 2 jours en vain
j'ai créé une combobox dans laquelle je selectionne une reference de produit
à coté j'ai mis un bouton commande, et l'idée c'est en cliquant de transferer les données de la ligne correspondant au produit sur une autre feuille dans un encadré qui fera office d'etiquette.
J'envoie des photos pour mieux me faire comprendre


sur http://cjoint.com/data/hkjfHa8z1I.htm [ Lien ]
sur http://cjoint.com/data/hkjhfdsHgl.htm [ Lien ]
sur http://cjoint.com/data/hkoQCJzWQ0.htm [ Lien ]

je suis sur une piste mais cela ne marche pas :

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
Private Sub CommandButton2_Click()
 
Dim i As Integer
 
For i = 0 To ComboBox1.ListCount - 1
 
If ComboBox1.List(i) = ComboBox1.Value Then
 
Sheets("stockexcel").Cells(Ai).Value = Sheets("Feuil1").Cells(B1).Value
 
End If
 
Next i
 
End Sub

je veux transférer de la feuille "stockexcel" à "feuil1"

merci de m'aider

[fripoti]

j'ai du nouveau j'ai réussi mais pour une ligne, je n'arrive pas à mettre ma variable i :

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
22
23
24
Private Sub CommandButton2_Click()
 
Dim i As Integer
 
    For i = 0 To ComboBox1.ListCount - 1
 
        If ComboBox1.List(i) = ComboBox1.Value Then
 
Worksheets("Feuil1").Range("B1") = Worksheets("stockexcel").Range("A8")
Worksheets("Feuil1").Range("B2") = Worksheets("stockexcel").Range("B8")
Worksheets("Feuil1").Range("B3") = Worksheets("stockexcel").Range("E8")
Worksheets("Feuil1").Range("B4") = Worksheets("stockexcel").Range("F8")
Worksheets("Feuil1").Range("B5") = Worksheets("stockexcel").Range("G8")
Worksheets("Feuil1").Range("B7") = Worksheets("stockexcel").Range("H8")
Worksheets("Feuil1").Range("B8") = Worksheets("stockexcel").Range("I8")
 
 
        End If
 
    Next i
 
Sheets("Feuil1").Select
 
End Sub

je voudrais remplacer le 8 à la fin par une variable qui varie en fonction de la ligne de la combo selectionnée
mais je sais pas comment ecrire le code

merci

[helios77]

tu fais ceci

Code :

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

1
2
 
Worksheets("Feuil1").Range("B1") = Worksheets("stockexcel").Range("A" & taLigne)

la variable taLigne est ta variable qui remplace le 8.. après, à toi de voir comment cette variable est alimentée et incrémentée

[fripoti]

merci pour la piste
c'est ce que j'ai essayé de faire au debut du programme avec le "i"
j'ai remplacé "i" par "maligne" mais il y a erreur 1004

une idée ?

[fripoti]

C'est bon ca marche !!!!
merci beaucoup

[fripoti]

en fait y'a un dernier petit probleme !
il me décale tout de 2 lignes au dessus
exemple : il fait la ligne 65 au lieu de 67

[helios77]

faut alimenter "maLigne"

Code :

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

1
2
 
Range("A0")

n'existe pas
initialise correctement ta variable et incrémente la comme çà t'arrange et çà devrait fonctionner