Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Programmation

Find date demande d'infos

Dernière réponse le 5 jui 2009 à 11:47:11 pat-bl, le 4 jui 2009 à 19:28:57

Signaler ce message aux modérateurs

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

Configuration: Windows Vista Internet Explorer 7.0

Posez votre question Répondre

michel_m, le 4 jui 2009 à 20:08:54

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 Cordialement, Michel

Répondre à michel_m

pat-bl, le 5 jui 2009 à 08:14:46

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

Répondre à pat-bl

michel_m, le 5 jui 2009 à 09:25:53

J'ai rien compris à ta dernière demande....
--

Répondre à michel_m

pat-bl, le 5 jui 2009 à 11:47:11

Bonjour
je veux faire un copier coller sur les dates en mettant +1 a chaque ligne
merci pat-bl

Répondre à pat-bl

Posez votre question Répondre