VBA - Equivalent Wraptext pour saut de cellule

Version imprimable

03/12/2010, 12h15
corty69

VBA - Equivalent Wraptext pour saut de cellule

Bonjour à tous,

Pour accélérer la saisie dans un tableau excel 2007, je voudrais que lorsque du texte dépasse la longueur de la cellule, l'excédent soit automatiquement "déversé" sur la ligne suivante.

Je ne veux pas utiliser le retour à la ligne automatique qui va générer des hauteurs de ligne très différentes.

J'arrive à faire ce que je veux dans une procédure Selectionchange en comptant le nombre de caractères et en utilisant une fonction replace.
Mais ça coupe les mots n'importe où...

En fait ce que je cherche c'est l'équivalent WrapText avec un retour à la cellule suivante automatique.
Si qqu'un a une idée ?
Merci !

Très difficile du fait que les caractères n'ont pas la même largeur
ci-joint un petit bâclage à mettre dans l'évènement Change et à tester

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Worksheet_Change(ByVal Target As Range)
Const Nbmax As Byte = 20
Dim LeMot As String, LaPart
Dim i As Integer
Dim tb
 
If Target.Count = 1 And Target.Column = 1 Then
      LeMot = Target.Value
      If Len(LeMot) > Nbmax Then
            tb = Split(LeMot, " ")
            LaPart = vbNullString: i = LBound(tb)
            Do While Len(LaPart) < Nbmax And i < UBound(tb)
                  LaPart = LaPart & " " & tb(i)
                  i = i + 1
            Loop
            LeMot = Trim(Mid(LeMot, Len(LaPart) + 1))
            Application.EnableEvents = False
            Target.Value = Trim(LaPart)
            Application.EnableEvents = True
            Target.Offset(1, 0) = LeMot
      End If
End If
End Sub

04/12/2010, 11h08
Didier Gonard

Bonjour,

Citation:

Pour accélérer la saisie dans un tableau excel 2007, je voudrais que lorsque du texte dépasse la longueur de la cellule, l'excédent soit automatiquement "déversé" sur la ligne suivante.

Pourrais-tu préciser ton contexte et le but, la démarche me semble très étrange par rapport à la gestion de données sous Excel :koi:

Tu peux mette un snapshot dans ton message si besoin.

cordialement,

Didier
05/12/2010, 11h18
Touffe54

1 pièce(s) jointe(s)

Salut Corty

Moi aussi, j'ai besoin de cette "Spécialité", j'ai donc fait un programme qui tient compte de la taille des lettres.

Je n'ai pas trop le temps de tout expliquer en détail, mais si tu as des questions je me ferais un plaisir d'y répondre plus tard.