Discussion :

[salhix]

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

[joe.levrai]

Bonjour,

à quel moment doit s'effectuer la mise à jour ?

si tes listview sont numérotés de 1 à 9, un exemple, tu peux boucler en utilisant leur numéro :

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
Dim Taille As Integer
Dim i As Integer
    With Me
        Select Case .CboPolice.Value
            Case "Verdana"
                Taille = 8
            Case "Times New Roman", "Tahoma"
                Taille = 10
            Case "Arial Narrow"
                Taille = 11
            Case "Monotype Corsiva"
                Taille = 12
        End Select
 
        For i = 1 To 9
            With .Controls("Listview" & i)
                .Font.Name = Me.CboPolice.Value
                .Font.Size = Taille
            End With
        Next i
    End With

à adapter au contexte qui .... est manquant dans ta description
attention à la sécurité ! Si la valeur de ton combobox n'est pas un nom de police, ça va planter, il faut prévoir :

- une taille par défaut (bloc "Case Else" à mettre en place)
- une police par défaut (tester si le listindex = -1 et si le .value = "")

[salhix]

mille merci Mr joe.levrai pour ta réponse c'est ce que je veux
ça marche a merveille