Discussion :

[Many31]

Bonjour

voila je crée un commentaire pour une cellule et j'y insère une variable de type string. Je redimensionne le commentaire en question:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
If ideEC <> "" Then
       Cells(ligneP, 15).Select
       With Selection
              .AddComment.Text ideEC
              .Comment.Visible = True
       Cells(ligneP, 15).Comment.Shape.Select True
       With Selection
              .AutoSize = True
       End With
       Cells(ligneP, 15).Select
       Selection.Comment.Visible = False
End If

Problème... ma variable ideEC peut contenir un string de plus de 300 caractères et de ce fait je voudrais le découper... sans pour autant couper les mots en deux

j'ai un bout du code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
If Len(ideEC) < 50 Then
    ideECC = Chr(10) & ideEC
Else
    Do While Len(ideEC) > 50
        ideECC = ideECC & Chr(10) & Left(ideEC, 50)
        ideEC = Right(ideEC, Len(ideEC) - 50)
    Loop
End If
 
MsgBox ideECC & Chr(10) & ideEC

mais comment tester si le dernier mot de chaque ligne est entier?

[Many31]

bon pour ne pas couper le mot j'ai trouvé... j'aurais mieux fait de chercher un peu plus longtemps

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    If Len(Even) < 25 Then
        Even = "Evénement redouté : " & Chr(10) & Even
    Else
        Do While Len(Even) > 25
            i = 25
            Do While Mid(Even, i, 1) <> " " And i <> Len(Even)
                i = i + 1
            Loop
            EvenC = EvenC & Chr(10) & Left(Even, i)
            Even = Right(Even, Len(Even) - i)
        Loop
        Even = "Evénement redouté : " & EvenC & Chr(10) & Even
    End If

par contre une question....

les commentaires apparaissent a droite de la cellule et impossible de les déplacer. Avez vous une idée? (version Excel 2002)

[jfontaine]

Une solution en decoupant la phrase en mot

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Dim str() As String
Dim strFinal As String
Dim i As Integer
 
Dim nbCar As Integer
 
str = Split(Range("A1").Value, " ")
 
For i = 0 To UBound(str)
 
    If nbCar + Len(str(i)) > 30 Then
        strFinal = strFinal & Chr(13) & str(i) & " "
        nbCar = 0
    Else
        strFinal = strFinal & str(i) & " "
        nbCar = nbCar + Len(str(i)) +1
    End If
 
Next i
 
MsgBox strFinal

[Many31]

merci jfontaine en fonctionnement cest plus simple... et plus complexe dans la conception. Et ca ma permit de voir 2/3 fonctionnalité que je connaissais pas

bon je clos...

++

[Bigalo]

Bonjour,

Une autre approche, bien plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub cf()
Dim Ratio1 As Integer, Ratio2 As Single
        With Selection
            .AddComment.Text ideEC
            .Comment.Visible = True
        End With
    ActiveCell.Comment.Shape.Select True
        With Selection
            .AutoSize = True
            Ratio1 = .Width /.Height
            Ratio2 = (Ratio1 / 1.5) ^ 0.5
            .Width = .Width / Ratio2
            .Height = .Height * Ratio2
        End With
End Sub

L’Autosize transforme le commentaire en 1 ligne interminable. Pour avoir une largeur 1 fois et demie plus importante que la hauteur, il suffit de transformer les propriétés Height et Width :

On calcule le rapport .Width /.Height et on en calcule la racine. On divise Width par cette racine et on multiplie Height par la même valeur.

C’est tout.

Plus besoin de gérer les éventuelles coupures de mots

[Many31]

Oo outch oO

merci beaucoup messieur...

Bigalo tu m'as coupé ma digestion XD c'est même tiptop... parcequ'en "découpant" mon string (huhu) au final je récupéré un des commentaires de tailles différentes. Pour un ou deux ce n'est pas trop grave mais a partir de 100 ca faisait pas tres propre...

une fois de plus merci bien tout le monde