Discussion :

[LiseUEMPT]

Bonjour

Je voudrais que la cellule qui contient du texte non visible à cause de la hauteur de ligne que je mets à 40 soit de couleur.
J'ai un bout de code que je mets dans le Workbook_BeforeSave

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 
 ActiveSheet.Select
     If ActiveCell.Rows > 40 Then
        Selection.Interior.ColorIndex = 36
        Else
        Selection.Interior.ColorIndex = 0 'xlNone
    End If
 
 End Sub

Le résultat ne donne pas ce que je veux.
Il met en couleur l'endroit où se trouve le curseur même si tout le texte est affiché quand le fichier est enregistré . De plus, lorsqu'il y a modification de la cellule et que tout le texte s'affiche lors de l'enregistrement du fichier la couleur est toujours là à l'ouverture du fichier. Je joins mon fichier de travail

Si vous avez des suggestions votre aide serait bien appréciée.

Merci à l'avance

[LG-69]

Bonjour,

Je ne comprends pas bien ce que tu veux faire :

Tu veux que ta cellule se colorie quand la hauteur de la cellule ne permet pas de voir tout le texte qu'elle contient ?
Si c'est bien la cas ta macro (d'après mes connaissances VBA) ne fait pas ça du tout, elle regarde si la cellule active est positionnée en ligne 40 ou plus et la colore dans ce cas, pas de rapport avec la taille de la cellule.

Peux-tu ré-expliquer le besoin ?

J'ai l'impression que tu aimerais au moment de la sauvegarde de ton fichier, vérifier s'il y a des cellules qui contiennent du texte qui en se voit pas (car cellule trop petite) et les mettre en couleur dans ce cas, est-ce bien ça ?

[LiseUEMPT]

Bonjour LG-69,

C'est ce que je veux : que la cellule se colorie quand la hauteur de la cellule ne permet pas de voir tout le texte qu'elle contient. Juste la cellule pas la ligne.

Je sais que mon code VBA a ne fait pas ça. Je ne sais pas comment faire, je ne suis pas très habile en VBA, je vous remercie à l'avance si vous pouvez me venir en aide.

Bonne journée

LiseUEMPT

[Menhir]

Code :

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

     If ActiveCell.Rows > 40 Then

Le résultat ne donne pas ce que je veux.

ActiveCells.Rows représente la collection de toute les ligne de ActiveCells, c'est-à-dire, vraisemblablement la ligne courrante.
Ca n'a aucun rapport avec les auteurs de lignes.

Je suppose que si on le compare à un nombre comme 40, il renvoie la valeur contenu dans sa première cellule, ce qui ne semble pas être ce que tu souhaites.

Si ce que tu veux savoir est la hauteurs occupée par le texte à l'intérieur de la cellule pour savoir si ça dépasse la taille de la cellule, je crains que ce soit quasiment impossible.

La seule solution que je vois, c'est, sur chaque ligne, d'appliquer la méthode AutoFit , de regarder si la taille obtenue est supérieure à 40 et si c'est le cas, de modifier la couleur, sans oublier, après, de remettre la hauteur de ligne à 40.

Mais je n'ai pas compris pourquoi tu utilise l'évènement BeforeSave pour le déclencher.