Découper une variable de type string pour l'inserer a un commentaire

Version imprimable

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:

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:

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? :(

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

Code:

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)

Une solution en decoupant la phrase en mot

Code:

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

25/01/2008, 12h23
Many31

:D 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... :)

++

Bonjour,

Une autre approche, bien plus simple 8-)
Code:

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 8-)

25/01/2008, 13h32
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