XL 2016 VBA gestion des couleurs

[Hubert1959]

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

 

[sylvanu]

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 :

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.

 

[Dranreb]

Bonjour.
J'aurais tendance à chercher une solution plus systématique, dans ce style.
Mais, attention aux formules …

 

[Hubert1959]

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 :

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 :

 

[Hubert1959]

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 :

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

 

[sylvanu]

Alors prenez la solution de Dranreb qui marche impeccable.

 

[Hubert1959]

Alors prenez la solution de Dranreb qui marche impeccable.

Hello,

Je vous remercie beaucoup pour cette aide, néanmoins je vais abandonner ce petit plus que je voulais rajouter à mon fichier.
C’est plus compliqué que prévu.
Le VBA n’est chose facile, mais très intéressant.

Encore merci.

 

[Hubert1959]

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

 

[Dranreb]

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

 

[Hubert1959]

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 »)

 

[Dranreb]

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.

 

[Hubert1959]

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.

 

[Dranreb]

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.

 

[Hubert1959]

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.

 

[Hubert1959]

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.