Find date demande d'infos

Résolu
pat-bl Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -  
pat-bl Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
je souhaiterais savoir s'il est possible de mettre en methode find
exemple: 05/01/09 +1
car je suis en train de finaliser un programme pour une amie mais la methode find me refuse l'acces a +1
Cells.Find(What:=a, LookIn:=xlFormulas).Activate
par contre mes cellules qui sont en 05/01/09 il accepte

info:je suis en vba excel 2000
merci d'avance
pat-bl
A voir également:

4 réponses

michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour,

quand tu utilises les dates avec find, il faut qu'elles soient au m^me format (par ex 01/09/09)
cette macro fonctionne

Dim a As Date
a = clng(Sheets(2).Range("D3") + 1)
cellule = Sheets(1).Cells.Find(a).Address

si tu ne peux pas avoir le m^me format

Dim a As Date
a = CLng(Sheets(2).Range("D3") + 1)
cellule = Sheets(1).Cells.Find(a).Address
0
pat-bl Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
bonjour
En faite, je voudrais mettre exemple:
en a1= 05/01/09
en a2=a1+1 (pour avoir 06/01/09)
est ce possible avec la methode find ?
merci pat-bl
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
J'ai rien compris à ta dernière demande....
--
0
pat-bl Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
bonjour
je veux faire un copier coller sur les dates en mettant +1 a chaque ligne
merci pat-bl
0