Discussion :

[cllemay]

Bonsoir à tous. Je demande votre aide avec le problème suivant SVP.
Je voudrais une macro ou quelque chose du même genre qui ferait
que lorsque un usager inscrit des données dans une cellule et que les
données sont trop nombreuses pour la largeur de cellule, que excel change de ligne (cellule) automatiquement.

Exemple: Si l'usager inscrit plus de 40 caractères dans la cellule
E62, que le reste du texte soit inscrit dans la cellule E63 et ainsi de suite.

Donc que grosso modo dès que 40 caractères sont inscrits dans la cellule
E62, les caractères 41 à 80 soient inscrits dans la cellule E63, les caractères
81 à 120 soient inscrits dans la cellule E64 etc.

Merci pour votre aide très appréciée

[babaothe]

salut

la chose ne pouvant être faite durant la saisie dans une cellule, il te faudra envisager un découpage au moment où tu la quittes (évènement selection_change).
Pour découper la chaine saisie : utilisation simple de la fonction Mid (aide ou F1).

J'appelle toutefois ton attention sur le fait qu'un tel mécanisme (celui que tu dis vouloir mettre en place) aura pour effet de rendre complexe la gestion des lignes du tableur !
Il est plutôt reecommandé, dans un tel cas, de formater ta cellule (opération simple) pour un renvoi automatique à la ligne, au sein même de la cellule (donc sans "toucher" aux lignes du tableur lui-même)

[PPz78]

Bonjour,

Voici ma solution

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
24
25
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Text As String
    L_Max = 5          ' Longueur maximum
    CC_Lig = Target.Row
    CC_Col = Target.Column
 
 ' Controle de la longueur de la frappe précédente
    If CP_Lig + CP_Col <> 0 Then
        Text = Cells(CP_Lig, CP_Col)
        If Len(Text) > L_Max Then
                D_L = 0
            Do
                Cells(CP_Lig + D_L, CP_Col) = Left(Text, L_Max)
                Text = Right(Text, Len(Text) - L_Max)
                D_L = D_L + 1
                If Len(Text) <= L_Max Then
                    Cells(CP_Lig + D_L, CP_Col) = Text
                    Exit Do
                End If
            Loop
        End If
    End If
    CP_Lig = CC_Lig
    CP_Col = CC_Col
End Sub

avec

Code :

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

1
2
Public CP_Lig As Integer
Public CP_Col As Integer

[babaothe]

salut PPz78

Mis à part les inconvénients dénoncés par mon premier message, ce que tu proposes de mettre en place ignore totalement les règles de passage à la ligne : après un mot, un signe de ponctuation, ou en coupant le mot là où il convient de le couper (entre une double consonne ou à la fin d'une syllabe ... et en ajoutant alors un tiret)...
Le résultat sera donc très loin d'être fameux

[PPz78]

salut PPz78
ce que tu proposes de mettre en place ignore totalement les règles de passage à la ligne : après un mot, un signe de ponctuation, ou en coupant le mot là où il convient de le couper (entre une double consonne ou à la fin d'une syllabe ... et en ajoutant alors un tiret)...

Ce sont de bonnes remarques, mais cela ne fait pas partie de la spécification initiale.

[cllemay]

Merci pour vos réponses rapides. J'ai hâte de les tester. Petite question,
PPz78 pour ma longueur de ligne, si je veux mettre 40 caractères, je
présume que je dois remplacer le 5 par 40 dans
Dim Text As String
L_Max = 5
Pour ce qui est des cellules, je voudrais que ce code s'applique uniquement dans les cellules E62 à E119. Où est-ce que je dois entrer ces précisions?

Pour l'aspect du respect des règles de passage à la ligne, effectivement cela importe peu car les usagers qui entrent les données font malheureusement plusieurs fautes dans l'écriture des mots ainsi que lors des changements de ligne.

Merci de vos réponses et continuez votre bon travail c'est extrêmement apprécié. CL

[cllemay]

Désolé de vous importuner à nouveau mais il semble qu'il y'ait encore une erreur.
Voici le code mis à jour:

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
24
25
26
27
28
29
30
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Text As String
    Public CP_Lig As Integer
    Public CP_Col As Integer
    L_Max = 40          ' Longueur maximum
    CC_Lig = Target.Row
    CC_Col = Target.Column
 
 ' Controle de la longueur de la frappe précédente
    If CP_Lig + CP_Col <> 0 Then
    If CP_Col = 5 Then               ' limitation à la colonne E : 5
    If CP_Lig > 61 And CP_Lig < 119 Then  ' limitation aux lignes 62 à 119
        Text = Cells(CP_Lig, CP_Col)
        If Len(Text) > L_Max Then
                D_L = 0
            Do
                Cells(CP_Lig + D_L, CP_Col) = Left(Text, L_Max)
                Text = Right(Text, Len(Text) - L_Max)
                D_L = D_L + 1
                If Len(Text) <= L_Max Then
                    Cells(CP_Lig + D_L, CP_Col) = Text
                    Exit Do
                End If
            Loop
        End If
    End If
    End If
    End If
 
End Sub

maintenant il bloque sur

Code :

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

CC_Lig = Target.Row

et me donne une erreur 424 objet requis.

Merci encore de vos efforts.

[AlainTech]

Bonjour,

Où as-tu mis ce code?
Il doit être dans le module de ThisWorkbook.

[PPz78]

Bonjour,

Excuse moi, mais je pensais que ton niveau VB était meilleur.

Je récapitule :
1- dans un module de VB il faut mettre ces deux instructions :

Code :

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

1
2
3
 
   Public CP_Lig As Integer
   Public CP_Col As Integer

2- dans le module ThisWorkbook il faut mettre ce code (ce n'est pas le dernier que tu as proposé) :

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
24
25
26
27
28
29
30
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   Dim Text As String
   L_Max = 40          ' Longueur maximum
   CC_Lig = Target.Row
   CC_Col = Target.Column
 
' Controle de la longueur de la frappe précédente
   If CP_Lig + CP_Col <> 0 Then
   If CP_Col = 5 Then               ' limitation à la colonne E : 5
   If CP_Lig > 61 And CP_Lig < 119 Then  ' limitation aux lignes 62 à 119
       Text = Cells(CP_Lig, CP_Col)
       If Len(Text) > L_Max Then
               D_L = 0
           Do
               Cells(CP_Lig + D_L, CP_Col) = Left(Text, L_Max)
               Text = Right(Text, Len(Text) - L_Max)
               D_L = D_L + 1
               If Len(Text) <= L_Max Then
                   Cells(CP_Lig + D_L, CP_Col) = Text
                   Exit Do
               End If
           Loop
       End If
   End If
   End If
   End If
   CP_Lig = CC_Lig
   CP_Col = CC_Col
 
End Sub

En espérant que cela marche cette fois.
PPz

[cllemay]

Merci beaucoup maintenant ça fonctionne parfaitement.