nrdz83
XLDnaute Impliqué
Bonjour à tous je cherche à améliorer un code , Voila ce code fonctionne trés bien mais quand il a fait sa recherche dans la feuille en question via filtre personnalisé il reste bloqué ensuite à la ligne 1550, et pour revenir aux lignes haut de page je suis obligé de choisir via le filtre personnalisé "tous", y a t'il moyen d'integrer au code ci dessous un automatisme afin qu'il se range en haut de cette feuille? d'avance merci à tous , amitiés
Private Sub CommandButton8_Click()
Dim Mois As String
'on vide "plongée journalière"
With Sheets("plongée journalière ")
.Range("A6", .[A6].SpecialCells(xlCellTypeLastCell)).ClearContents
End With
'dans la feuille du mois ...
With Sheets(MonthName(Month(DTPicker2.Value)))
'on filtre le mois sur la date voulue
.[A2].AutoFilter field:=1, Criteria1:=CStr(Format(DTPicker2.Value, .[A3].NumberFormat))
'on copie de colonne B à E vers "plongée journalière"
.Range(.[B3], .Range("E" & .[A3].End(xlDown).Row)).SpecialCells(xlCellTypeVisible).Copy Sheets("plongée journalière ").[A6]
'on copie de colonne L à U vers "plongée journalière"
.Range(.[L3], .Range("U" & .[A3].End(xlDown).Row)).SpecialCells(xlCellTypeVisible).Copy Sheets("plongée journalière ").[E6]
End With
'dans la feuille "plongée journalière"
With Sheets("plongée journalière ")
'on écrit la date en B2
.[B2].Value = DTPicker2.Value
'on active "plongée journalière"
.Activate
End With
Unload Me
End Sub
Private Sub CommandButton8_Click()
Dim Mois As String
'on vide "plongée journalière"
With Sheets("plongée journalière ")
.Range("A6", .[A6].SpecialCells(xlCellTypeLastCell)).ClearContents
End With
'dans la feuille du mois ...
With Sheets(MonthName(Month(DTPicker2.Value)))
'on filtre le mois sur la date voulue
.[A2].AutoFilter field:=1, Criteria1:=CStr(Format(DTPicker2.Value, .[A3].NumberFormat))
'on copie de colonne B à E vers "plongée journalière"
.Range(.[B3], .Range("E" & .[A3].End(xlDown).Row)).SpecialCells(xlCellTypeVisible).Copy Sheets("plongée journalière ").[A6]
'on copie de colonne L à U vers "plongée journalière"
.Range(.[L3], .Range("U" & .[A3].End(xlDown).Row)).SpecialCells(xlCellTypeVisible).Copy Sheets("plongée journalière ").[E6]
End With
'dans la feuille "plongée journalière"
With Sheets("plongée journalière ")
'on écrit la date en B2
.[B2].Value = DTPicker2.Value
'on active "plongée journalière"
.Activate
End With
Unload Me
End Sub