Working with 3-D Ranges

Si vous travaillez avec la même plage sur plusieurs feuilles, utilisez la fonction Array pour spécifier au moins deux feuilles à sélectionner. L'exemple suivant montre comment mettre en forme la bordure d'une plage de cellules 3D.

Sub FormatSheets() 
 Sheets(Array("Sheet2", "Sheet3", "Sheet5")).Select 
 Range("A1:H1").Select 
 Selection.Borders(xlBottom).LineStyle = xlDouble 
End Sub

L’exemple suivant applique la méthode FillAcrossSheets pour transférer les formats et toutes les données de la plage de la feuille Sheet2 vers les plages correspondantes de toutes les feuilles de calcul du classeur actif.

Sub FillAll() 
 Worksheets("Sheet2").Range("A1:H1") _ 
 .Borders(xlBottom).LineStyle = xlDouble 
 Worksheets.FillAcrossSheets (Worksheets("Sheet2") _ 
 .Range("A1:H1")) 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.