XL 2019 vérifier des check dans une listview

[youguybass]

Bonsoir
je voudrais un code qui "exit sub" si aucune ligne n'a été "chekée" dans une listview

j'ai essayé :

Dim j As Integer
With ListView2
For j = 1 To .ListItems.Count
If .ListItems(j).Checked = False Then
MsgBox ("aucune ligne n'a été sélectionnée, veuillez en sélectionner une"): Exit Sub
End If
Next

End With

et cela ne marche pas , si une ligne est checker après la 1° cela ne fonctionne pas
D'avance merci

 

[sylvanu]

Bonsoir Youguybass,
Il existe tellement de configuration dans un userform que sans fichier test difficiel de répondre.
Un ex en PJ. On a un userform. Si on valide sans rien sélectionné un message dit "Aucune ligne sélectionnée."
Si une valeur est sélectionnée alors un message indique quelle valeur a été sélectionnée.
Je ne sais pas si ça répond à votre besoin, mais peut être une piste.

Private Sub ComboBox1_Change()
With Sheets("Feuil1")
    MsgBox "Valeur " & ComboBox1.Value & " sélectionnée."
    Unload UserForm1
End With
End Sub
Private Sub CommandButton1_Click()
With Sheets("Feuil1")
    If ComboBox1.Value = "" Then
        MsgBox "Aucune ligne sélectionnée."
    End If
End With
End Sub

 

[youguybass]

Bonjour
Le fichier est énorme et comporte des données confidentielles, donc je ne le transfert pas
Je veux juste trouver, detécter dans une listvew (pas une combobox) si au moins une ligne est checkée,cochée attention pas selectionnée, mais bien chéckée.
slts

Private Sub BtnValidationDossier_Click()
Dim Lug As Long, K As Long, Col As Long, N As Integer, Lg As Integer, LstItem As ListItem, log, Op, E

ListView2.ListItems(1).Selected = False
Set ListView2.SelectedItem = Nothing

E = ListView2.ListItems.Count
For E = 1 To E
If ListView2.ListItems(E).Checked = True Then
 GoTo suite ': Exit For
End If
Next
MsgBox "Aucune ref n'a été selectionnée": Exit Sub



suite:
Set LstItem = ListView1.SelectedItem
If LstItem Is Nothing Then

Lug = Feuil10.[A65000].End(3).Row + 1: Lig_Fiche = ""
Feuil10.Cells(Lug, 1) = TextBox22.Value
Else

Lug = Lig_Fiche
Feuil10.Activate
Range(Cells(Lug, 6), Cells(Lug, 100)).ClearContents
'Next
End If

With Feuil10
 .Cells(Lug, 2) = Txt2

E = 5
For Op = 1 To 27
 .Cells(Lug, E) = Controls("Ctrl" & Op)
E = E + 1
Next

K = 34
N = ListView2.ListItems.Count
For N = 1 To N
'ListView2.ListItems.Add N, , N
.Cells(Lug, K) = ListView2.ListItems(N).SubItems(1)
If ListView2.ListItems(N).Checked = True Then .Cells(Lug, K + 1) = "Actif"
K = K + 2
Next


E = 64
For Op = 1 To 23
If Controls("Euro" & Op) <> "" Then
 'Feuil10.Cells(Lug, E) = CDbl(Controls("Euro" & Op))
  Feuil10.Cells(Lug, E) = Val(Controls("Euro" & Op))
Else
Feuil10.Cells(Lug, E) = 0
End If
E = E + 1
Next


End With

Call Balais
Call CompleteListview1

Call NumFiche
Txt2.Locked = False



End Sub

 

[youguybass]

la solution tout simplement :

For E = 1 To ListView2.ListItems.Count
If ListView2.ListItems(E).Checked = True Then
 GoTo suite ': Exit For
End If
Next
MsgBox "Aucune ref n'a été selectionnée": Exit Sub
suite: