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.
Re : Verifier si une cellule contient plusieures lignes
Re,
Et cette macro ?
VB:
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
Re : Verifier si une cellule contient plusieures lignes
Bonsoir à tous
Simplifions.
VB:
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".
VB:
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.)