Bonjour tout le monde,
Je suis un peu bloqué sur une petite macro que j'essaie de créer.
Pour faire simple, je dois pouvoir réaliser des fichiers de 20 lignes maximums sur base d'un fichier pouvant en contenir bien plus.
Les lignes à copier sont celles où une date que je définis dans une input box est retrouvée dans une cellule bien précise d'un autre classeur.
Points bloquant dans mon cas:
1) Une fois la ligne copiées, comment la coller dans une autre sheet qui sera crée par tranche de 20 lignes.
==> Si je retrouve dans mon fichier 27 lignes avec une date précise dans une cellule précise, recopier les 20 premières dans une sheet crées par la macros
==> Créer une deuxième sheet pour les 7 autres restant.
A noter que j'en aurai maximum une 50 aines donc max 5 sheets à créer par tranche de 10.
Et bien sure s'assurer qu'il les copies bien l'une en dessous de l'autre ...
Bref je coince...
Voici ma routine:
Sub Copy()
Dim Selection As String
Selection = Range("Category").Value
Select Case Selection
Case Is = "EBL"
Call EBL
Case Is = "EBL_1"
Call EBL_1
Case Is = "EBL_2"
Call EBL_2
Case Is = " "
MsgBox ("Please select at least one EBLto run")
EBL Sont des fonctions que j'ai créer. ==> Pas de souci à ce niveau là
End Select
Dim Jour As Date
Dim sheet1 As Worksheet
Worksheets("Test").Select
Jour = Date
Jour = InputBox("Bapi Date:", "New Date", Jour)
Dim i As Long
Dim b As Integer
Dim c As Integer
b = 1
c = 10
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
If Cells(b, c).Value = Jour Then
'Cells(b, c).EntireRow.Copy
'EntireRow.Copy
'A partir d'ici je veux donc créer ma nouvelle sheet et commencer à copier coller les cas qui m'intéressent.
... ... ... ??? ??? ???
End If
b = b + 1
Next
D'avance un grand merci à vous tous pour votre aide.
Bien à vous,
Je suis un peu bloqué sur une petite macro que j'essaie de créer.
Pour faire simple, je dois pouvoir réaliser des fichiers de 20 lignes maximums sur base d'un fichier pouvant en contenir bien plus.
Les lignes à copier sont celles où une date que je définis dans une input box est retrouvée dans une cellule bien précise d'un autre classeur.
Points bloquant dans mon cas:
1) Une fois la ligne copiées, comment la coller dans une autre sheet qui sera crée par tranche de 20 lignes.
==> Si je retrouve dans mon fichier 27 lignes avec une date précise dans une cellule précise, recopier les 20 premières dans une sheet crées par la macros
==> Créer une deuxième sheet pour les 7 autres restant.
A noter que j'en aurai maximum une 50 aines donc max 5 sheets à créer par tranche de 10.
Et bien sure s'assurer qu'il les copies bien l'une en dessous de l'autre ...
Bref je coince...
Voici ma routine:
Sub Copy()
Dim Selection As String
Selection = Range("Category").Value
Select Case Selection
Case Is = "EBL"
Call EBL
Case Is = "EBL_1"
Call EBL_1
Case Is = "EBL_2"
Call EBL_2
Case Is = " "
MsgBox ("Please select at least one EBLto run")
EBL Sont des fonctions que j'ai créer. ==> Pas de souci à ce niveau là
End Select
Dim Jour As Date
Dim sheet1 As Worksheet
Worksheets("Test").Select
Jour = Date
Jour = InputBox("Bapi Date:", "New Date", Jour)
Dim i As Long
Dim b As Integer
Dim c As Integer
b = 1
c = 10
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
If Cells(b, c).Value = Jour Then
'Cells(b, c).EntireRow.Copy
'EntireRow.Copy
'A partir d'ici je veux donc créer ma nouvelle sheet et commencer à copier coller les cas qui m'intéressent.
... ... ... ??? ??? ???
End If
b = b + 1
Next
D'avance un grand merci à vous tous pour votre aide.
Bien à vous,
