Grain de sable dans ListBox

Version imprimable

Bonjour à vous.
Un petit problème s'invite dans un userform qui contient un listbox … :(
Dans les paramètres du ListBox, j'ai renseigné 'Rowsource' et ca marche bien.
Afin de modifier le contenu en 'live' de cet objet, j'ai modifié le code du DblClick et ca fonctionne, le contenu se met à jour,
mais à chaque fois je suis obligé de cliquer sur un des éléments du ListBox si je veux utiliser un autre objet de l'userfom !
Je n'ai pas mis de code d'initialisation du userform.
Auriez-vous une idée ?
Je met le code de ce ListBox.
Merci d'avance.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub lstInfoInventaire_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'mise a blanc d'une valeur qui traine ? Application.ScreenUpdating = False Dim f Dim s As Integer Set f = Sheets("Bilan") s = lstInfoInventaire.ListIndex + 3 reponse = MsgBox("Vous allez vider la valeur." & vbCrLf & "Etes-vous SUR(E) ?", vbQuestion + vbYesNo, "Modification d'inventaire") If reponse = 7 Then Exit Sub Else f.Activate f.Range("C" & s).Select Selection.ClearContents End If End Sub

19/12/2018, 06h58
ARTURO83

Bonjour,

J'ai essayé de reproduire votre formulaire, et je ne rencontre pas votre problème.

Pour comparer avec le votre
Pièce jointe 435544

Cdlt
19/12/2018, 07h42
unparia

Bonjour

Citation:

mais à chaque fois je suis obligé de cliquer sur un des éléments du ListBox si je veux utiliser un autre objet de l'userfom !

est semble-t-il le problème que tu rencontres.

Ce comportement correspond vraisemblablement à l'exécution d'autres instructions dans d'autres procédures que tu ne nous montres pas !

EDIT : attends un peu, là ....
Tu vas te promener ailleurs par ton activate et ton select et te plains de ne plus être là où tu étais !
Il est inutile de se "balader" ainsi pour modifier un objet Excel. On s'y réfère, tout simplement. Exemple :

Code:

Worksheets("Feuille1").Range("D3").Value = ....
19/12/2018, 09h43
PasdeSalade

Bonjour unparia

Merci de l'aide.
Je vais essayer de ne pas me "balader", mais c'est parce que j'exécute l'userform depuis une autre feuille (Accueil) et les données à modifier sont dans une autre (Bilan) !!

J'espère que tu as raison.
Je reviens vous dire 'quoi'

Cordialement
19/12/2018, 10h57
unparia

Citation:

mais c'est parce que j'exécute l'userform depuis une autre feuille (Accueil) et les données à modifier sont dans une autre (Bilan) !!

Et ?
Dis-moi : si tu te trouves en Indonésie et as besoin de donner des instructions par téléphone à un correspondant qui se trouve à Java, tu te rends à Java, pour lui téléphoner ? :cfou:

Citation:

Envoyé par unparia

Et ?
Dis-moi : si tu te trouves en Indonésie et as besoin de donner des instructions par téléphone à un correspondant qui se trouve à Java, tu te rends à Java, pour lui téléphoner ? :cfou:

bah, de tête il me semblait avoir essayé autrement, mais sans succès alors ...
Je ne suis pas une 'bête' de VBA mouaaa :?
Mais toute aide est bonne à prendre, sinon aucun intérêt.
Merci.
:zoubi:

Je n'ai pas encore essayé ton astuce .
Bon, je viens de tester en modifiant, toujours pareil ... Obligé de sélectionner un élément de ma liste pour 'libérer' le clic...
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim f Dim s As Integer Set f = Sheets("Bilan") s = lstInfoInventaire.ListIndex + 3 reponse = MsgBox("Vous allez vider la valeur." & vbCrLf & "Etes-vous SUR(E) ?", vbQuestion + vbYesNo, "Modification d'inventaire") If reponse = 7 Then Exit Sub Else f.Range("C" & s).Value = "" End If

19/12/2018, 12h21
PasdeSalade

Citation:

Envoyé par ARTURO83

Bonjour,

J'ai essayé de reproduire votre formulaire, et je ne rencontre pas votre problème.

Pour comparer avec le votre
Pièce jointe 435544

Cdlt

Merci de la réponse.
Cette modification par contre, me laisse cliquer sur le bouton 'Fermer', mais pas l'autre listbox :?

RE,

Citation:

Cette modification par contre, me laisse cliquer sur le bouton 'Fermer', mais pas l'autre listbox Quel est le code de l'autre listbox?

