recherche dans une ligne une case sous condition

avoriaz

XLDnaute Junior
bonjour, le forum

voila , je voudrais realiser une recherche dans un tableau suivant la saisie d'un text dans un textbox:

une ligne A1,et des colonnes: suivant la valeur que je tape, je recherche la case ou se trouve le debut de text.Je mets cette case en couleur, et je cible la feuille correspondante..

je vous joints, un tableau pour essayer de me faire mieux comprendre ..

merci pour votre aide ..

avo

Message édité par: avoriaz, à: 17/02/2006 17:33
 

avoriaz

XLDnaute Junior
le fichier a pas passé , je réup

amitié [file name=table.zip size=15219]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/table.zip[/file]

Message édité par: avoriaz, à: 17/02/2006 17:35
 

Pièces jointes

  • table.zip
    14.9 KB · Affichages: 19
  • table.zip
    14.9 KB · Affichages: 13
  • table.zip
    14.9 KB · Affichages: 19

pierrejean

XLDnaute Barbatruc
bonjour avoriaz

vois le fichier
et adapte si necessaire [file name=table1.zip size=19379]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/table1.zip[/file]
 

Pièces jointes

  • table1.zip
    9.4 KB · Affichages: 21
  • table1.zip
    9.4 KB · Affichages: 27
  • table1.zip
    9.4 KB · Affichages: 22
A

avoriaz

Guest
merci pierrejean, pour ta réponse si rapide ..

et bien c'est presque ca, mais j'ai des problèmes de boucle.
En effect a la prochaine valeur recherché, j'arrive pas a deselectionner la valeur precedente recherchée ( qu'elle repasse en noir dans le tableau) pour ensuite recherché la suivante et la mettre en rouge.
ceci en boucle, suivant la valeur recherché au prochain tour ....

ainsi que des problèmes de fluidité, pour faire une recherche et ensuite une suivante, j'ai l'impression que des valeurs restent en memoire .

merci pour ton aide

ci joints: fichier [file name=table2.zip size=23016]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/table2.zip[/file]
 

Pièces jointes

  • table2.zip
    22.5 KB · Affichages: 19

avoriaz

