Moonschild |
Essaye avec un while :
Code :
- col = 3
- while datediff("d", sheets(feuille).combobox.value, sheets("Saisie" ).cells(1, col).value) = 0 and sheets("Saisie" ).cells(1, col).value <> "" 'se deplace tant que la date n'est pas celle de la combobox et qu'il n'a pas atteind la fin de la liste
- col = col +1
- wend
- If sheets("Saisie" ).cells(1, col).value <> "" then 'verifie que l'arret a eu lieu parce qu'il a trouvé la date
- msgbox("la cellule contenant la date est ligne 1 et colonne " & col)
- endif
|
Par contre, ce code ne fonctionne que s'il n'y a qu'une date par cellule...
J'espere t'avoir aidé  ---------------
Si Le Travail C'est La Santé, Donnez Le Mien A Quelqu'un De Malade
|