Discussion :

[patricktoulon]

bonjour a tous

toujour dans mon projet excel to html je cherche le moyen de detecter le nombre de ligne ecrites dans un range de plusieur cellules fusionnée dont le parametre "renvoyer a la ligne automatiquement " est coché

quelqu'un a une idée

merci d'avance

[patricktoulon]

bonjour a tous
a defaut d'avoir trouvé preneur pour mon post
j'ai cherché une solution tout seul

et voila ce que ca donne

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
31
32
33
34
35
36
37
38
39
40
41
42
43
 
Sub compte_les_lignes()
    If Selection.MergeCells = True Then
        'longeur = Len([f1].Text)
        longueur = Len(Range(Selection.Address).Cells(1, 1).Text)
    Else
        longueur = Len(Selection.Text)
    End If
    MsgBox comptage(Selection) & "  caracteres sur une ligne" & vbCrLf & vbCrLf & Round(longueur / comptage(Selection)) & IIf(longueur > 0, "lignes", ligne)
End Sub
Function comptage(c As Range) As Long
    Select Case c.Font.Size
    Case 8
        diviseur = 4.615384615
    Case 9
        diviseur = 5.357142857
    Case 10
        diviseur = 5.263157895
    Case 11
        diviseur = 5.263157895
    Case 12
        diviseur = 6.25
    Case 13
        diviseur = 6.976744186
    Case 14
        diviseur = 7.692307692
    Case 15
        diviseur = 9.090909091
    Case 16
        diviseur = 10.34482759
    Case 17
        diviseur = 11.11111111
    Case 18
        diviseur = 12
    Case 19
        diviseur = 13.63636364
    Case 20
        diviseur = 14.28571429
    Case 21
        diviseur = 15
    End Select
    comptage = c.Width * 4 / 3 / diviseur
End Function

une petite matrice bien pratique
bon c'est un peu barbare mais ca marche
au plaisir

[patricktoulon]

bonjour a tous

je me suis rendu compte que si les lignes etaient créées par l'apuie de la touche "ALT" et "entrer" qui servent aller a la ligne suivante dans une cellule multiligne on pouvait se servir de la fonction split sur le texte par le ch(10)

exemple :lit le texte de la cellule f1 qui est multiligne
et retranscrit en colonne "A" chaque ligne de la "f1" sur une ligne differente en colonne "A"

code:

Code :

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

1
2
3
4
5
6
7
8
9
Sub separe_les_lignes()
ligne = 1
  x = Split([f1].Text, Chr(10))
  For m = LBound(x) To UBound(x)
    Cells(ligne, 1) = x(m)
    ligne = ligne + 1
  Next m
 
End Sub

au plaisir