Discussion :

[corty69]

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 !

[mercatog]

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 :

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

[Didier Gonard]

Bonjour,

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

Tu peux mette un snapshot dans ton message si besoin.

cordialement,

Didier

[Touffe54]

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.