Grain de sable dans ListBox

**PasdeSalade** · 18/12/2018, 23h24

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**ARTURO83** · 19/12/2018, 06h58

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

**unparia** · 19/12/2018, 07h42

Bonjour

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Feuille1").Range("D3").Value = ....

**PasdeSalade** · 19/12/2018, 09h43

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

**unparia** · 19/12/2018, 10h57

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 ?

**PasdeSalade** · 19/12/2018, 11h53

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 ?

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.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**PasdeSalade** · 19/12/2018, 12h21

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

**ARTURO83** · 19/12/2018, 12h44

RE,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**unparia** · 19/12/2018, 12h48

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.

**PasdeSalade** · 19/12/2018, 13h18

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

**unparia** · 19/12/2018, 13h43

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

Grain de sable dans ListBox [XL-2016]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager