Verifier si une cellule contient plusieures lignes

[badbad]

Bonjour,
Existe un commande en VB pour verifier si une cellule est ecrite sur plusieures lignes?


Merci par avance pour votre aide
Cordialement
Alexandre Bessy

 

[JCGL]

Re : Verifier si une cellule contient plusieures lignes

Bonjour à tous,

Peux-tu essayer :

Sub Test()
Dim X As Long
Dim Cel As Range
X = 0
For Each Cel In Selection
    If Cel.WrapText = True Then X = X + 1
    [J1] = X
Next Cel
End Sub

A + à tous

 

[Victor21]

Re : Verifier si une cellule contient plusieures lignes

Bonjour, badbad.

En attendant une solution par macro , une solution par formule qui te donne le nb de retours à la ligne;

Edit : Bonjour, Jean-Claude. Je n'avais pas vu ton code

 

[badbad]

Re : Verifier si une cellule contient plusieures lignes

Bonjour,
Merci beaucoup a vous deux.
Pour la methode ".wrapText" cela m'informe si la cellule est configuree de cette facon mais pas si le text dedans est sur plusieures lignes. Dans le cas ou toute la colone est configuree de cette facon je ne sais pas differencier les cellules rellement sur plusieures lignes.

Un example tres simple en piece jointe, la macro tres simple met 1 dans la deuxieme colone si la cellule n'est pas en Wraptext et met 2 si c est le cas. Le resultat donne 2 pour toutes les valeures meme si la cellule est monoligne.

Regards
Alexandre Bessy

 

[Victor21]

Re : Verifier si une cellule contient plusieures lignes

Re,

Et cette macro ?

Sub Test()
    Dim I As Long
    Dim Cel As Range
    For I = 3 To 10
        With Cells(I, 2)
            .FormulaR1C1 = "=LEN(SUBSTITUTE(RC[-1],CHAR(10),11))-LEN(RC[-1])"
            .NumberFormat = "0"" retour(s) à la ligne."""
        End With
    Next I
End Sub

 

[badbad]

Re : Verifier si une cellule contient plusieures lignes

Cela semble convenir encore merci pour votre aide.

Regards
Alexandre Bessy

 

[ROGER2327]

Re : Verifier si une cellule contient plusieures lignes

Bonsoir à tous

Simplifions.

1. Sub toto()
   Dim cel As Range
       For Each cel In Selection: cel.Offset(0, 1).Value = 1 + cel.WrapText * (cel.Value Like "*" & vbLf & "*"): Next
   End Sub

   renvoie 1 pour "uniligne", 2 pour "multiligne".
   
   

2. Sub tata()
   Dim cel As Range
       For Each cel In Selection: cel.Offset(0, 1).Value = cel.WrapText * (Len(Replace(cel.Value, vbLf, "")) - Len(cel.Value)): Next
   End Sub

   renvoie le nombre de retours à la ligne efficaces.

(On remplacera à volonté Selection par la plage voulue.)​

ROGER2327
#5316

Samedi 21 Merdre 138 (Sainte Pyrotechnie, illuminée - fête Suprême Quarte)
19 Prairial An CCXIX, 9,6159h - tilleul
2011-W23-2T23:04:41Z