Elargissement macro
Bonjour à tous, j'ai un fichier qui permet de répartir des données d'une feuille excel à plusieurs autres feuilles selon le numéro de semaine que je renseigne.
Dernièrement, j'ai du rajouter trois colonnes supplémentaires et donc 3 feuilles.
J'ai donc logiquement rajouter ces colonnes (de I à L) cela fonctionne et se réparti correctement seulement, les données ne s'efface pas de la page principale sur ces 3 colonnes comme sur les autres. Cela peut induire en erreur lors du remplissage. Quelqu'un peut il jeter un œil à ce qui pèche ?
Voici mon programme :
Sub Répartition()
Dim Mach As Worksheet
Sem = InputBox("Indiquez la semaine sur laquelle répartir les relevés.", "Répartition")
If Sem = 0 Then
Exit Sub
Else
For Each Opt In Range("A6:A24")
Num = Opt.Value
r = Opt.Row
For Each M In Range("C" & r & ":L" & r)
c = M.Column
App = Cells(5, c)
Set Mach = Sheets(App)
If M = 1 Then Mach.Cells(Sem + 2, Num + 1) = 1
Next M
Next Opt
End If
Range("Check").ClearContents
End Sub
Merci d'avance
bonjour,
adapte la définition de ta plage nommée check (dans excel->formules-> gestionnaire de noms)