Commentaire ne suit pas la cellule avec auto-filter

Question

Je n'arrive pas à mettre les commentaires à coté de la cellule avec auto-filter dans la 1° colonne ça a été déplacé manuellement mais après j'obtiens un décalage merci d'avance...

eriiic · Accepted Answer

J'ai jeté un oeil, désolé mais c'est trop le bazar dans ton code et beaucoup trop d'erreurs d'amateur qui obligerait à tout reprendre, sans parler des non sens qui apparaissent ici et là dans ton code.. Je ne m'en sens pas le courage... Quelques conseils : - on ne met pas 21 modules, mais on regroupe toutes les procédures concernant le même traitement dans un module. - on ne fait .Select ou .Activate que si c'est réellement indispensable, c'est extrêmement chronophage. Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' Surlignage et mettre la formule dans nouvelle régle "=LIGNE(E2) = _maLigne" qui doit être ' dans une zone de selection et nommer la cellule "J1" _maLigne Range("_maLigne") = ActiveCell.Row ' Fin de Surlignage 'début de ligne en haut de page ---- Application.EnableEvents = False Select Case Target.Column Case 5 '4, ActiveWindow.ScrollRow = Target.Row Case 5 Cells(Target.Row + 1, 1).Select Pourquoi Cells(Target.Row + 1, 1).Select ??? Tu ne t'en sert pas et tu rappelles l'événement Worksheet_SelectionChange dans lequel tu es. Tu entres dans une boucle qui (par chance ?) fini par s'arrêter. D'autant plus que tu as mis ton Run "AfficheComment.AfficheComment" dans cet événement Worksheet_SelectionChange, et de ce fait cette macro est exécutée au moins 14 fois au lieu d'une seule fois. Pourquoi temporiser 1s ici ? : Application.Wait (Now + TimeSerial(0, 0, 1)) Autre exemple : Sub NewDate() Application.ScreenUpdating = False Range("E2").Activate Application.Wait (Now + TimeSerial(0, 0, 1)) 'insert ligne pour une nouvelle donnée Rows("2:2").Select Application.CutCopyMode = False Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrDown Rows("3:3").Select Selection.Copy Rows("2:2").Select ActiveSheet.Paste Range("E2").Select Application.CutCopyMode = False Range("E2:Z2").Select Selection.ClearContents Application.ScreenUpdating = True Call text_comment End Sub Tu as 5 .Select qui te lancent un contrôle des 15 lignes saisies qui te lancent chacun le contrôle des 100 commentaires. 5*15*100=7500 Je n'ose pas imaginer avec 500 lignes de saisies... Bref, toute la structure du code est à revoir. Je crains que tu te sois lancé dans un truc un peu trop gros pour toi sans avoir pris le temps d'acquérir les bases. Non seulement il te faut les bases, mais aussi apprendre à déboguer : faire en pas à pas pour suivre le déroulement ton programme, savoir utiliser les espions pour contrôler les variables, mettre des Stop, etc http://www.commentcamarche.net/contents/1381-debogage Et regarde le menu Cours VBA en haut de cette page, tu y trouveras des choses intéressantes. eric...

3GB · Answer

Sur le principe, je dirais qu'il faudrait faire quelque chose comme ça : Sub MAJcomm() Dim HautPage$, BasPage$ HautPage = Range("refcellhautdepage").address BasPage = Range("refcellbasdepage").address with Range("montab&#91;Colonne1&#93;").SpecialCells(xlCellTypeVisible) 'ou xlVisible ? .ClearComments 'attention, je suppose que seules ces cellules doivent avoir des commentaires &nbsp;&nbsp;&nbsp;&nbsp;.cells(1).addComment &nbsp;&nbsp;&nbsp;&nbsp;.cells(1).comment.text "Haut de page " & HautPage &nbsp;&nbsp;&nbsp;&nbsp;.cells(.rows.count).AddComment &nbsp;&nbsp;&nbsp;&nbsp;.cells(.rows.count).comment.text "Bas de page " & BasPage end with end sub Cette macro est à corriger selon le besoin et la macro de désactivation des commentaires. Il faudra bien entendu adapter avec vos références à vous. Cdlt...

AlgoPlus · Answer

Un essai en modifiant les macros existantes : Sub Chiffre1() ActiveSheet.Range("$E$2:$E$31").AutoFilter Field:=1, Criteria1:="1" If Range("E2").Comment.Visible Then AfficheComment.AfficheComment End Sub Sub AfficheComment() 'Application.DisplayCommentIndicator = xlCommentAndIndicator DL = Range("E" & Rows.Count).End(xlUp).Row Range("E2").Comment.Visible = True With Range("E" & DL) tempo = .Comment.Text .Comment.Delete .AddComment .Comment.Text tempo .Comment.Visible = True End With End Sub Sub Enleve_Commentaire() Application.DisplayCommentIndicator = xlCommentIndicatorOnly End Sub Sub Vue_Normale() ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1 If Range("E2").Comment.Visible Then AfficheComment.AfficheComment End Sub A+...

eriiic · Answer

Pas réussi à voir tes commentaires... Sub aligneComments() Dim com As Comment Application.ScreenUpdating = False For Each com In ActiveSheet.Comments com.Shape.Left = Range(com.Parent.Address).Offset(0, 1).Left + 10 com.Shape.Top = Range(com.Parent.Address).Top Next com End Sub à appeler après un filtre, réaligne tous les commentaires. Pas pu tester sur ton fichier, tu diras... Si ça freine un peu trop excel (tu ne dois pas en avoir 10000 non plus) on pourra voir pour restreindre à qq colonnes. eric...

eriiic · Answer

Mais si tu insères une ligne, c'est tous les commentaires de toutes les lignes en-dessous (et donc de toutes les colonnes) qui sont touchés non ? A mon avis seuls les commentaires affichés (par défaut un seul) peut entrainer un petit traitement supplémentaire. Le reste doit se dérouler très vite. Pour moi il sera temps de réfléchir si tu constates une latence due à cette macro. Pour afficher une partie des commentaires (si j'ai bien compris), je regarderai un peu plus tard. eric PS : déposer un fichier en situation et détailler les manip à faire. Une insertion de ligne ne crée pas d'événement et je ne vois pas le rapport avec ton userform. Soit plus précis sur le fonctionnement voulu...