Microsoft 365 insérer une note avec enregistrement des données

[sebastien176]

Bonjour à tous,

Dans le fichier ci-joint, j'aimerais pour voir insérer une note que je puisse retrouver en changeant la date du calendrier

Exemple : Feuille "Calendrier"
J’insère une note Sur la date du 1er février dans la cellule "D7"
Si je sélectionne le mois de Mars --> la note disparait
Si je reviens sur le mois de février --> je vois de nouveau la note

Je vous remercie par avance de votre aide

Bonne soirée

Seb

 

[sousou]

bonjour seb
qu'appelles-tu note?
Si c'est un commentaire, ajoute une colonne dans ta feuille data, et inscrit le contenu,tu pourras le récupérer au recacule de ta feuille calendrier avec les autre données

 

[sebastien176]

bonjour seb
qu'appelles-tu note?
Si c'est un commentaire, ajoute une colonne dans ta feuille data, et inscrit le contenu,tu pourras le récupérer au recacule de ta feuille calendrier avec les autre données

Bonjour Sousou,
Ce que j'appelle une note c'est Clic droit sur une cellule --> nouvelle note

Je préfère la note a un commentaire

 

[sousou]

re
Désolé mais je suis en 2010, Pas de notes apparemment.
Mais le principe devrais être le même

 

[sylvanu]

Bonjour Sebastien, Sousou,
Je pense que "Inserer commentaire" et "Inserer notes" c'est la même chose, l'appellation a changé sous 365 :

La différence entre les commentaires à thread et les notes - Support Microsoft

Les commentaires et les notes sont des nouveautés d’Excel pour Office 365. Cet article décrit les différences.

support.microsoft.com

Et d'accord avec Sousou, traitez ça comme un nouveau champ dans votre base de données.

@Sebastien,
Rien à voir avec le topic, mais je trouve sous XL2007 qu'un changement de mois rame.....
En particulier car tous les flags restent actif, surtout ScreenUpdating.
Si vous voulez accélérer le processus, il suffit de commencer la sub par une inhibition des flags, et terminer par une remise en état, avec :

Sub Inhibition_Flag()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    ActiveSheet.DisplayPageBreaks = False
    Application.DisplayAlerts = False
End Sub
Sub Dé_inhibition_Flag()
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    ActiveSheet.DisplayPageBreaks = True
    Application.DisplayAlerts = True
End Sub

Ce qui conduit à :

Private Sub Worksheet_Change(ByVal Target As Range)
    Inhibition_Flag
  
    ... patati, patata
  
    Dé_inhibition_Flag
End Sub

Sur mon PC et XL2007 changer Mars pour Février 2024 , je passe de 21.5s à 1.55s. C'est appréciable, presque 14 fois plus rapide.

 

[sebastien176]

Bonjour Sousou, Sylvanu,

Merci à tous les deux pour vos conseils et effectivement ça va bien plus vite avec les inhibition des flags
J'arrive à enregistrer les commentaires dans ma feuille "Data" :

Private Sub Worksheet_Change(ByVal Target As Range)

'Inhibition_Flag

Dim Ligne As Long
Dim Nb_Colonne As Long

'On sort si on n'est pas dans la plage active
If Intersect(Target, Range("D7:AH7,D10:AH10,D13:AH16,D18:AH19,D21:AH30,D33:AH34,D46:AH54")) Is Nothing Then Exit Sub
If ctrl = True Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub

Ligne = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row + 1

Sheets("Data").Range("A" & Ligne).Value = Cells(6, Target.Column).Value
Sheets("Data").Range("B" & Ligne).Value = Target.Value
Sheets("Data").Range("C" & Ligne).Value = Target.Row
Sheets("Data").Range("D" & Ligne).Value = Target.Column
Sheets("Data").Range("E" & Ligne).Value = Target.Comment.Text


'Dé_inhibition_Flag

End Sub

Par contre je n'arrive pas à faire le sens inverse :

Sub MonMois()

Dim i As Long, dl As Long

Range("D7:AH7").ClearContents 'efface les cellules
Range("D7:AH7").ClearComments 'efface les commentaires
Range("D10:AH10").ClearContents 'efface les cellules
Range("D10:AH10").ClearComments 'efface les commentaires
Range("D13:AH16").ClearContents 'efface les cellules
Range("D13:AH16").ClearComments 'efface les commentaires
Range("D18:AH19").ClearContents 'efface les cellules
Range("D18:AH19").ClearComments 'efface les commentaires
Range("D21:AH30").ClearContents 'efface les cellules
Range("D21:AH30").ClearComments 'efface les commentaires
Range("D33:AH34").ClearContents 'efface les cellules
Range("D33:AH34").ClearComments 'efface les commentaires
Range("D46:AH54").ClearContents 'efface les cellules
Range("D46:AH54").ClearComments 'efface les commentaires

ctrl = True 'pour ne pas lancer la macro Calendrier / change

With Sheets("Data")
dl = .Range("A" & Rows.Count).End(xlUp).Row 'derniere ligne
For i = 2 To dl 'boucle sur toutes les lignes de la feuille Data
If Month(.Range("A" & i).Value) = Sheets("BDD Générale").Range("D2").Value And Year(.Range("A" & i).Value) = Sheets("BDD Générale").Range("E2").Value + 2022 Then
Cells(.Range("C" & i).Value, .Range("D" & i).Value).Value = .Range("B" & i).Value
End If

Next
End With

ctrl = False

End Sub

Merci d'avance pour vos retours et bonne journée

Seb