XL 2013 VBA : tout le contenu d'une cellule est visible

Dudu2

XLDnaute Barbatruc

• 27 Septembre 2021

• #2

Bonjour,
La question "de déterminer si tout le texte d'une cellule est lisible" peut être interprétée de différentes façons ?
- Il s'agit d'une Font ou de plusieurs représentant des caractères latins
- Les couleurs de caractères et les couleurs de fond sont toutes différentes
- La cellule appartient à la plage affichée à l'écran (ActiveWindow.VisibleRange éventuellement corrigé des marges)
- Le Zoom est au-dessus d'une valeur permettant la lecture du texte
- et j'en oublie, sans compter les combinaisons possibles.

 

Vote positif 0 Vote négatif

dionys0s

XLDnaute Impliqué

• 27 Septembre 2021

• #3

Bonjour,

normalement, les 3 exemples de résultat attendu dans le classeur joint au 1er message répondent à ta question.

Les cellules ne sont pas nécessairement fusionnées, mais j'aimerais que la fonction marche également quand c'est le cas.

J'espère que c'est plus clair comme ça.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 27 Septembre 2021

• #4

Ah ok.
Donc c'est dans les hypothèses que je n'ai pas mentionnées !
De mon point de vue c'est impossible de le savoir car pour ça il faudrait simuler la mise en forme d'Excel dans la cellule. Et ça, je ne sais pas le faire.

 

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 27 Septembre 2021

• #5

re dionys0s bonjour dudu2 bonjour le forum

je n'ai pas pris le temps de bien lire mais, je vous propose une solution ou le texte est affiché en totalité dans le label d'un formulaire (cellule fusionnée ou pas), un début de solution pour faire évoluer votre projet.
le principe, le clic droit ouvre un formulaire ou dans un label, la cellule active est affichée.
cdt
galougalou

​

 

Pièces jointes

• afficher contenu cellule en totalité.xlsm

  19.9 KB · Affichages: 4

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Septembre 2021

• #6

Bonjour dionys0s, Dudu2, GALOUGALOU,

Une solution avec le double-clic, ce n'est pas parfait :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i&, rh#, w#, c As Range, resu$
Cancel = True
For i = 1 To Selection.Rows.Count
    rh = rh + Target.Rows(i).RowHeight
Next
w = Target.Width
Application.ScreenUpdating = False
With Workbooks.Add.Sheets(1).[A1] 'document auxiliaire
    Target.Copy .Cells
    .UnMerge
    .RowHeight = rh
    .Columns.AutoFit 'ajuste la largeur
    resu = IIf(.Width <= w + 3, "On voit tout", "On ne voit pas tout")
End With
ActiveWorkbook.Close False
MsgBox resu
End Sub

A+

 

Pièces jointes

• Text lisible - XLD(1).xlsm

  18 KB · Affichages: 4

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 27 Septembre 2021

• #7

@job75,
Belle idée !

 

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 27 Septembre 2021

• #8

re le fil
oui je vois je n'ai pas répondu correctement à la demande
bien la solution de job75
cdt

 

Vote positif 0 Vote négatif

dionys0s

XLDnaute Impliqué

• 28 Septembre 2021

• #9

Bonjour Dudu2, GALOUGALOU, job75

merci job75, c'est effectivement ce sur quoi je m'orientais en désespoir de cause. J'espérais une astuce qui m'aurait échappée dans les propriétés d'un objet Range, permettant de contourner ce type de méthode, mais bon. Tant pis.

Merci encore, et bonne journée !

 

Vote positif 0 Vote négatif