gulibert
XLDnaute Junior
Bonjour à tous,
Suite à de nombreux essais pour éclater un tableau (merci gorfael qui m'as bcp aidé ) je me sui rabattu sur une méthode plus clair: je choisi un mois dans un UsF et toutes les lignes du tableau durant le mois selectionné se copie colle dans une nouvelle feuille. Evidement je suis bloqué malgrès de nombreuse tentative différente et je crois que je ne doit pas être trés loin.
Quelqu'un pourrait-il m'indiquer s'il vous plait ou se situe mon erreur...
Private Sub CommandButton1_Click()
Dim mois As Date
Dim jour As Date
Dim lig As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets(3).Delete
Sheets.Add.Name = Me.ComboBox1.Value
ActiveSheet.Move after:=Sheets(Sheets.Count)
Application.ScreenUpdating = True
mois = CDate(ComboBox1.Value)
Dim Plage As Range
Dim cell As Range
Set Plage = Sheets("tableau").Range("H2:H" & DerLigne)
For Each cell In Plage
jour = (cell + 1) - Day(cell)
If jour = mois Then
lig = Sheets(3).Range("A65536").End(xlUp).Offset(1, 0).Row
Sheets("tableau").Rows(cell.Row).Copy(Sheets(3)).Rows (lig)
End If
Next cell
Unload Me
End Sub
Je vous transmet la pièce jointe pour que ce soit plus "parlant".
Merci d'avance,
Suite à de nombreux essais pour éclater un tableau (merci gorfael qui m'as bcp aidé ) je me sui rabattu sur une méthode plus clair: je choisi un mois dans un UsF et toutes les lignes du tableau durant le mois selectionné se copie colle dans une nouvelle feuille. Evidement je suis bloqué malgrès de nombreuse tentative différente et je crois que je ne doit pas être trés loin.
Quelqu'un pourrait-il m'indiquer s'il vous plait ou se situe mon erreur...
Private Sub CommandButton1_Click()
Dim mois As Date
Dim jour As Date
Dim lig As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets(3).Delete
Sheets.Add.Name = Me.ComboBox1.Value
ActiveSheet.Move after:=Sheets(Sheets.Count)
Application.ScreenUpdating = True
mois = CDate(ComboBox1.Value)
Dim Plage As Range
Dim cell As Range
Set Plage = Sheets("tableau").Range("H2:H" & DerLigne)
For Each cell In Plage
jour = (cell + 1) - Day(cell)
If jour = mois Then
lig = Sheets(3).Range("A65536").End(xlUp).Offset(1, 0).Row
Sheets("tableau").Rows(cell.Row).Copy(Sheets(3)).Rows (lig)
End If
Next cell
Unload Me
End Sub
Je vous transmet la pièce jointe pour que ce soit plus "parlant".
Merci d'avance,