Bonjour à tous,

De l'aide encore
comment faire un boucle sur les 9 listviews pour le code suivant

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
 
With ListView9
 
    If Me.CboPolice = "Times New Roman" Then
        .Font.Name = Me.CboPolice
        .Font.Size = 10
    ElseIf Me.CboPolice = "Monotype Corsiva" Then
        .Font.Name = Me.CboPolice
        .Font.Size = 12
     ElseIf Me.CboPolice = "Tahoma" Then
        .Font.Name = Me.CboPolice
        .Font.Size = 10
     ElseIf Me.CboPolice = "Verdana" Then
        .Font.Name = Me.CboPolice
        .Font.Size = 8
     ElseIf Me.CboPolice = "Arial Narrow" Then
        .Font.Name = Me.CboPolice
        .Font.Size = 11
    End If
 
End With
merci d'avance