nrdz83
XLDnaute Impliqué
Tout d'abord bonjour à tous et recevez mes meilleurs voeux pour cette nouvelle année.
Voila mon problème j'ai une erreur sur un code que je n'arrive pas à résoudre . Dans mon classeur l'onglet "plongée journalière" je clique sur l'objet afficher le formulaire, je choisi dans le dtpicker la date (le 05/01/2009 car elle seule est saisie pour le moment) et je clique sur saisir pour faire afficher les donnés dans la feuille, mais j'ai cette erreur.
Ce code fonctionné trés bien, mais avec l'aide des gens du forum on a modifié le code du bouton valider de l'userform 1 est ce ça vient de là ? franchement je n'arrive pas à trouver la raison de cette erreur , je vous met mon classeur ci-joint, d'avance merci à tous et mes amitiés
Cijoint.fr - Service gratuit de dépôt de fichiers
Voila mon problème j'ai une erreur sur un code que je n'arrive pas à résoudre . Dans mon classeur l'onglet "plongée journalière" je clique sur l'objet afficher le formulaire, je choisi dans le dtpicker la date (le 05/01/2009 car elle seule est saisie pour le moment) et je clique sur saisir pour faire afficher les donnés dans la feuille, mais j'ai cette erreur.
Code:
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"
[COLOR="Red"].Range(.[B3], .Range("E" & .[A3].End(xlDown).Row)).SpecialCells(xlCellTypeVisible).Copy Sheets("plongée journalière ").[A6][/COLOR]'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]
.AutoFilterMode = False
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
Ce code fonctionné trés bien, mais avec l'aide des gens du forum on a modifié le code du bouton valider de l'userform 1 est ce ça vient de là ? franchement je n'arrive pas à trouver la raison de cette erreur , je vous met mon classeur ci-joint, d'avance merci à tous et mes amitiés
Cijoint.fr - Service gratuit de dépôt de fichiers