Macro qui fait défiler un cycle de cellules dans un cadre ?
Bonjour,
Soit un cadre (en rouge) de 6 semaines qui correspondent à 1 mois (6 semaines peuvent se chevaucher dans un mois).
Soit un cycle de menus de 8 semaines.
Ce cycle de menu se répète sur 6 mois.
Ainsi en septembre nous aurons 5 semaines du Cycle qui se chevaucheront : le samedi et dimanche de la semaine 2 du cycle, puis semaines 3 ; 4 ; 5 et 6 du cycle.
Je souhaite créer une Macro simple qui fasse défiller les huits semaines du cycle dans le cadre rouge jusqu'à ce que j'obtienne la bonne adéquation semaine du cycle/semaine du mois selon le mois considéré.
Ainsi en octobre j'aurai la semaine 8 du cycle qui sera en position 1 dans le cadre rouge. J'aimerai une macro qui en appuyant sur le bouton me permmette de faire défiler les semaines du cycle dans le cadre jusqu'à ce que j'obtienne la semaine 8 du cycle en position 1 (et donc la semaine 1 du cycle en position 2 etc...).
Cf fichier joint pour visualiser
En vous remerciant d'avance pour toute idée !
Vincent
Bonjour,
Je crains que ta demande reste vaine.
Peux-tu être plus précis ?
Je ne comprends pas tout
Bonjour,
Effectivement j'ai écris ma demande tard, et j'avais l'esprit moins clair... J'ai créé des macros dans le fichier pour que ce soit plus clair.
Ma question est comment faire défiler par une seule macro des cellules dans un cadre fixe soit par exemple cadre=les cellules entre E14/F14 et E37/F37 (représenté par une forme dans le fichier ci joint)).
Actuellement de dois passer par 8 macros pour effectuer la manip...
D'autre part, comment désactiver le message "voulez vous remplacer le contenu des cellules de destination" ?
Merci bien !
Vincent
Merci Banzai ! C'est parfait!
Beaucoup plus simple que mes huits macros...
Bonne journée,
Vincent
Re-bonjour Banzai,
Premièrement merci beaucoup pour cette macro! Je pense avoir compris le fonctionnement.
J'ai modifié le fichier avec une difficulté en plus, le cadre n'est plus Tablo = Range("C3:I85")
Mais plusieurs petits cadres ->
("C3:I14,C16:I16,C18:I27,C29:I29,C31:I40,C42:I42,C44:I53,C55:I55,C57:I66,C68:I68,C70:I79,C81:I81,C83:I92")
("C16:I16,C18:I27,C29:I29,C31:I40,C42:I42,C44:I53,C55:I55,C57,C57:I66,C68:I68,C70:I79,C81:I81,C83:I92, C94:I94, C94:I105")
donc on avait :
Sub DefilementPlus()
Dim Tablo
Tablo = Range("C3:I85")
Range("C87:I97").Copy Range("C3")
Range("C15:I97") = Tablo
End Sub
J'ai transformé en
Sub DefilementPlus()
Dim Tablo
Tablo = Range("C3:I14,C16:I16,C18:I27,C29:I29,C31:I40,C42:I42,C44:I53,C55:I55,C57:I66,C68:I68,C70:I79,C81:I81,C83:I92")
Range("C94:I105").Copy Range("C3")
Range("C16:I16,C18:I27,C29:I29,C31:I40,C42:I42,C44:I53,C55:I55,C57,C57:I66,C68:I68,C70:I79,C81:I81,C83:I92,C94:I105C16:I16,C18:I27,C29:I29,C31:I40,C42:I42,C44:I53,C55:I55,C57,C57:I66,C68:I68,C70:I79,C81:I81,C83:I92, C94:I94, C94:I105") = Tablo
End Sub
Sub DefilementMoins() PAS ENCORE MODIFIE...
Dim Tablo
Tablo = Range("C15:I97")
Range("C3:I13").Copy Range("C87")
Range("C3:I85") = Tablo
End Sub
En exécutant la nouvelle macro Défilement +, ça a marché une fois puis Pbm débogage ne marche plus. et la semaine 1 a disparu. Quelle est l'erreur dans le script ?
> cf fichier joint
Merci d'avance,
Vincent
Après quelques corrections de script, ça marche toujours pas, bonne reconnaissance du Cadre mais tout est décalé...
dernier script :
Sub DefilementPlus()
Dim Tablo
Tablo = Range("C3:I3,C5:I14,C16:I16,C18:I27,C29:I29,C31:I40,C42:I42,C44:I53,C55:I55,C57:I66,C68:I68,C70:I79,C81:I81,C83:I92")
Range("C94:I94").Copy Range("C3")
Range("C96:I105").Copy Range("C5:I14")
Range("C16:I16,C18:I27,C29:I29,C31:I40,C42:I42,C44:I53,C55:I55,C57:I66,C68:I68,C70:I79,C81:I81,C83:I92,C94:I94,C96:I105") = Tablo
End Sub
Bonjour
vincentt a écrit :J'ai modifié le fichier avec une difficulté en plus, le cadre n'est plus Tablo = Range("C3:I85")
Mais plusieurs petits cadres ->
En partant du principe "Pourquoi faire simple quand on peut faire compliqué ?"
A essayer
Bonsoir,
Et bien, en voyant le script, je suis bien sûr d'une chose : c'est que j'aurai jamais trouvé!
Merci ça va beaucoup m'aider! (dans les espaces entre les numéros de semaine et les jours de semaines je vais mettre les dates du mois en cours)
Bonne soirée,
Vincent
Bonjour,
Je suis confus, embêté, désolé, mais je me suis trompé dés le premier fichier.... j'ai oublié des lignes!!!
Comme on dit jamais deux sans trois. Je m'engage à ce qu'il n'y ait pas de 4ième!
Il faut ajouter 3 lignes à chaque cadres (3 laitages).
Cf fichiers joints.
J'ai bien essayé de comprendre le script, mais là ça me dépasse...
J'ai aussi une question par rapport aux dates que j'ai ajoutées : comment créer une macro qui permette de faire défiler les mois calendaires ?
En vous remerciant grandement pour l'aide apportée !
Vincent
Bonjour !
Bon ben bien que ne comprenant pas le script (j'ai un nivo débutant +++ en macro, il y deux semaines je ne savais pas ce que c'était), j'ai compris la logique des combinaisons, en ajoutant 3 à certains endroits, et en changeant les tablo, et ça marche !
Merci !!