Info bulle ( mise a jour & ajustement du texte) automatiquement

[Ilino]

Bonsoir FORUM mes maîtres
je souhaite adapter ou modifier ce code selon mon besoin, mon souci est le suivant :
1.Dans la feuille « Département études » dans la colonne A , je souhaiterai ajuster le texte Info bulle automatiquement
2. Dans la feuille « Liste doc Etudes » j’ai ajouté dans la colonne A , le code D .5 avec titre ILINO
Et dans la feuille « Département études » dans la colonne A il s’affiche le code D .5 avec info Bulle « ILINO »
Mais si je supprime le code D.5 et le titre « ILINO » de la feuille « Liste doc Etudes » il restera tjr afficher comme info bulle dans la feuille « Département études » ???
GRAZIE

 

[job75]

Re : Info bulle ( mise a jour & ajustement du texte) automatiquement

Bonjour Ilino, le forum,

La macro Commentaire modifiait le 1er paramètre (la plage r).

Et en effet cela est nuisible si l'on a besoin d'utiliser cette plage par la suite.

Donc utilise cette macro (la variable cible n'est pas modifiée) :

Sub Commentaire(cible As Range, plage As Range)
Dim r As Range, f$, c As Range
Set r = Intersect(cible, plage, cible.Parent.UsedRange)
If r Is Nothing Then Exit Sub
cible.Parent.Unprotect ""
For Each r In r
  r.ClearComments 'RAZ
  f = Replace(r.Formula, ")", "")
  f = Mid(f, InStrRev(f, ",") + 1)
  If TypeName(Evaluate(f)) = "Range" Then
    Set c = Evaluate(f)
    If c(1, 2) <> "" Then  
      With r.AddComment(c(1, 2).Value).Shape      
        .TextFrame.AutoSize = True 'ajustement automatique
        If .Width > 200 Then
          .Height = .Width * .Height / 200 * 1.2
          .Width = 200
        End If
      End With
    End If
  End If
Next
cible.Parent.Protect ""
'MsgBox "Vous avez ajouté/Supprimé un CODE !!!" '?????
End Sub

A+