Corrigé 14.14 Utiliser des cases à cocher

Initialisation :

Private Sub UserForm_Initialize()  
  With Worksheets("Feuil1")  
    chk1.Caption = .Range("E16")  
    chk2.Caption = .Range("E17")  
    chk3.Caption = .Range("E18")  
    With .Range("D16:D18")  
      .Font.Name = "Wingdings 3"  
      .Font.Size = 14  
      .VerticalAlignment = xlCenter  
      .HorizontalAlignment = xlRight  
    End With  
  End With  
  strChemin...
Pour consulter la suite, découvrez le livre suivant :
couv_TP21EXCV.png
60-signet.svg
En version papier
20-ecran_lettre.svg
En version numérique
41-logo_abonnement.svg
En illimité avec l'abonnement ENI
130-boutique.svg
Sur la boutique officielle ENI
Précédent
Corrigé 14.13 Utiliser des boutons d'option
Suivant
Corrigé 14.15 Intercepter une combinaison de touches