Date, problème en visual basic
Naston75
Messages postés
2
Statut
Membre
-
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'ai un petit souci de recherche de date. Mon problème est le suivant:
je recherche la possibilité de rechercher la cellule contenant la date du jour dans la première colonne d'un tableau.
J'ai donc écrit :
Sheets("Stats").Select
Columns(1).Find(what:=Date).Activate
Mais systématiquement, la macro me rajoute 10 mois, quelque soit le format de la date. Je tombe toujours le 06/12/11 alors qu'aujourd'hui, nous sommes le 06/02/11 !
A l'aide ! ! !
J'ai un petit souci de recherche de date. Mon problème est le suivant:
je recherche la possibilité de rechercher la cellule contenant la date du jour dans la première colonne d'un tableau.
J'ai donc écrit :
Sheets("Stats").Select
Columns(1).Find(what:=Date).Activate
Mais systématiquement, la macro me rajoute 10 mois, quelque soit le format de la date. Je tombe toujours le 06/12/11 alors qu'aujourd'hui, nous sommes le 06/02/11 !
A l'aide ! ! !
A voir également:
- Date, problème en visual basic
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
1 réponse
Salut,
Regarde si c'est ce que tu cherches
Sub Date_Trouvée()
Dim w
'Gestion des erreurs si date n'exixte pas
On Error GoTo errorHandler
With Worksheets("Stats").Columns(1)
Set w = .Find(Date, LookIn:=xlValues)
If Not w Is Nothing Then
firstAddress = w.Address
End If
End With
Range(firstAddress).Select
'si la date n'existe pas fin de procédure
Exit Sub
errorHandler:
'Si la date la date n'existe pas, message d'erreur
MsgBox "La date n'existe pas dans la colonne A"
End Sub
Regarde si c'est ce que tu cherches
Sub Date_Trouvée()
Dim w
'Gestion des erreurs si date n'exixte pas
On Error GoTo errorHandler
With Worksheets("Stats").Columns(1)
Set w = .Find(Date, LookIn:=xlValues)
If Not w Is Nothing Then
firstAddress = w.Address
End If
End With
Range(firstAddress).Select
'si la date n'existe pas fin de procédure
Exit Sub
errorHandler:
'Si la date la date n'existe pas, message d'erreur
MsgBox "La date n'existe pas dans la colonne A"
End Sub
