Copie de valeur de listview dans un masque

[aubelix]

Bonjour à tout le forum.

Je viens une fois de plus solliciter votre aide.
J'ai trouvé sur le site divers programmes que j'ai essayé d'adapter à mon projet.
Mais je bloque au niveau de la recopie dans un masque de la valeur trouvée dans une listvew.
Je joints un fichier avec les explications.
Par avance merci

Cordialement.

[aubelix]

Bonsoir.

Je renouvelle ma requête, comment puis-je récupérer les données
de la ligne sélectionnée dans la listvew ?
Merxi pour votre aide
Cordialement.

[Bebere]

bonjour Aubelix
une 1ère proposition
à bientôt

[aubelix]

Bonsoir à tous et à chacun.

Je renouvelle ma requête concernant la copie de la valeur trouvée de la listeview
vers la feuille "masque_impression". Les recherches se feront une par une.
Et copiées les unes sous les autres...
Par avance merci de votre aide.

Cordialement.

[aubelix]

Bonjour le Forum et un bonjour particulier à Bebere.

Désolé, je n'avais pas lu ta répponse.
Elle fonctionne bien. Mais le seul souci c'est lors de recherches
et de copies au-delà de la cellule B17 dans la feuille"masque_impression"
les copies des REF trouvées, continuent d'être copiées au-delà du masque.
Comment afficher une message box si le masque est plein et de demander
l'impression ou l'effacement des anciennes REF.

Par avance merci. Et encore désolé d'avoir zappé ta réponse.
Cordialement.

[Bebere]

bonjour Aubelix
j'ai mis un mot dans le fichier
à bientôt

[aubelix]

Bonjour matinal Bébereet le Forum.
Par respect pour ton travail, je me suis connecté tôt pour te répondre.
Tout d'abord un grand merci de t'intéresser à mon problème.
J'ai testé ta nouvelle procédure, elle est effectivement plus pratique.
Elle évité de saisir en manuel les REF à rechercher, moins de risques d'erreurs.
Elle fonctionne quand on trouve 11 REF qui sont recopiées dans le masque d'impression.
Lorsqu'on quitte on les trouve bien...
Mais aucune proposition de les imprimer ou sauvegarder ce masque sous un
nom par exemple la date du jour.
Lorque le masque est plein, aucune possibilité de faire une nouvelle recherche
dû peut-être au fait qu'on ait pas effacer les anciennes données.
(lié au problème de non demande d'impression ou de sauvegarde évoqué ci-dessus)

En attendant de te lire, bonne journée à toi.
Cordialement.

[Bebere]

salut Aubelix
masque est effacé avant de nouvelles entrées
imprimer y était mais mis en commentaires
si tu réponds oui au message le masque est imprimé et la sélection effacée de la listbox
tu peux recommencer jusqu'à la vider
autre possibilité marquer les lignes faites dans la base et réinitialiser la listbox
à bientôt

[aubelix]

Bonsoir Bebere et le Forum.

Merci pour ton travail.
Ci-dessous les remarques suite à un test de la nouvelle mouture:

- Pourquoi sélectionner 4 REF pour activer le bouton "Valider et lecture dans listview"
Avoir la possibilté de l'activer dès la selection d' 1 Référence.

- Bug lors de la visualisation d'une fiche arrêt sur cette ligne de commande :

Private Function veriflig()
....
....

ligne1 = Mid(.ListItems(i).Key, 2, 50)

Merci pour ton aide.
Cordialement.


-

[Bebere]

salut Aubelix
je me suis occupé de remplir le masque(commandbutton7) avec 11 lignes
4 est le reste,si tu veux autre chose explique
dans listbox1_change,tu mets la ligne avant end sub en commentaire(' devant la ligne)
dans UserForm_Initialize() tu mets CommandButton9.Enabled = False en commentaire
dans CommandButton9_Click tu mets CommandButton9.Enabled = False en commentaire
de toute façon dans veriflig il ya cette ligne1 = Mid(.ListItems(i).Key, 2, 50),key n'est pas créé dans le code??
à bientôt

[aubelix]

Bonjour Bebere et le Forum.
Merci pour ta réponse.

- Le problème sur visualiser la fiche n'est toujours pas résolu.
Je vais essayer d'être clair :

Pouvoir faire des recherches simples ou multiples et copier la REF ou les REF sélectionnées
via le "CommandButton7".

Pouvoir reprendre la recherche à tout moment sans effacer les REF copiées si la quantité
est inférieure à 11 dans le "masque_impression". (B8 à B18)

Au-delà de 11 REF, afficher un message pour avoir le choix de les imprimer ou de garder
ces 11 REF.

Merci pour ton aide.
Cordialement.