XL 2016 VBA gestion des couleurs

Hubert1959 · 14 Janvier 2025

Hello,

Création d’un fichier compte

Pour le moment tout fonctionne correctement (hourra)

Néanmoins j’aimerai trouver le bon code VBA concernant la gestion des couleurs et des commentaires.

Après plusieurs essais plus ou moins concluant ce n’est pas le top.

Soit ça fonctionne dans un sens et pas dans l’autre et l’inverse, mais pas les deux.

Y a surement une combine que je ne sais pas maitriser.

Exemple :

Je suis en Janvier et que je passe en Février alors :

Les cellules que j’ai coloriées en janvier réapparaisse en février ainsi que le commentaire.

Mes essais :

J’arrive à, les faires disparaitre, impossible lorsque je reviens de (Février en Janvier) de les faire réapparaitre.

Quelqu’un a-t-il une idée sur le sujet ?

Sujet pas facile !

Merci d’avance

PS :
Fichier joins pour la compréhension

Hubert1959 · 16 Janvier 2025

Hubert1959 à dit:
Hello,

Merci beaucoup, j’ai donc tout revue de ce nouveau principe que je ne maitrise pas, mais j’y arrive.

J’ai réussi à avoir un tableau cohérant
(Tous les chiffres correspondent)
3 points que je ne maitrise pas :

J’ai tout de même fais pas mal d’essai avant de t’écrire.

Lorsque je change de mois les cellules (N8 : N16) sont sélectionner.

Je pense que c’est une bidouille sans plus)

Une dépense en Janvier (le 30) se répercute en février.

C’est dû au faite que février n’a que 28 ou 29 jrs.

Mon tableau anniversaire est sur la base du Mois en cours

Là je n’ai pas réussi à le définir en « W1 » je connais pas bien pour lier le DébutMois à un Mois seul

Je t’envoi mon fichier à jours, si tu peux y jeter un œil...

Dranreb · 16 Janvier 2025

Oui je pense que c'est le dernier PasteSpecial qui laisse une plage d'arrivée sélectionnée, petit bogue Excel sans gravité.
j'ai ajouté Application.Goto Me.Cells(1, "A") à la fin pour que la cellule active soit la A1.
Normalement non, mais j'avais peut être oublié d'effacer les lignes inutilisées à la fin du Groupe1 après restauration de février.
Normalement c'est corrigé dans cette version :

Hubert1959 · 16 Janvier 2025

Dranreb à dit:
Oui je pense que c'est le dernier PasteSpecial qui laisse une plage d'arrivée sélectionnée, petit bogue Excel sans gravité.
j'ai ajouté Application.Goto Me.Cells(1, "A") à la fin pour que la cellule active soit la A1.
Normalement non, mais j'avais peut être oublié d'effacer les lignes inutilisées à la fin du Groupe1 après restauration de février.
Normalement c'est corrigé dans cette version :

Hello,

J’ai bien reçu le fichier avec les modifications.

C’est excellent

Ce n’était pas chose facile, mais avec de la persévérance le sujet a été traité avec succès.

Bravo super

Encore merci pour t’as patience.

Hubert1959 · 26 Janvier 2025

Dranreb à dit:
Ma macro fait des .PasteSpecial xlPasteAllExceptBorders dans les deux sens pour restaurer les couleurs aussi bien que qu'elle les sauvegarde.
Adoptez donc ma macro. Les zones à sauvegarder sont nommées de Groupe1 à Groupe7. Attention, si vous changez leur référence, à rectifier la formule en I5 de manière à ce qu'elle aille de nouveau bien chercher la sauvegarde du Groupe6 (une seule cellule: le reste) du mois précédent là où elle se trouve.

Hello,
Je reviens vers toi car j’exploite le fichier sur lequel tu ma dépanner plusieurs fois

J’ai fait quelques modification tout est correcte.

Sur ma dernière modification un coup sa marche et l’autre non.

Explication :

Dans le cadre « Charge prévisionnelles (je mets de côté) »

J’ai un souci pour faire remonter la somme disponible du mois précédent.

Après plusieurs tentatives et de multiple code, rien n’y fait.

Désolé pour le dérangement, mais si tu as une disponibilité pour voir le sujet se serai génial.

Je te joins le fichier

Je te remercie d’avance

Phil

Dranreb · 26 Janvier 2025

Bonsoir.
La formule que j'avais gardée c'était, en I5 :

Code:

=DECALER(Mémoire!$A$1;MOIS.DECALER(DébutMois;-1)-Mémoire!$A$1;14)

Pas besoin de RECHERCHEV. Si le groupe6 est désormais sauvegardé en colonne 13, c'est, en I5 :