XLDnaute Junior
bonjour, pierre jean ( je bossé de nuit c'est pour ca que les heures sont un peu bizzard)


je viens de regarder la modif, bien je reste toujours bloqué en affichage sur la derniere feuille de la liste A4COMB , et je colorie plus la case trouvé .....


:S

avo
 

pierrejean

XLDnaute Barbatruc
re avoriaz

vois cette fois
j'ais du mettre en commentaire quelques lignes, renommer quelques feuilles et traiter le fait que certaines combinaisons ne sont pas prévues

prend un peu de repos

il n'est pas bon de travailler trop [file name=table3_20060218094628.zip size=21858]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/table3_20060218094628.zip[/file]
 

Pièces jointes

  • table3_20060218094628.zip
    21.3 KB · Affichages: 9

avoriaz

XLDnaute Junior
merci pierre jean,

je viens de regarder,c'est impeccable le moteur de recherche fonctionne comme je le souhaite dans mon application.

je voudrais ajouter 2 points:

* Si je tape la valeur en minuscule ou majuscule le prog dois etre capable de faire la recherche
ici faut taper exactement l'orthographe et respecter les minuscules ou majuscule


* Les valeus saisie auront un orthorgraphe qui ressembleront a ceci

A1 com2,2,2: A1 comb2,4,2: A1 comc8,x,..

je voudrais surveiller juste les debuts d'intituler a1com, A1 comb ,A1 comc

la si je tape A1 com2,2,5 il retrouve pas la feuille A1 com ( apres j'affiche toute les valeurs de A1 com x,x,x dans mon prog , c'est pour reperer directement dans un tableau des milliers d'intituler et afficher leur page de valeur ( c'elle ci dessus sera dans A1 COM)


merci a toi pour ton aide, j'espere ne pas t'ennuyer !!

avoriaz
:unsure: :unsure: :unsure: :unsure:
 

pierrejean

XLDnaute Barbatruc
rebonjour avoriaz

il y a une difficulté à ne prendre en compte que le debut de la saisie
on ne peut pas se fier à la longueur (si je limite à 4 caracteres j'aurais com2 comb)
peut-on faire le test en s'arretant au 1er chiffre (sans le prendre) ??
pour minuscule /majuscule pas de probleme (par contre prevoir de toujours nommer les feuilles en majuscule)

voila
mais regarde bien au niveau du %nw j'ai du modifier egalement la cellule à rechercher [file name=table3_20060218171120.zip size=23980]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/table3_20060218171120.zip[/file]

Message édité par: pierrejean, à: 18/02/2006 17:11
 

Pièces jointes

  • table3_20060218171120.zip
    23.4 KB · Affichages: 12

avoriaz

XLDnaute Junior
re,

oui, on aurra toujours com(chiffre), ou comb(chiffre), ou %NW(chiffre)

et t'il possible de detecter

3 variables lettre alors c'est un com2,2,2
4 variables lettre alors c'est un comb2,2,2
mais le prob:
c'est qu'il y a aussi comc2,2,2

comment faire la dif entre le c et le b:

ceci pour cibler la bonne case et la bonne feuille:

EXEMPLE
quand la personne tape: selection A1

com2,2,2 faut CIBLER A1 COM (detection com)
comb2,2,2 faut CIBLER A1 COMB (detection comb)
comc2,2,2 faut CIBLER A1 COMC (detection comc)

sans oublier
%NW 2,2,2 FAUT CIBLER A1 %nw (si elle existe)

J'essaye d'expliquer au mieux ce que je veux faire :eek:

merci a toi

ps: j'ai pas compris pour le prob si le gas saisie en minuscule ?

avoriaz :unsure:
 

avoriaz

XLDnaute Junior
re,

et bien, impeccable pour la saisie minuscule ou majuscule .. encore un point de reglé..
c'est dingue, quand on li le bout de prob ca parait si simple, mais faut des heures...

je fais donc un essais en reel:
je selectionne A1
je tape une valeur com2,2,2 pour voir si il va me trouver A1 com
et la j'ai :*
erreur vba
erreur 5
Argument ou appel de procedure incorrecte

ca bloque la :
If Asc(Mid(ach, p, 1)) > 47 And Asc(Mid(ach, p, 1)) < 58 Then ach = UCase(Left(ach, p - 1))


J'ai plus l'affichage de cellule trouvé en rouge depuis la fonction ucase
:S

Message édité par: avoriaz, à: 18/02/2006 17:39
 

pierrejean

XLDnaute Barbatruc
re avoriaz

un petit oubli (c'est en principe réparé)

normalement et pourvu que l'on ait toujours un chiffre apres ce que l'on doit chercher la longueur n'est pas importante

pour ce qui est du temps passé tu imagines bien que j'ai quelques autres bricoles dans ma vie



[file name=table3_20060218175112.zip size=25473]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/table3_20060218175112.zip[/file]

Message édité par: pierrejean, à: 18/02/2006 17:54
 

Pièces jointes

  • table3_20060218175112.zip
    24.9 KB · Affichages: 12

avoriaz

XLDnaute Junior
bien ecoute je suis vraiment content, ca fonctionne a merveille, juste un tout petit detail!

pour la valeur selection A1

je sais pas si tu peux faire qqes choses la dessus
bizzard ' com ' seul il le prends, 'com2' il veux pas je mets alors ' com2,' et la ok....

comme ca , si je tape 'com' ca marchera; 'com2' ca marchera et 'com2,2,2' ca marchera aussi

avo
 

pierrejean

XLDnaute Barbatruc
teste ce que j'espere etre la dernière version [file name=table3_20060218194126.zip size=25459]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/table3_20060218194126.zip[/file]
 

Pièces jointes

  • table3_20060218194126.zip
    24.9 KB · Affichages: 16
A

avoriaz

Guest
ca fonctionne impeccable je te remercie , grandement pour ta patience.

une toute derniere chose pour pas appliquer ca a l'aveugle, je comprends tous sauf ceci:

peux tu me decrire cette phrase ...

For p = 1 To Len(ach)
If Asc(Mid(ach, p, 1)) > 47 And Asc(Mid(ach, p, 1)) < 58 Then
ach = Left(ach, p - 1)

merci a toi ..

amitié avo
 

Discussions similaires

Statistiques des forums

Discussions
312 228
Messages
2 086 420
Membres
103 205
dernier inscrit
zch