Find date demande d'infos

Résolu
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

  • Votes
  • Date
  • Date décroissante
  1. Contributeur
    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
    1. 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
      1. bonjour
        je veux faire un copier coller sur les dates en mettant +1 a chaque ligne
        merci pat-bl