rechercher une date à partir d'un combobox

Marsh Posté le 26-09-2008 à 15:08:29

Salut

Voilà mon problème :
je sélectionne une date à partir d'un combobox ; jusque là ça va .
ensuite je recherche la date sélectionnée dans une plage définie qui contient plein de dates ; je n'y arrive pas :??:
pour cela j'utile la fonction "Find"

Voilà ma ligne de programmation :
Worksheets("Saisie" ).Range("C1:N1" ).Find(dates).Select

Merci pour votre aide :bounce:

Message cité 1 fois

Reply

Marsh Posté le 26-09-2008 à 15:08:29

Reply

Marsh Posté le 26-09-2008 à 15:21:33

ooliverr a écrit :

Salut

Voilà mon problème :
je sélectionne une date à partir d'un combobox ; jusque là ça va .
ensuite je recherche la date sélectionnée dans une plage définie qui contient plein de dates ; je n'y arrive pas :??:
pour cela j'utile la fonction "Find"

Voilà ma ligne de programmation :
Worksheets("Saisie" ).Range("C1:N1" ).Find(dates).Select

Merci pour votre aide :bounce:

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

Reply

Marsh Posté le 29-09-2008 à 13:37:33

cela ne fonctionne pas mais je n'ai peut être pas assez détaillé ma demande:
- format de mes dates dans la feuille "Saisie" et dans la combobox = mmm-yy
- je sélectionne la date dans la combobox
- je recherche cette date dans la plage "C1:N1"
- une fois la date trouvée, j'active la cellule correspondante

voilà

à nouveau merci pour votre aide

Reply

Marsh Posté le 29-09-2008 à 14:01:27

Du coup, tente un :

Code :

private sub nom-de-ta-combobox_change
for i = 0 to 11
if instr(sheets("nom_de_ta_feuille" ).cells(1, 3+i), sheets(feuille).nom_de_ta_combobox.value) <> 0 then: sheets("nom_de_ta_feuille" ).cells(1, i).select
next i
end sub

Message édité par Moonschild le 29-09-2008 à 14:23:04

---------------
Si Le Travail C'est La Santé, Donnez Le Mien A Quelqu'un De Malade

Reply

rechercher une date à partir d'un combobox

Sujets relatifs:

Leave a Replay