Corrigé 6.5 Gérer les collections

6.5.1 : Connaître les noms de toutes les feuilles de calcul du classeur

Sub NomsDesFeuilles()  
  Dim wkbClasseur As Workbook  
  Dim wksFeuille As Worksheet  
  Dim strNoms As String  
  Set wkbClasseur = Workbooks("Introduction Programmation Objet.xlsm") 
  For Each wksFeuille In wkbClasseur.Worksheets  
    strNoms = strNoms & wksFeuille.Name & vbCrLf  
  Next  
  MsgBox strNoms  
End Sub 

6.5.2 : Modifier une ligne sur deux d’une plage de cellules

Sub ModifLigne_1sur2()  
 ...