copier une cellule d'une à une autre après selection dans combobox

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:

---

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

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

Code:

---

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

tu fais ceci

Code:

---

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

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 ?

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

faut alimenter "maLigne"

Code:

---

1 2	Range("A0")

---

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

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

çà après, je ne peuxx pas t'aider
il y a sans doute un problème dans la valeur de tes variables.... à toit chercher pas à pas combien valent tse valeurs etvérifier que c'est bien la valeurque tu attendais

oui mai je sai kil decale de 2
comment je peu lui demandé pour ce code :

Code:

---

1 2 3

For maligne = 0 To ComboBox1.ListCount - 1   If ComboBox1.List(maligne) = ComboBox1.Value Then

---

j'aimerai bien pour le if avoir ComboBox.value +2
tu comprend ?

Essaie en faisant ceci et vérifie pas à pas que les données qui t'intéressent ont bien les bonnes valeurs

Code:

---

1 2 3 4 5

msgbox ComboBox1.ListCount & " _ " & ComboBox1.Value For maligne = 0 To ComboBox1.ListCount - 1 msgbox maLigne & " _ " & ComboBox1.List(maligne) If ComboBox1.List(maligne) = ComboBox1.Value Then

---

Si t sur que c'est +2, tu rajoute +2 dans ton IF et çà devrait marcher

je met ca ou ? je supprime des choses avan ?

c'est exactement le même bout de code que tu m'as donné, j'y ai juste rajouté des alertes de debuggage pour suivre le valeurs de tes variables

ok j'ai compris
ça décale de 2 mais ce que je ne t'avais pas dit c'est que j'avais 4000 lignes 8O

il y a un moyen de l'arreté ? :D

ok c'est bon
tu peux m'expliquer comment rajouter +2 au if

Ctrl + Pause ou Shift + Pause... me rappelle plus

c'est bon tout marche
merci beaucoup