macro de distribution

BrunoM45 à dit:

Bonjour Adkheir,

Tu utiliserais correctement les instructions VBA, plutôt que tes trucs entre crochets,
cela t'éviterait ce genre d'ennuis 🙄

Code:

Sub remplitSalles()
  Dim ShtS As Worksheet, ShtA As Worksheet
  Dim c As Range
  Dim d As Range
  Dim e As Range
  Set ShtS = Sheets("saisie")
  Set ShtA = Sheets("tableau a")
  Set c = ShtA.Range("A1")
  For t = 1 To ShtS.Range("nClasses").Count
    c.Offset(0, 2 * t) = ShtS.Range("nClasses").Cells(t)
  Next
' Etc ...

Maintentant ce que j'en dis ...

A+

Cliquez pour agrandir...