Bonjour,
Etant encore débutant en VBA, je rencontre quelques problèmes et ce dernier m'empêche d'avancer.
Je vais tenter d'être le plus clair possible, n'hésitez pas à me reprendre si cela ne l'est pas pour vous.
J'ai créé un userform dans lequel je fais apparaître une combobox avec une liste de date, à côté de celle-ci j'ai ajouté un commandbutton qui nous permet de valider notre date.
J'aimerai que lorsque l'on valide cette date, la ligne qui lui correspond dans le fichier excel ainsi que les 6 suivantes se collent dans une nouvelle page excel intitulé "BDD".
Toutes mes dates se trouvent dans une feuille excel intitulé "Volatility" et vont de la cellule H6 à H50, j'aimerai donc pour exemple que si je sélectionne une date équivalent à la cellule H8, toutes les données de la ligne 8 à la ligne 14 se collent sur mon autre feuille excel intitulé "BDD".
J'ai affecté les données à ma combobox directement dans ses propriétés (dans l'intitulé "Rowsource").
Voici le code que j'ai utilisé pour ma combobox et ma commandbutton:
Private Sub ComboBox1_change()
ComboBox1.Value = Format(ComboBox1.Value, "dd/mm/yy")
End Sub
Private Sub CommandButton1_Click()
Dim ComboBox1Value As Date
Dim i As Integer
Worksheets("BDD").Activate
Columns("A:i").Select
For i = 6 To 100
Worksheets("Volatility").Activate
If Cells(i, 8) = ComboBox1Value Then
Rows(i).Select
Selection.Copy
Worksheets("BDD").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
End If
Next i
End Sub
Etant encore débutant en VBA, je rencontre quelques problèmes et ce dernier m'empêche d'avancer.
Je vais tenter d'être le plus clair possible, n'hésitez pas à me reprendre si cela ne l'est pas pour vous.
J'ai créé un userform dans lequel je fais apparaître une combobox avec une liste de date, à côté de celle-ci j'ai ajouté un commandbutton qui nous permet de valider notre date.
J'aimerai que lorsque l'on valide cette date, la ligne qui lui correspond dans le fichier excel ainsi que les 6 suivantes se collent dans une nouvelle page excel intitulé "BDD".
Toutes mes dates se trouvent dans une feuille excel intitulé "Volatility" et vont de la cellule H6 à H50, j'aimerai donc pour exemple que si je sélectionne une date équivalent à la cellule H8, toutes les données de la ligne 8 à la ligne 14 se collent sur mon autre feuille excel intitulé "BDD".
J'ai affecté les données à ma combobox directement dans ses propriétés (dans l'intitulé "Rowsource").
Voici le code que j'ai utilisé pour ma combobox et ma commandbutton:
Private Sub ComboBox1_change()
ComboBox1.Value = Format(ComboBox1.Value, "dd/mm/yy")
End Sub
Private Sub CommandButton1_Click()
Dim ComboBox1Value As Date
Dim i As Integer
Worksheets("BDD").Activate
Columns("A:i").Select
For i = 6 To 100
Worksheets("Volatility").Activate
If Cells(i, 8) = ComboBox1Value Then
Rows(i).Select
Selection.Copy
Worksheets("BDD").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
End If
Next i
End Sub