Microsoft 365 Extraire les données de la valeur cherchée en note

[Lau01150]

Bonjour,

J'ai mis en place cette Macro pour afficher en note un commentaire en fonction du texte dans ma case.
Je ne sais pas si ça vient de ça mais mon fichier à 1736 lignes...😅
du coup quand je change une donnée dans ma colonne F, celle avec les notes, le chargement est très long.
Peut-être que cela vient de la programmation...
Je commence tout juste avec le VBA donc j'ai besoin de l'aide d'experts 😊

Private Sub Worksheet_Change(ByVal Target As Range)
Dim chaine As String: Dim pos As Byte
Dim c As Excel.Comment

If Target.Column = 6 And Target.Count = 1 Then

Target.ClearComments

pos = Application.Match(Target.Value, Application.Index([Tableau8], , 1), 0)
chaine = [Tableau8].Cells(pos, 2) & vbLf
Target.AddComment chaine

For Each ws In Worksheets
For Each c In ws.Comments
c.Shape.TextFrame.Characters.Font.Bold = False
Next c
Next ws

End If

End Sub


Merci beaucoup pour votre aide.
Laurine

 

[Oneida]

Bonjour,

Pouvez mettre une fichier exemple a dispo?
Ca serait plus facile de vous aider

 

[Lau01150]

Bonjour,

Pouvez mettre une fichier exemple a dispo?
Ca serait plus facile de vous aider

Voici mon document pour exemple.
Quand je change le risque en colonne F, le chargement est vraiment très long pour l'affichage du commentaire.

Merci beaucoup pour votre aide.

 

[sylvanu]

Bonjour Lau, et bienvenu sur XLD, bonjour Oneida,
C'est votre boucle qui met tous les commentaires en non gras qui prends 99% du temps.
Sur mon PC on passe de 5.5s avec cette boucle à 3ms sans cette boucle.
Est-elle vraiment utile ? Ce serait plus simple de s'en passer. 🙂

 

[sylvanu]

Re,
Si vous y tenez, ne mettez que le commentaire en cours en non gras, avec :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim chaine As String: Dim pos As Byte
Dim c As Excel.Comment
If Target.Column = 6 And Target.Count = 1 Then
    Target.ClearComments
    pos = Application.Match(Target.Value, Application.Index([Tableau8], , 1), 0)
    chaine = [Tableau8].Cells(pos, 2) & vbLf
    Target.AddComment chaine
    Target.Comment.Shape.TextFrame.Characters(1, Len(chaine)).Font.Bold = False
End If
End Sub

 

[Lau01150]

Merci beaucoup !
C'est parfait 🙂