Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1923 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  rechercher une date à partir d'un combobox

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

rechercher une date à partir d'un combobox

n°1792497
ooliverr
Posté le 26-09-2008 à 15:08:29  profilanswer
 

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:

mood
Publicité
Posté le 26-09-2008 à 15:08:29  profilanswer
 

n°1792519
Moonschild
Posté le 26-09-2008 à 15:21:33  profilanswer
 

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 :
  1. col = 3
  2. 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
  3.   col = col +1
  4. wend
  5. If sheets("Saisie" ).cells(1, col).value <> ""  then 'verifie que l'arret a eu lieu parce qu'il a trouvé la date
  6.   msgbox("la cellule contenant la date est ligne 1 et colonne " & col)
  7. 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
n°1793331
ooliverr
Posté le 29-09-2008 à 13:37:33  profilanswer
 

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

n°1793341
Moonschild
Posté le 29-09-2008 à 14:01:27  profilanswer
 

Du coup, tente un :

Code :
  1. private sub nom-de-ta-combobox_change
  2. for i = 0 to 11
  3.   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
  4. next i
  5. 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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  rechercher une date à partir d'un combobox

 

Sujets relatifs
[ASP] Recuperer une date asp dans du javascript HELPRechercher un nom dans un fichier
Mise en forme d'une datePb dans la construction d'un arbre à partir d'une branche en php.
la date d'un item rss ne passe pas au validatormontrer/cacher div a partir d'un <select><option>
problème avec XSL pour générer HTML à partir de XML[batch]fichiers modifiés après une certaine date
afficher la date et l'heuretext combobox et textbox
Plus de sujets relatifs à : rechercher une date à partir d'un combobox


Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)