EXCEL VBARésolu

Question

Bonjour à tous,
mon chef est mal voyant et me demande de modifier la zone de commentaire de cellule dans excel 2003 en vba je voulais savoir si cela était possible et si vous pouvez m'aider.
dans une cellule il a mis un commentaire et donc j'ai codé de façon à agrandir la police automatiquement mais maintenant la taille de la zone commentaire est trop petite
j'espère avoir été asser claire dans mes explications et un grand merci à vous tous pour votre aide
djino

cs_Jack · Accepted Answer

Salut

Je n'est pas regardé en détail, mais il y a peu de chance qu'on puisse modifier cette enveloppe de texte, les commentaires s'apparentant à des "balloons".

Par contre, côté accessibilité, il y a d'autres méthodes :
(voir "Options d'ergonomie" dans le panneau de configuration)
- la loupe
- le narrateur

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

djino66 · Answer

merci Jack
je vais regarder cela et posterai un petit message
merci

cs_cheyenne · Answer

Bonjour djino66,

L'idée de jack est excellente, néanmoins voici comment formater un commentaire :

With .Cells(lig, col)
   .AddComment    '  si le commentaire n'existe pas
   .Comment.Text Text:=blabla
   
   With .Comment.Shape
      .Width = 150
      .Height = 100
      .OLEFormat.Object.Font.Name = "Courier New"
      .OLEFormat.Object.Font.Size = 20
      .OLEFormat.Object.Interior.ColorIndex = 34   '  bleu clair
      .TextFrame.Characters.Font.ColorIndex = 11   '  bleu foncé
      .TextFrame.Characters.Font.Bold = True
   End With
End With

Cheyenne

adjovi7 · Answer

Bonjour,
j'ai un gros souci d'amateur vba je m'explique j'ai des colonnes qui correspond a des mois et des lignes a des actions courantes j'aimerais avec la méthode ListBox1.AddItem et Find afficher le nombre d'action selon le mois rechercher avec un textbox mon souci j'arrive a afficher le mois mais pas la plage de cellule just en dessous qui correspond au nombre d'action ci joint mon code
Quelqu'un peut-il m'aider SVP? Merci.

Private Sub CmdChercher_Click()
Dim fs As Worksheet
Dim Plage As Range, Cell As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Variant
Dim C As Object
Dim i As Byte

ListBox1.Clear
Set fs = Sheets("SUIVI 2012")
Recherche = TextBox1
If Recherche = "" Then Exit Sub

For Each WS In Worksheets
Ligne = Worksheets(fs.Name).Range("" & "B" & "65536").End(xlUp).Row

Set Plage = Worksheets(fs.Name).Range("" & "B" & "1:" & "D" & Ligne)
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
i = 0
Do
ListBox1.AddItem "Ligne" & i
ListBox1.List(i, 0) = C.Value
ListBox1.List(i, 1) = C.Offset(0, 1).Value
ListBox1.List(i, 2) = C.Offset(0, 2).Value
ListBox1.List(i, 3) = C.Offset(0, 3).Value
ListBox1.List(i, 4) = C.Offset(0, 4).Value
i = i + 1
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
ListBox1.ColumnWidths = "2cm" & ";" & "2cm" & ";" & "2cm"

End If
End With
Next WS
End Sub

EXCEL VBA

4 réponses

Votre réponse

Discussions similaires