XL 2016 VBA gestion des couleurs

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Hubert1959

XLDnaute Nouveau
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
 

Pièces jointes

Solution
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...
Bonjour Hubert,
Vos copies de données ne copient que des valeurs, ni des couleurs, ni des commentaires.
( D'ailleurs vous l'avez mis en commentaire : 'copie les valeurs )
Une solution simple et bestiale est de tout copier, par ex avec :
VB:
With Sheets("Mémoire")
    Application.ScreenUpdating = False
    L = Application.Match(Range("A5"), .Range("A:A"), 0)
    Range("B5:S35").Copy
    .Select
    .Cells(L, "B").Select
    ActiveSheet.Paste
    Sheets("Compte").Select
    Application.ScreenUpdating = True
End With
Ainsi vous copiez valeurs, couleurs, formats, commentaires.
 
Bonjour Hubert,
Vos copies de données ne copient que des valeurs, ni des couleurs, ni des commentaires.
( D'ailleurs vous l'avez mis en commentaire : 'copie les valeurs )
Une solution simple et bestiale est de tout copier, par ex avec :
VB:
With Sheets("Mémoire")
    Application.ScreenUpdating = False
    L = Application.Match(Range("A5"), .Range("A:A"), 0)
    Range("B5:S35").Copy
    .Select
    .Cells(L, "B").Select
    ActiveSheet.Paste
    Sheets("Compte").Select
    Application.ScreenUpdating = True
End With
Ainsi vous copiez valeurs, couleurs, formats, commentaires.
Hello,



Après plusieurs tentatives du code reçu :

Cela ne fonctionne pas (cette solution je l’avais envisagé mais sans succès)



J’avais fait un essai aussi qui fonctionnaire a moitié.

Code en dessous de ma sauvegarde VBA

Je m’explique :

Il supprime bien les cellules en jaune et les commentaires lorsque je passe de Janvier à Février.

Néanmoins cela m’a provoqué d’autres erreur du style :

  • Si je retourne de Février en Janvier (je n’ai pas de remise en mémoire donc je ne sais plus quel sont les cellules qui étaient en jaune).
  • Si je change un chiffre après la mise en place du code, il effectue le code installer.
Ce code est celui-ci :

1736868699210.png
 
Bonjour Hubert,
Vos copies de données ne copient que des valeurs, ni des couleurs, ni des commentaires.
( D'ailleurs vous l'avez mis en commentaire : 'copie les valeurs )
Une solution simple et bestiale est de tout copier, par ex avec :
VB:
With Sheets("Mémoire")
    Application.ScreenUpdating = False
    L = Application.Match(Range("A5"), .Range("A:A"), 0)
    Range("B5:S35").Copy
    .Select
    .Cells(L, "B").Select
    ActiveSheet.Paste
    Sheets("Compte").Select
    Application.ScreenUpdating = True
End With
Ainsi vous copiez valeurs, couleurs, formats, commentaires.
Hello,

Après plusieurs tentatives du code reçu :
Cela ne fonctionne pas (cette solution je l’avais envisagé mais sans succès)
J’avais fait un essai aussi qui fonctionnaire a moitié.
Code en dessous de ma sauvegarde VBA
Je m’explique :
Il supprime bien les cellules en jaune et les commentaires lorsque je passe de Janvier à Février.
Néanmoins cela m’a provoqué d’autres erreur du style :
  • Si je retourne de Février en Janvier (je n’ai pas de remise en mémoire donc je ne sais plus quel sont les cellules qui étaient en jaune).
  • Si je change un chiffre après la mise en place du code, il effectue le code installer.
Ce code est celui-ci :

Regarde la pièce jointe 1210991
 
Bonjour.
J'aurais tendance à chercher une solution plus systématique, dans ce style.
Mais, attention aux formules …
Désolé pour le retard concernant ma réponse.

J’ai étudier la possibilité d’utiliser ta méthode de sélection des dates.

Super sympa et très pratique.

Néanmoins cette méthode ne permet pas de gardé en mémoire l’activité et bloque tous les chiffres.
Dommage c’était super cool.

Ma méthode est principalement basée sur la date, ce qui permet une mise en mémoire fluide avec une complicité du VBA et de formule standard d’Excel.
Ce qui n’alter pas la création du fichier.

Je te remercie de ton aide.

Phil
 

Pièces jointes

Celui ci devrait être un peu plus évolué.
Ouah !

Super cool !

J’ai bien analyser le fichier voici mes remarques STP :
  • Dans le cadre « Mes Notes » je sauvegarde de (N8 : N16) car j’ai fusionner les cellules.
  • Dans le cadre « Entrée Fixes » je sauvegarde que les chiffres (I5 : I16).
  • Dans le cadre « Charges Fixes » je sauvegarde que les chiffres (L5 : L16).
  • Dans le cadre « Entrée Exceptionnelles » je sauvegarde que les chiffres (H19 : H35).
  • Dans le cadre « Sortie Exceptionnelles » je sauvegarde que les chiffres (K19 : L35).

  • Dans le cadre « Anniversaires du Mois » aucune sauvegarde. (Sinon ça mets la grouille), la recherche ne fonctionne plus.
Nota :

S’il y a une somme (exemple) entre le 29 du mois (janvier) et le 31 fin mois, elle va se recopier sur le mois suivant.

Exemple le mois de janvier à 31 jours

Le mois de février à 28 jours.

Il recopie cette somme en février (ce qui fausse les chiffres)

Je t’envoie mon exemple (fichier « Mon Exemple »)
 

Pièces jointes

Ne fusionnez jamais les cellules.
Vous ne voulez donc pas rappeler les désignations ??
Notez que les noms de la forme "GroupeN" peuvent être changés de manière à ne pas sauvegarder (ni restaurer du coup) ce qui ne doit pas l'être.
La macro veille à ce que le Groupe1 ne soit sauvegardé que sur le nombre de jours du mois.
 
Dernière édition:
Ne fusionnez jamais les cellules.
Vous ne voulez donc pas rappeler les désignations ??
Notez que les noms de la forme "GroupeN" peuvent être changés de manière à ne pas sauvegarder (ni restaurer du coup) ce qui ne doit pas l'être.
La macro veille à ce que le Groupe1 ne soit sauvegardé que sur le nombre de jours du mois.
Hello,

Il est inutile de rappeler les désignations.
Sur le fichier (Mon Exemple) si on regarde mon VBA j’ai scinder les sauvegardes et ça fonctionne super bien.

J’avais une seule anomalie je site :
  • C’était le problème des cellules que je mets avec un fond de couleur pour m’indiquer un point d’attention. Pour cette exemple j’ai mis en (jaune).
  • Car elle ne disparait pas si je passe au mois suivant.
Néanmoins, j’ai apprécier ton menu date (MOIS : ANNEE) c’est moins compliqué pour sélectionner le Mois suivant ou inverse.
 
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.
 
Dernière édition:
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,

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 STP.
 

Pièces jointes

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 STP.
Re bonjour,
En ce qui concerne le point "Anniversaire" j'ai trouver.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
2 K
Réponses
8
Affichages
3 K
Retour