Selec plage en fonction de 2 dates Zone d'im [Résolu/Fermé]

Signaler
Messages postés
44
Date d'inscription
jeudi 14 avril 2011
Statut
Membre
Dernière intervention
5 août 2011
-
lalalie3
Messages postés
44
Date d'inscription
jeudi 14 avril 2011
Statut
Membre
Dernière intervention
5 août 2011
-
Bonjour,
J'avance petit à petit sur mon projet mais j'ai encore une fois besoin de vos lumières en matière de macro VBA.

La macro qui suit fonctionnait jusqu'au moment où j'ai voulu lui demander de me faire une sélection de cellules pour faire un aperçut avant impression en fonction de deux cellules qui sont des dates.

Je cherche mais ne trouve pas la solution, je suppose que c'est un problème de format de date.

Je mets en PJ une version super light de mon classeur.


Private Sub CommandButton1_Click()
'ZI_date Macro
'bouton imprimer
Dim DateDeb As Date, DateFin As Date

Dim Plage As Range
Dim Cellule As Range
Dim lignedeb As Double
Dim lignefin As Double

DateDeb = CDate(Cells(3, 135))
DateFin = CDate(Cells(3, 136))


'Set Plage = ActiveSheet.Range(Cells(1, 6), Cells(15669, 6))
Set Plage = ActiveSheet.Range(Cells(1, 139), Cells(130, 139))
Set Cellule = Plage.Find(What:=DateDeb, LookIn:=xlValues, LookAt:=xlPart, SearchFormat:=False)
If Not Cellule Is Nothing Then
lignedeb = Cellule.Row
End If

MsgBox "ligne: " & lignedeb


If DateFin < DateDeb Then
MsgBox ("La date de fin ne peut être inferieur à la date de début." & Chr(10) & "Game Over même joueur, joue encore !")
Exit Sub
End If


'Selection.AutoFilter Field:=5, Criteria1:=" >= " & DateDeb, Operator:=xlAnd, Criteria2:=" <= " & DateFin
'
''Mise en page
'ActiveSheet.PageSetup.CenterFooter = "Imprimer le &D"
'ActiveSheet.PageSetup.RightFooter = "&P/&N"
'With ActiveSheet.PageSetup
' .CenterHeader = _
' "&""Arial,Gras," & "PLANNING du " & Format(DateDeb, "d mmm") & " au " & Format(DateFin, "d mmm yyyy")
'End With
''ActiveSheet.PageSetup.PrintAreas = Range(cells(lignedeb,6),cells(lignefin,75)).Select
'ActiveSheet.PageSetup.PaperSize = xlPaperA4
'ActiveSheet.PageSetup.Orientation = xlLandscape
'ActiveWindow.SelectedSheets.PrintPreview
''Remise en l'etat
'Selection.AutoFilter Field:=5
End Sub

2 réponses

Messages postés
16047
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
25 janvier 2020
2 856
Bonjour,
Etilestou, ze superlight?
Messages postés
44
Date d'inscription
jeudi 14 avril 2011
Statut
Membre
Dernière intervention
5 août 2011