Selection de plage sur colonne

Bonjour à tous,

j'ai un soucis pour une sélection de plage de valeurs.

Private Sub Workbook_Open()

Dim T_Date

T_Date = Date

If T_Date = Columns("K").Value Then

MsgBox "Prélevement Pathogénes aujourd'hui"

End If

End Sub

Dans le principe de fonctionnement:

Dans ma colonne K , de K9 à K20 exactement, j'ai des dates.

Quand une des dates de la colonne est la date du jour, je souhaite que un message s'affiche.

j'ai essayé avec " range, columns ", et en intercalant ":" et ";" entre les cellules K9 et K20 afin de sélectionner celles située entre deux

mais cela ne marche pas.

Avec une seule valeur, 'j'ai testé avec K9 hier et K9 contient la date du 16/01/17 cela fonctionne.

mais dès que je veux mettre une série de dates, cela ne fonctionne plus.

Du coup je suis un peu perdu.

Un petit coup de main serait le bienvenu, surtout que a mon avis, c'est simple mais je n'ai pas mis le doigt dessus.

Merci par avance

Skylines

Bonjour

Teste ceci (à mettre dans le ThisWorkbook)

Private Sub Workbook_Open()
    Dim T_Date, i%
        T_Date = Date
            For i = 9 To 20
                If Cells(i, 11) = T_Date Then
                    MsgBox "Prélevement Pathogénes aujourd'hui"
                End If
            Next i
End Sub

Nickel, ça marche.

Si tu as le temps, peux-tu m'expliquez stp

Je pense avoir compris que tu utilise "i" pour remplacé les valeurs des cellules.

Par contre j'ai pas saisi pourquoi tu utilise "11"(nombre de valeur dans la colonne )

A moins que, je ne vois pas de "K" indiquant la colonne "K" donc tu lui dis d'appliquer cette fonction uniquement au colonne contenant 11 valeurs.

Re,

Non en fait Cells(i,11) correspond

pour le i tu as deviné de la ligne 9 à 20 (For i = 9 To 20)

et le K au numéro de la colonne (A=1, B=2,.....K=11)

donc au début, il regarde si la date du jour est dans K9, le Next i lui fait pendre la cellule K10 etc

c'est ce qui se nomme une boucle

Arrivé à K20, si rien n'est trouvé, pas de message. Sinon si une date correspont à la date du jour, il affiche le message

Pour voir le fonctionnement, en étant sur le dévellopeur, tu lance la macro avec la touche F8 par appuis successifs sur F8 tu verras le déroulement de la procèdure

OK 11 est le numéro de colonne.

ça marche pour moi.J"ai pigé

merci pour le coup de main

Je pense que c'est à un modo de clore le sujet.