A voir également:
- Copier cellules d'une feuille à une autre
- Copier une vidéo youtube - Guide
- Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
- Supprimer une feuille word - Guide
- Aller à la ligne dans une cellule excel - Guide
- Super copier - Télécharger - Gestion de fichiers
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
11 juil. 2008 à 13:39
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