macro de distribution

[adkheir]

Bonsoir le forum
Quelqu'un pourrait il m'aider a faire démarrer cette macro de distribution en fichier joint

merci

 

[Compte Supprimé 979]

Re : macro de distribution

Bonjour Adkheir,

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

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+

 

[adkheir]

Re : macro de distribution

bonjour BrunoM45 et le forum
merci d'avoir répondu mais je vous avoue que je suis un peu perdu entre ces lignes vba d'où je vous lance un mayday !!

 

[adkheir]

Re : macro de distribution

Bonjour Adkheir,

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

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+

Bonjour le forum
merci d'avoir répondu, a vrai dire je suis un peu perdu entre ces lignes vba , d'où je lance un mayday au forum