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

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

sousou à dit:

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

Cliquez pour agrandir...

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

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

Bonjour Sebastien, Sousou,
Je pense que "Inserer commentaire" et "Inserer notes" c'est la même chose, l'appellation a changé sous 365 :
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 :
Ce qui conduit à :
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.

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