valeur plage de cellules non contigues

[Manporta]

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é

 

[jmps]

Re : valeur plage de cellules non contigues

Bonjour Manporta,

Je ne comprends pas trop ce que tu veux faire.
Déjà je déclarerais Feuille As Worksheet, Jour as Byte, Cellule avec deux ailes devant et une derrière

Après, un petit fichier exemple nous aiderait à t'aider.

 

[Manporta]

Re : valeur plage de cellules non contigues

Bonjour Jmps,
Dans les grandes lignes, je voudrais remettre a zéro la valeur de certaine cellule (celle en font jaune sur la feuille 1) pour toutes les feuilles nommée de 1 à 10 (il y a ensuite une feuille a ne pas modifier et des feuilles de 11 à 20 etc jusqu'au 31)

Merci de tout coeur de prendre un peu de temps pour moi

 

[jmps]

Re : valeur plage de cellules non contigues

A tâtons...

Testé plus ou moins.
Si j'ai bien compris ton objectif.

Dis-moi.

 

[Manporta]

Re : valeur plage de cellules non contigues

super Jmps, c'est exactement ce que je voulais.

Merci

 

[jmps]

Re : valeur plage de cellules non contigues

Alors ça me fait plaisir
Bonne continuation.

 

[Manporta]

Re : valeur plage de cellules non contigues

Hello Jmps,
Petit soucis pour ajouter des feuilles, j'ai mis le fichier au complet
Si c'etais possible de jeter un petit coup d'oeil au 2 macro se serai super sympa.

Bravoure et gentillesse, là est la sagesse

Merci
Manu

 

[jmps]

Re : valeur plage de cellules non contigues

Ho Manu !
Tu descends ?
Et pourquoi faire ?
J'ai une petite idée sur ton problème mais faudra attendre demain (enfin tout à l'heure).
Là j'ai rendez-vous avec Morphée.

Je me doutais bien que le fil n'en resterai pas là

 

[Manporta]

Re : valeur plage de cellules non contigues

pas de probléme Jmps,
Morphée m'appelais aussi.
Je te remercie pour ton aide

 

[jmps]

Re : valeur plage de cellules non contigues

Bonjour Manu,

Normalement c'est ok pour les remises à zéro bien que non testé.
Par contre, pas compris ta deuxième requête.
Voir commentaires dans la macro.

 

[Manporta]

Re : valeur plage de cellules non contigues

Bonjour Jmps,
Super si la remise à zéro est ok.

Pour la fin de la macro remiseazero. je met une formule pour récupérer la valeur de la feuille précédente (exemple: en feuille"2"cellules a43 = feuille"1" cellule a43). dans le fichier joint feuilles 2 et 3 en exemple ( j'ai mis les cellule en vert)

Dans la deuxième macro, qui fonctionne mais qui est lente. je déprotège la feuille "facturation", copie les données se trouvant dans les celulles ( aa15:ao36) de chaque feuilles (de "1" à "31") , colle les valeurs (en a6 pour la feuille "1", en a28 pour la feuille "2" et ainsi de suite) dans la feuille "facturation" , trie en n'affichant que les cellules pleine (a6:a668), puis protège la feuille "facturation".

Un peu lourd comme explication