Copier cellules d'une feuille à une autre
fripoti
-
fripoti -
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
merci de m'aider
http://cjoint.com/data/hkjfHa8z1I.htm
http://cjoint.com/data/hkjhfdsHgl.htm
http://cjoint.com/data/hkoQCJzWQ0.htm
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
merci de m'aider
http://cjoint.com/data/hkjfHa8z1I.htm
http://cjoint.com/data/hkjhfdsHgl.htm
http://cjoint.com/data/hkoQCJzWQ0.htm
Configuration: Windows XP Firefox 1.5.0.11
1 réponse
-
je suis sur une piste mais cela ne marche pas :
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 veu transférer de la fauille "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 :
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
-
