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
A voir également:
- Copier cellules d'une feuille à une autre
- Comment copier une vidéo youtube - Guide
- Comment imprimer en a5 sur une feuille a4 - Guide
- Excel protéger des cellules dans une feuille - Guide
- Super copier - Télécharger - Gestion de fichiers
- Bruler une feuille de laurier - Guide
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