Discussion :

[bvalenza]

Bonjour au forum et merci pour votre aide

J'ai un formulaire avec une listview qui m'affiche les données provenant d'une feuille "CAISSE" A1100"
Tout se passe bien

Ce que j'aimerais pouvoir faire c'est lorsque je double-clique sur un item de la liste,
la feuille "CAISSE" est sélectionnée et qu'on se positionne automatiquement sur la ligne concernée

Je pense qu'il faut utiliser : ListView1.ListIndex
mais je n'y arrive pas

Pourriez-vous me conseiller
merci beaucoup de votre aide

[BENNASR]

Bonjour
peut être c'est ça :

Code :

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

1
2
3
4
5
6
7
8
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim LI As String
LI = Me.ListBox1
With Sheets("CAISSE")
        Sheets("CAISSE").Range(LI).Select
        Unload UserForm1
End With
End Sub

Bonne continuation

[bvalenza]

Bonjour et merci pour ta réponse
j'ai essayé ton code, mais il me renvoie comme message
erreur de compilation, la déclaration de la procédure ne correspond pas à la description de l'évènement ou de la procédure de même nom

J'ai pourtant le bon nom de contrôle...

[bvalenza]

j'ai mis ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub ListView1_doubleclick(Cancel As Integer)
 
Dim LI As String
LI = Me.ListView1
With Sheets("CAISSE")
        Sheets("CAISSE").Range(LI).Select
        Unload UserForm6
End With
 
End Sub

là je n'ai plus de message d'erreur mais rien ne se passe

[BENNASR]

Vérifier le non de fichier
le nom de l'userform
nom de listbox
normalement la ou il y a l'erreur

Ou bien ça :

Code :

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

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

[bvalenza]

j'appelle bien les bons noms

maliste = listview1
mon formulaire =userform6
ma feuille = ca

et lorsque je personnalise j'ai le message d'erreur

Code :

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

1
2
3
4
5
6
7
8
Private Sub ListView1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim LI As String
LI = Me.UserForm6.ListView1
With Sheets("CAISSE")
        Sheets("CAISSE").Range(LI).Select
        Unload UserForm6
End With
End Sub

[BENNASR]

Si c'est inévitable et vu que je suis aussi débutant et autodidacte en VBA, insère un fichier test avec des données bidons et je vais voir

[bvalenza]

MODIF - GESTION DES STOCKS.xlsm

ci-joint le fichier. Mon bouton d'appel du formulaire se trouve sur la feuille AFFECTATION
merci beaucoup pour ton aide

[BENNASR]

désoléééééééé
ma réponse concerne listbox et non pas listviex...tjr comme ça les débutant
j'ai trouvé ça sur le net

Code :

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

1
2
3
4
5
6
Private Sub ListView1_DblClick()
lig = ListView1.SelectedItem.Index + 1
Sheets("CAISSE").Select
Sheets("CAISSE").Cells(lig, "A").Select
Unload Me
End Sub

qu'est ce que ça donne svp ??

[bvalenza]

C'est extra !!!!
ça marche impeccable
un très grand merci à toi