M
Manporta
Guest
hello à vous,
Petit soucis sur une macro, je trouve pas le problème. Si une âme charitable pouvais m'aider j'en serai très heureux.
Dim Feuille As Variant
Dim Jour As Variant
Dim celulle As Variant
Dim valeur As Byte
celulle = Array("Q13:Q18", "K13:K18", "E13:E18", "c21:C33")
' cellules qui doivent avoir une valeur de 0
Jour = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10")
' noms des feuilles qui sont concernées
valeur = 0
For Each Feuille In Jour
Worksheets(Jour).Select
For Each celulle In ?????
cell.Value = (valeur)
Next
Merci d'avance et encore merci pour toutes les fois où vous m’avez déjà aidé
Petit soucis sur une macro, je trouve pas le problème. Si une âme charitable pouvais m'aider j'en serai très heureux.
Dim Feuille As Variant
Dim Jour As Variant
Dim celulle As Variant
Dim valeur As Byte
celulle = Array("Q13:Q18", "K13:K18", "E13:E18", "c21:C33")
' cellules qui doivent avoir une valeur de 0
Jour = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10")
' noms des feuilles qui sont concernées
valeur = 0
For Each Feuille In Jour
Worksheets(Jour).Select
For Each celulle In ?????
cell.Value = (valeur)
Next
Merci d'avance et encore merci pour toutes les fois où vous m’avez déjà aidé
Dernière modification par un modérateur: