Date, problème en visual basic
Fermé
Naston75
Messages postés
2
Date d'inscription
jeudi 20 janvier 2011
Statut
Membre
Dernière intervention
6 février 2011
-
6 févr. 2011 à 16:50
Mike-31 Messages postés 18392 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 mai 2025 - 6 févr. 2011 à 18:36
Mike-31 Messages postés 18392 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 mai 2025 - 6 févr. 2011 à 18:36
A voir également:
- Date, problème en visual basic
- Visual basic - Télécharger - Langages
- Microsoft 365 basic - Accueil - Microsoft Office
- Microsoft visual c++ runtime - Guide
- Visual paradigm - Télécharger - Gestion de données
- Programmer en basic sous windows 10 - Télécharger - Édition & Programmation
1 réponse
Mike-31
Messages postés
18392
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
1 mai 2025
5 128
6 févr. 2011 à 18:36
6 févr. 2011 à 18:36
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
