date du jour dans une colonne

[Marty]

Bonjour le forum.
Voici ce qui me prend la tête :
je posséde une feuille avec différente date. Je souhaite créer une macro qui examine la colonne A qui contient des dates et, si la date du jour n'est pas trouvé alors, je mets mon action, sinon un message s'affiche : 'la date du jour existe'. Mais voilà, mes capacité xldienne sont limités..... Merci à tout ceux qui pourront m'aider. :silly:

 

[PascalXLD]

Bonjour

essaies

Dim Maligne As Integer
Dim Test As Boolean

Maligne = Range('A65536').End(xlUp).Row

For x = 2 To Maligne
    If Range('A' & x) = Date Then
        Test = True
        Exit For
    End If
Next

If Test = True Then
    MsgBox 'date existe'
Else
    Tonaction
End If

Message édité par: Pascal76, à: 30/03/2006 11:15

 

[ERIC S]

Bonjour

essaie

Sub essai()
derligne = Range('a65536').End(xlUp).Row
For i = 1 To derligne
If Range('a' & i).Value = Date Then
MsgBox ('Date trouvée ligne ' & i)
Exit Sub
End If
Next
' puis ton code
End Sub

A+

 

[ERIC S]

re

Salut Pascal

J'ai l'impression qu'on bosse sur un seul PC et que c'est toi qui avait le clavier en premier

A+

 

[PascalXLD]

Re

LOL

Pour le début de la macro oui mais après tu as fait un peu plus court

M'enfin on pourrait presque bosser ensemble c'est pas la distnace qui génerait

Bonne journée

 

[pierrejean]

bonjour Marty

Salut Eric, Pascal

voici ce que j'avais pondu certes moins elegant mais qui fonctionne avec par exemple
MAINTENANT dans une cellule

Sub test()
For n = 1 To Range('A65536').End(xlUp).Row
If Format(Cells(n, 1), 'dd/mm/yyyy') = Format(Now(), 'dd/mm/yyyy') Then
MsgBox ('La date existe')
Exit Sub
End If
Next
'action
End Sub

edition : correction suite à remarque de Pascal voir ci-dessous

Message édité par: pierrejean, à: 30/03/2006 12:38

 

[PascalXLD]

Re

Pierrejean tu as une pettite erreur dans ton code

il ne faut pas lancer l'action sur ton else mais après le next sinon la première cellule qu'il teste si c'est pas la date du jour il lance l'action puis il teste la 2ème et si c'est pas la date du jour il lance l'action etc même si la date se trouve plus bas dans la colonne

Message édité par: Pascal76, à: 30/03/2006 11:58

 

[pierrejean]

exact

j'edite pour ne pas laisser trainer mon anerie

merci

 

[mutzik]

Bonjour le fil,

Ouis mais comment on va faire pour remplir notre ZOP, si on édite à chaque fois et qu'on corrige les erreurs! hein! j'vous l'demande ! hein !

lol chez moi dehors, il y a un Magnifique Vent Printanier

 

[PascalXLD]

RE

Ah non pierre jean c'est pas du jeu

Dans ce cas là comme le dit Bertrand dont les cheveux volent au Magnifique Vent Printanier tu vas faire un tour dans le zop et tu t'inscris comme membre à part entière

Bonne journée

 

[Marty]

Bonjour Pascal 76, Eric S et Pierrejean,
Merci à tous, les codes fonctionnent parfaitement, c'est tout à fait ce que je recherchais. Merci encore et à bientôt.