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
A voir également:
- Copier cellules d'une feuille à une autre
- Comment imprimer en a5 sur une feuille a4 - Guide
- Excel protéger des cellules dans une feuille - Guide
- Imprimer feuille excel sur une page - Guide
- Copier le texte d'une image - Guide
- Roadkil's unstoppable copier - Télécharger - Récupération de données
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
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
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