Peut-on Faire apparître l'année suivant dans commentaires cellule
Bonjour le forum
J'ai dans cellule A2 un commentaire qui est le suivant: Rappel Décembre 2017
Peut-on, lorsqu'on passe à l'année suivant lui faire afficher: Rappel Décembre 2018
J'ai "gratté" un peu mais pas trouvémais est-ce possible?
Merci pour vos éventuels retours
Cordialement
Bonjour,
Très possible !
Bonjour MFerrand
Nous sommes d'accord mais pas automatique.
Si le "modificateur" est déclenché automatiquement, ce sera automatique, sinon non !
Bonjour al87, le forum,
ce fichier pourra t'aider :
pour le faire en automatique, tu pourras mettre le code dans Workbook_Open()
(pas tel quel, en l'adaptant !)
dhany
ajout : désolé, j'ai oublié d'mettre le mode d'emploi !
Ctrl m ➯ ça montre le commentaire actuel ; Ctrl c ➯ ça le change ; Ctrl m pour le montrer de nouveau
Alt F11 pour voir le code VBA, puis revenir à Excel
dhany
Bonjour dhany MFerrand et le forum
Voici mon code lorsque je passe à l'année suivante:
Option Explicit
Sub NouvelleAnnee()
Dim NomFeuille As String
Dim An As Integer
Dim Couleur
Dim Nom As String
Application.ScreenUpdating = False
Couleur = Array(3, 5, 43, 6, 7, 33, 29, 27, 38, 46, 26, 6)
With ActiveSheet
An = Val(Split(.Name, " ")(1))
If An = 0 Then
MsgBox "Nom de La Feuille non Conforme"
Exit Sub
End If
.Unprotect
NomFeuille = "Année " & An + 1
.Copy after:=Sheets(Sheets.Count)
'.Shapes("AnneePlus").Delete 'Mettre en commentaires pour ne pas effacer le bouton (nouvelle année)de la Feuille Précédente
.Protect
Nom = .Name
End With
With ActiveSheet
.Name = NomFeuille
.Tab.ColorIndex = Couleur((An - 2000) Mod 12)
.Range("H4:I15,E4:E15,F4:F15").ClearContents
.Cells.Replace What:=An, Replacement:=An + 1
.Cells.Replace What:=An - 1, Replacement:=An
With .Range("A1")
.Characters(Start:=8, Length:=1).Font.ColorIndex = 15
.Characters(Start:=17, Length:=1).Font.ColorIndex = 15
.Characters(Start:=28, Length:=1).Font.ColorIndex = 15
.Characters(Start:=34, Length:=1).Font.ColorIndex = 15
.Characters(Start:=35, Length:=4).Font.ColorIndex = 3
End With
With .Range("A3")
.Characters(Start:=17, Length:=4).Font.ColorIndex = 3
End With
With .Range("B2")
.Characters(Start:=24, Length:=4).Font.ColorIndex = 3
End With
With .Range("C2")
.Characters(Start:=24, Length:=4).Font.ColorIndex = 3
End With
With .Range("D2")
.Characters(Start:=22, Length:=4).Font.ColorIndex = 3
.Characters(Start:=29, Length:=4).Font.ColorIndex = 3
End With
With .Range("G1")
.Characters(Start:=7, Length:=1).Font.ColorIndex = 35
.Characters(Start:=15, Length:=1).Font.ColorIndex = 35
.Characters(Start:=21, Length:=1).Font.ColorIndex = 35
.Characters(Start:=22, Length:=4).Font.ColorIndex = 3
End With
With .Range("G2")
.Characters(Start:=14, Length:=4).Font.ColorIndex = 3
End With
With .Range("H2")
.Characters(Start:=14, Length:=4).Font.ColorIndex = 3
End With
With .Range("J2")
.Characters(Start:=44, Length:=4).Font.ColorIndex = 3
.Characters(Start:=51, Length:=4).Font.ColorIndex = 3
End With
With .Range("G16")
.Characters(Start:=14, Length:=5).Font.ColorIndex = 3
End With
.Range("A1").Select
End With
End Sub@al87
désolé : j'avais oublié d'mettre le mode d'emploi avec le fichier !
j'l'ai indiqué avec un ajout en dessous : https://forum.excel-pratique.com/viewtopic.php?p=663688#p663688
peux-tu essayer de nouveau et me donner ton avis ?
dhany
Effectivement ça le fait bien mais ça ne garde pas les couleurs
Rappel = Bleu Consommation = rouge
Décembre = Bleu 2017 = Rouge
ben j'comprends pas : mon fichier était par rapport à ton énoncé initial qui ne parlait pas de couleur ! donc mon classeur était juste un exemple avec au départ ce commentaire : "Rappel Décembre 2017" ; ma macro le change ensuite en : "Rappel Décembre 2018".
rien de plus, aucune application de couleur ; et à quels endroits de ta feuille sont les couleurs dont tu parles ?
dhany
@ dhany
Les couleurs dans commentaires cellules A2
Excuses pas tout dit mais involontairement bien sûr.
Merci à toi
Re-bonjour à tous
Ne pourrait-on pas adapter cette macro qui copie bien et en couleur les commentaires en lui faisant ajouter + 1 an soit 2019 à la place de 2018?
Sub CopieCommentaires()
Dim R As Worksheet 'déclare la variable R (onglet de Référence)
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TC As String 'déclare la variable TC (Texte du Commentaire)
Set R = Worksheets("Année 2018") 'définit l'onglet de référence R (celui où il y a le commentaire, à adapter)
On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
TC = R.Range("A2").Comment.Text 'définit le texte du commentaire TC (génère une erreur si A3 ne contient pas de commentaire)
If Err <> 0 Then 'condition : si une erreur a été générée
MsgBox "il n'y a pas de commentaire ! Action terminée." 'message
Exit Sub 'sort de la procédure
End If 'fin de la condition
MsgBox "commentaire à copier : " & TC
Application.EnableEvents = False
For Each O In Worksheets 'boucle sur tous les onglets O du classseur
If O.Name <> R.Name Then 'condition : si le nom de l'onglet O est différent du nom de l'onget de référence R
R.Range("A2").Copy O.Range("A2")
End If 'fin de le condition
Next O 'prochain onglet de la boucle
Application.EnableEvents = True
End SubBien cordialement
Bonsoir al87,
je te propose ce fichier Excel :
1) met ton pointeur de souris près du triangle rouge de B2 pour voir le commentaire actuel
2) Ctrl c ➯ ça le change
3) met ton pointeur de souris près du triangle rouge de B2 pour voir le nouveau commentaire
Alt F11 pour voir le code VBA, puis revenir à Excel
dhany
Re bonjour le forum,
Me voilà avec des modifs pour faire passer les commentaires à une année de plus
Mais pas comme je veux.
Commentaires cellule A2 et F2
Si on fait Nouvelle Année les commentaires passent bien en 2018 pour cellule A2 (actuellement 2017) et 2019 pour cellule F2 (actuellement 2018), mais je ne retrouve pas mes couleurs
La macro est AjoutAnnee
Est-ce possible?
Je suis en excel 2003
Bien cordialement
Fichier joint
Bonsoir al87,
je te retourne ton fichier modifié :
je te laisse faire les tests ; pour le code VBA, j'ai modifié uniquement la sub NouvelleAnnée() :
* au début : regarde tout ce qui est avant Application.ScreenUpdating = False : grosse simplification !
* tout le grand bloc With ActiveSheet .. End With : nombreuses simplifications + ta demande
merci de me donner ton avis ; si tout est ok, je te laisse passer le sujet en résolu.
dhany
Bonjour dhany
SUPER. RIEN ne vaut un fichier.
J'ai beaucoup appris pour la simplification.
Désormais je ferais ainsi
Bien cordialement à toi et bon WE
merci pour ton retour, et pour avoir passé le sujet en résolu !
bonne continuation, et bon weekend à toi aussi !
dhany
pour supprimer un fichier, il te suffit de modifier ton message :
1) clic sur le bouton (dans le coin haut droit de ton post qui contient le fichier à supprimer)
2) sous la fenêtre d'édition du post, tu dois voir le fichier qui est inséré dans ton post ;
sur la même ligne plus à droite, clique sur le bouton « Supprimer le fichier »
bien sûr, tu peux supprimer uniquement les fichiers de tes posts, pas ceux des autres
(heureusement, et c'est aussi pour toi-même une sécurité !)
exemple pour le fichier "TOTO.xls" de mon post d'hier à 23:34 :
dhany
Merci encore dhany
Bien expliqué
Bien cordialement