Find date demande d'infos

Résolu
pat-bl Messages postés 9 Statut Membre -  
pat-bl Messages postés 9 Statut Membre -
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

4 réponses

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
  2. pat-bl Messages postés 9 Statut Membre
     
    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
  3. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    J'ai rien compris à ta dernière demande....
    --
    0
  4. pat-bl Messages postés 9 Statut Membre
     
    bonjour
    je veux faire un copier coller sur les dates en mettant +1 a chaque ligne
    merci pat-bl
    0