[Résolu][Calc]Recherchev avec deux critères

[pierre2501]

Pour la bonne tenue de ce forum, veillez à respecter la syntaxe des balises (première lettre en majuscule puis le reste en minuscules, le tout entre crochets). Nous l'avons fait pour vous.

Bonjour et d'abord un grand merci (je me suis largement servi des différentes contributions des membres de ce forum)
j'expose mon problème je souhaite réaliser un suivi de personne en entrée sortie, ils sont identifiés au moyen d'un badge qui sera scanné et on leur attribue une balise qui sera scanné également
Pour ce qui est de l'entrée ça tourne même si je pense que mon codage est plutôt brouillon.
Au niveau de la sortie j'arrive à retrouver le badge mais je ne sais pas comment gérer le fait qu'il faut rechercher le dernier entré, en effet les personnes peuvent entrer et sortir plusieurs fois dans la journée, en gros tester la valeur de a colonne sortie qui doit être vide. J'ai bien essayé avec des imbrications de boucle mais je m'y suis totalement perdu.
Si on pouvait me mettre sur la voie, je joins mon fichier de test.
Merci d'avance

[OOotremer971]

Bonjour,

Je ne comprends pas tes explications. Est-ce que tu peux décrire pas à pas ce que tu attends de ton code à partir de ta boite de dialogue ? Merci

@+

[pierre2501]

Bonjour, ce que je souhaite
si on scanne un numéro de balise le bouton sortie mets l'heure de sortie sur la ligne de la personne qui a pris cette balise ( tout en sachant quelle a pu prendre une balise le matin et la rendre à midi ) En gros que l'heure de sortie correspondes à la dernière heure d'entrée de la personne. (afin de garder un historique)
j’espère avoir été plus clair

[OOotremer971]

Désolé pour le retour tardif, j'étais occupé ailleurs

j’espère avoir été plus clair

Oui c'est un peu plus clair mais tu dis :

si on scanne un numéro de balise le bouton sortie mets l'heure de sortie sur la ligne de la personne qui a pris cette balise

Ok c'est clair mais quand tu scannes, quel champs est renseigné ?

Je ne comprends pas pourquoi ta Sub Rech recherche la valeur du NumericField3 (champs juste au dessus du bouton sortie) dans la colonne A de ta Feuille1.
Comment ce champs est-il renseigné ?

Merci pour tes précisions.

@+

[pierre2501]

Ok c'est clair mais quand tu scannes, quel champs est renseigné ?

On scanne le numéro de balise qui renseigne le NumericField3

Je ne comprends pas pourquoi ta Sub Rech recherche la valeur du NumericField3 (champs juste au dessus du bouton sortie) dans la colonne A de ta Feuille1.
Comment ce champs est-il renseigné ?

Effectivement la recherche doit s'effectuer dans la colonne D je joins le fichier corrigé

En fait j'hésitais entre une recherche sur le badge ou la balise et j'ai oublié de modifier la colonne
Merci encore pour ton intérêt

[OOotremer971]

Bonjour,

Du coup maintenant cela fonctionne. La colonne F est bien renseignée lorsque le numéro de badge est trouvé colonne D.

1) je scanne la balise
2) NumericField3 se rempli
3) j'appuie sur sortie
4) la colonne F se remplie sur la ligne où est trouvé le numéro de balise.

Quelle est alors la difficulté qu'il faut contourner (il y a un truc qui m"échappe). Merci de préciser

A+

Ajout : Finalement après relecture de ton premier message je crois comprendre. C'est ton exemple qui n'est pas tout à fait représentatif du problème rencontré. En fait , le même numéro de balise peut être présent plusieurs fois dans la colonne D ! C'est ça ? et du coup, il faut renseigner la colonne F sur la première ligne non encore remplie trouvée correspondante au numéro de balise scanné. C'est bien ça ?

[pierre2501]

Ajout : Finalement après relecture de ton premier message je crois comprendre. C'est ton exemple qui n'est pas tout à fait représentatif du problème rencontré. En fait , le même numéro de balise peut être présent plusieurs fois dans la colonne D ! C'est ça ? et du coup, il faut renseigner la colonne F sur la première ligne non encore remplie trouvée correspondante au numéro de balise scanné. C'est bien ça ?

Oui c'est tout à fait ça

[OOotremer971]

Oui c'est tout à fait ça

A tester donc :

Code : Tout sélectionner

Sub Rech
Dim sht as object, srch as object, zone as object, v, r, c
Dim trouv as variant, lig as integer, Number as integer
Dim Doc as Object, oFeuil as Object, maColonne as Object, Ocell As Object
sht = ThisComponent.Sheets.GetByName("Feuille1")
zone = sht.getCellRangeByName("D1:D200")
srch = zone.createSearchDescriptor
Number4 = oDialog1.getControl("NumericField3").value
with srch	
	.SearchString = Number4
	.SearchWords = true
	.SearchType = 1
End with
trouv = zone.FindFirst(srch)
if isNull(trouv) then
	msgbox("Balise non trouvée !")
else
	lig = trouv.CellAddress.row
	test = sht.GetCellByPosition(5,lig).Value		
	Do While test > 0
		trouv = zone.findNext(trouv, srch)
		if isNull(trouv) then
			msgbox("Cette balise est déjà horodatée !")
			exit sub
		else
			lig = trouv.CellAddress.row
			test = sht.GetCellByPosition(5,lig).Value		
		end if
	Loop
	ThisComponent.CurrentController.Select(sht.GetCellByPosition(5,lig).setValue( Now() )			
 	sht.NumberFormat = 41
end if
end sub

@+

[pierre2501]

C'est super c'est ce que je recherchais un grand merci
Reste plus qu'a essayer de comprendre ce que tu as fait et à continuer mon appli
Encore une fois un immense merci à toi OOotremer971