Discussion :

[reinruof77]

Bonjour a Tous le forum

Voila j'ai une macro qui pose problème
Dans un userform (recherche) j'ai une macro qui permet de récupérer les informations qui ce trouve dans ma listview et qui lance une impression.

en tout cas c'est ce que cela devrais faire.

or j'ai un problème sur une ligne de code

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
20
21
22
Private Sub Bt1_Click()
    Dim i&, n&, lig&
    n = 0
    For i = 1 To ListView1.ListItems.Count
        If ListView1.ListItems.Item(i).Checked Then n = n + 1
    Next i
    If n = 0 Then MsgBox "Vous n'avez Sélectionné aucune ligne de la listview à Imprimer!", , "Manque de sélection": Exit Sub
    Application.ScreenUpdating = 0
    With Feuil1
        For i = 1 To ListView1.ListItems.Count
            If ListView1.ListItems.Item(i).Checked Then
                lig = i + 2
 
                Sheets("Fiche site").Range("C3") = .Cells(lig, 1) ' Ligne qui pose problème
Unload Me
'Unload Userform3
                Call impr
            End If
        Next i
    End With
    MsgBox "Votre Impression Groupée est terminée!", , "Impression Groupée"
End Sub

Et je ne vois pas ou est mon erreur

Merci pour vos lumieres

[Menhir]

or j'ai un problème sur une ligne de code

Quelle ligne de code ?
Quelle problème ? Dysfonctionnement (qu'est-ce qui ne convient pas) ? Message d'erreur (quel message) ?