Code:

=DECALER(Mémoire!$A$1;MOIS.DECALER(DébutMois;-1)-Mémoire!$A$1;13)

Mais c'est plutôt en 12 à mon avis :

Code:

=DECALER(Mémoire!$A$1;MOIS.DECALER(DébutMois;-1)-Mémoire!$A$1;12)

Remarquez, il aurait peut être mieux valu que cette cellule soit sauvegardée avec le groupe 2, mais que le Groupe6 soit sauvegardé dans la 1ère ligne du Groupe2 du mois suivant …

Dranreb · 26 Janvier 2025

Autre formule qui semblerait plus juste en P9, à propager sur 8 lignes :

Code:

=DECALER(Mémoire!$A$1;MOIS.DECALER($A5;-1)-Mémoire!$A$1;13)

Hubert1959 · 26 Janvier 2025

Dranreb à dit:
Autre formule qui semblerait plus juste en P9, à propager sur 8 lignes :

Code:

=DECALER(Mémoire!$A$1;MOIS.DECALER($A5;-1)-Mémoire!$A$1;13)

En réalité rien ne fonctionne

1 - En Février je devrais retrouver dans la colonne P9 à P16 (étiquettes Jaune).

2 - Les chiffres de Janvier qui correspond à la colonne S9 à S16 (Disponibilité (étiquette vert),
Je reçois des données bizarres.
Dans la feuille mémoire, on s'aperçoit qu'il manque la première ligne de données, (N9 à S9)
De plus les calculs ont disparu.

Dranreb · 27 Janvier 2025

Il ne devrait pas y avoir de formule dans la feuille Mémoire.
Vous avez mal appliqué la formule pour la colonne P: la date à appliquer en P9 (1ère ligne) est en A5 pas en A9.
Et c'est un décalage de 11 colonnes si j'ai bien compris, pas 13.
Mais je crois que je n'ai pas compris finalement …

Hubert1959 · 27 Janvier 2025

Hello,

Pour résumer

Le seul souci est que la formule dans la colonne (Disponibilité) couleur Vert (ne se garde pas).

Car c’est cette somme que je récupère pour la cellule (Mois Dernier) couleur Jaune

Explication :

1 – Si je mets une somme manuellement ex : 3

Il me là remonte bien sur le mois suivant comme demandé (no soucis)

2 – Si je mets une formule de calcul pour faire cette somme alors là :

A) il y a un décalage

B) Il ne garde pas la formule

Voir le fichier joins qui montre bien l’anomalie.

Dranreb · 27 Janvier 2025

Ne sauvegardez pas de plage contenant des formules. Elle ne peuvent pas être gardées.

Hubert1959 · 27 Janvier 2025

ok
j'ai fait pas mal d'essai et voici le plus proche que j'ai réussi.
ça fonctionne, mais il y a une erreur qui me semble simple, mais je la trouve pas.
il doit manque un truc dans mon VBA
car cela fonctionne mais il soustrait au lieux additionner.
Voir mon fichier Joins

Hubert1959 · 27 Janvier 2025

Je pense que cette version est pas mal est elle fonctionne.
Je te l'envoie pour étude.
Je calcul ce fais immédiatement dans la cellule "Je prend"
Je dois simplement aller sur au mois suivants ou précédent.
Peux être un problème d'activation des calculs de la feuille (mais là, pas trop expert pour le moment)
on approche de la fin ! je pense
si tu as une idée 😉

Dranreb · 27 Janvier 2025

Je pense que les RECHERCHEV(DATE(ANNEE(A5);MOIS(A5)-1;JOUR(A5));Mémoire!A1:$S$6210;11)
sont absurdes. DATE(ANNEE(A5);MOIS(A5)-1;JOUR(A5) se remplace avantageusement par MOIS.DECALER(A5;-1)
et un RECHERCHEV est inutile puisqu'on connait le numéro de ligne à prendre: c'est cette date-Mémoire!$A$1+1 (pas besoin du +1 avec DECALER(Mémoire!$A$1;… puisque pour cette 1ère ligne ce serait un décalage de 0 ligne)

XL 2016 VBA gestion des couleurs

Hubert1959

XLDnaute Nouveau

Pièces jointes

Hubert1959

Dranreb

XLDnaute Barbatruc

Pièces jointes

Hubert1959

XLDnaute Nouveau

Hubert1959

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Hubert1959

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

Hubert1959

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

Hubert1959

XLDnaute Nouveau

Pièces jointes

Hubert1959

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

Discussions similaires

XL 2016 VBA gestion des couleurs

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

XLDnaute Nouveau

Pièces jointes

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency