[XL-2000] Recherche d'une date dans une colonne

juju05 · 22 Janvier 2010

Je dois intégrer le contenu d'une feuille d'un classeur dans une feuille d'un autre classeur à la suite de données déjà existantes.

Dans mon classeur de départ, j'ai une date en cellule A2.

Je souhaite vérifier dans la feuille d'arrivée qu'il n'y ai pas eu déjà d'intégration pour cette date. La date se trouve en colonne A dans la feuille cible.

Je ne sais le faire que "basiquement".

Je :
- me positionne en A2 de la feuille d'origine,
- je récupère la date,
- je me positionne en A2 de la feuille d'arrivée,
- je fais une boucle jusqu' à la fin de ma colonne ou avoir trouvé la date traitée.

Je pense qu'il y a un moyen de faire beaucoup mieux.

Qu'en pensez-vous ?

Merci d'avance.

Pierrot93 · 22 Janvier 2010

Re : [XL-2000] Recherche d'une date dans une colonne

Bonjour juju

regarde si le code ci-dessous peut t'aider :

Code:

Dim x As Range, y As Range, z As Range
Set x = Workbooks("classeur1.xls").Sheets("Feuil1").Range("A2")
With Workbooks("classeur2.xls").Sheets("Feuil1")
    Set y = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Set z = y.Find(x.Value, , xlValues, xlWhole, , , False)
If Not z Is Nothing Then MsgBox "la date est en " & z.Address

bonne journée
@+

[XL-2000] Recherche d'une date dans une colonne

juju05

Guest

Pierrot93

XLDnaute Barbatruc

Discussions similaires

[XL-2000] Recherche d'une date dans une colonne

juju05

Guest

Pierrot93

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency