[XL-2007] Boucle Sur listview Pour changer le Font

Boucle Sur listview Pour changer le Font

Bonjour à tous,

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

Code:

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

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:

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 :aie:
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 = "")

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