Discussion :

[Jérôme3391]

Bonjour

J'ai une boucle qui vérifie le nombre de caractère dans une cellule, si cela excède, le contenu est coupé et inséré dans une cellule créé.
On peut avoir 2, 3, 4 cellules crées.

Cette boucle tourne sur la colonne B, j'ai rajouté la fonction Merge dans ma boucle mais cela ne fonctionne pas (cela efface des données) ; juste avant le End If.
J'aimerais bien aussi que la colonne A soit fusionné d'après le nombre de ligne rajouté.

Merci pour votre aide

Voici le code :
'Découpage des cellules ayant trop de texte dans une cellule
For Each cell In Range("b1:b" & [b65000].End(xlUp).Row + 55)
If Len(cell) > 885 Then
'on recherche a l'aide de cette boucle l'espace se trouvant avant la position 900
For x = 1 To 30
If Mid(cell, 885 - x, 1) = " " Then Exit For
Next x

cell.Offset(1, 0).EntireRow.Insert
cell.Offset(1, 0) = Right(cell, Len(cell) - 885 + x)
cell.Value = Left(cell.Value, 885 - x)
Range(cell.Offset(1, 0), cell.Offset(0, 0)).Merge
End If
Next cell

[Franc]

Bonjour,
J'ai ajouté une boucle pour compter le nombre de cellules créées dans la colonne B pour chaque cellule et une autre pour fusionner les cellules correspondantes dans la colonne A.

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
For Each cell In Range("B1:B" & [B65000].End(xlUp).Row + 55)
    If Len(cell) > 885 Then
        'on recherche a l'aide de cette boucle l'espace se trouvant avant la position 900
        For x = 1 To 30
            If Mid(cell, 885 - x, 1) = " " Then Exit For
        Next x
 
        cell.Offset(1, 0).EntireRow.Insert
        cell.Offset(1, 0) = Right(cell, Len(cell) - 885 + x)
        cell.Value = Left(cell.Value, 885 - x)
        Range(cell.Offset(1, 0), cell.Offset(0, 0)).Merge
 
        'compter le nombre de cellules créées
        Dim nbCellules As Integer
        nbCellules = 1
        Do While Len(cell.Offset(nbCellules, 0)) > 0
            nbCellules = nbCellules + 1
        Loop
 
        'fusionner les cellules correspondantes dans la colonne A
        Range(cell.Offset(0, -1), cell.Offset(nbCellules - 1, -1)).Merge
    End If
Next cell

[Jérôme3391]

Merci @franc pour ce retour rapide

Ok pour la fusion colonne A mais avant de tester j'ai mon problème de suppression d'info de la ligne 11 (Range(cell.Offset(1, 0), cell.Offset(0, 0)).Merge))

Je ne comprends pas pourquoi cela m'efface des données.

Merci

[Tête de chat]

Bonjour,

si j'ai bien suivi l'idée est de découper une chaine trop longue en autant que sous-chaine que nécessaires, de mettre chaque sous chaine dans des celules différentes les unes en dessous des autres, puis de fusionner les cellules.

Sauf que la fusion justement ne conserve les données que de la cellule supérieure. Donc le comportement décrit a l'air normal...

Si tu tiens à la fusion, garde le même principe en laissant tout le texte dans la première cellule et en ajoutant un attribut "renvoyer à la ligne automatiquement.

Si tu tiens au découpage, oublie la fusion et simule-la visuellement (encadrement, couleur de fond).

[Jérôme3391]

Merci pour ce retour Tête de chat

Un attribut "renvoyer à la ligne automatiquement" ne peut pas fonctionné car je suis en limite de caractère dans une cellule d'où le découpage sur plusieurs cellules.

Je ne peux donc pas le faire. Merci pour cette éclaircissement.