Dans la pièce jointe, J'ai ajouté un bouton "fermer" et cela fonctionne aussi.
Pièce jointe 435628

le code dans le module formulaire:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub Fermer_Click() Unload UserForm1 End Sub Private Sub lstInfoInventaire_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim f Dim s As Integer 'mise a blanc d'une valeur qui traine ? Application.ScreenUpdating = False Set f = Sheets("Bilan") s = lstInfoInventaire.ListIndex + 3 reponse = MsgBox("Vous allez vider la valeur." & vbCrLf & "Etes-vous SUR(E) ?", vbQuestion + vbYesNo, "Modification d'inventaire") If reponse <> 7 Then f.Range("C" & s).ClearContents End Sub
Après, sans voir comment est conçu votre formulaire, c'est pas très évident de trouver une solution à un problème qu'on ne peut recréer.

19/12/2018, 12h48
unparia

Citation:

Obligé de sélectionner un élément de ma liste pour 'libérer' le clic...

Je ne comprends que ce qui est compréhensible.
Je ne comprends pas ce que veut dire libérer un clic (on n'emprisonne pas un clic. On l'effectue. Et une fois effectué, il n'est plus là, LUI). Essaye (bien que je devine) d'appeler un chat un chat et un chien un chien. Que veux-tu "libérer" et qu'entends-tu par "libérer" exactement ? -->> fais cet effort et le reste deviendra évident, y compris pour toi. ;)
19/12/2018, 13h18
PasdeSalade

1 pièce(s) jointe(s)

Citation:

Envoyé par unparia

Je ne comprends que ce qui est compréhensible.
Je ne comprends pas ce que veut dire libérer un clic (on n'emprisonne pas un clic. On l'effectue. Et une fois effectué, il n'est plus là, LUI). Essaye (bien que je devine) d'appeler un chat un chat et un chien un chien. Que veux-tu "libérer" et qu'entends-tu par "libérer" exactement ? -->> fais cet effort et le reste deviendra évident, y compris pour toi. ;)

Quand la procédure d'effacement est terminée, normalement je dois pouvoir cliquer sur un objet, pour déclencher autre chose, mais là cela ne fonctionne pas.
Je suis obligé de sélectionner un élément de la ListBox pour permettre le clic actif (donc le libérer !)
Je joints une partie de mon fichier, peut-être comprendrez-vous mieux.
En déroulant la première liste, je choisi, puis je saisi une valeur pour le prénom correspondant, t valide par le bouton +
Là cela fonctionne bien.
Mais ce foutu double-clic fonctionne aussi, mais me bloque un peu.
L'utilisateur saura qu'il faut faire un clic de plus pour continuer mais bon ...

Merci bcp
19/12/2018, 13h43
unparia

Comme de très nombreux développeurs, je n'ouvre et n'ouvrirai jamais un classeur tiers. ;)
Je ne comprends toujours pas ce que tu cherches à exprimer
- s'il s'agit de désélectionner la sélection faite --->> mets à -1 la propriété listindex de ta listbox à la fin de ta macro
- s'il s'agit d'autre chose : précise-le très clairement
19/12/2018, 18h52
PasdeSalade

Que tu n'ouvres pas un classeur d'un tiers, je le comprend, mais cela m'aiderais surement plus que de me répéter, à mon humble avis mais bon...
Je vais faire autrement, tant pis.
Merci.
19/12/2018, 19h23
unparia

Citation:

mais cela m'aiderais surement plus que de me répéter

Désolé, mais j'insiste : je n'ai absolument aucune raison :
- de courir le moindre risque pour "aider"
- d'encombrer mon disque dur, puis d'en provoquer des fragmentations générées du fait de créations et d'effacements divers
- etc ...
juste pour t'éviter de faire un effort d'exposé clair et complet.
Il s'agit de MA machine, hein ...
Bonne chance.

EDIT : tu devrais (aurais du, d'ailleurs) lire ceci (marqué "important") :
https://www.developpez.net/forums/d8...s-discussions/
19/12/2018, 20h08
unparia

1 pièce(s) jointe(s)

Pour ton information, maintenant :
Mon petit voisin, beaucoup plus jeune et téméraire que moi, a accepté d'ouvrir ton classeur sur SA machine :
Voilà sur quoi il est "tombé"
Pièce jointe 435748
il m'a demandé de le conseiller sur la suite à donner. Devine quel a été mon conseil ... ;)