VBA Comment supprimer cette Ligne fantôme

[fb62840]

Bonjour à toutes et à tous,

Voici ce qui se passe :
Je collecte des données dans une Array
Je les affecte ensuite dans des cellules précise
Toutes les lignes sont avec :

.WrapText = True
.Rows.AutoFit
.VerticalAlignment = xlTop

Et pourtant l'une des lignes ne s'ajuste pas vraiment.
C'est à dire qu'elle semble avoir une ligne de "texte" vide en bas de cellule.
J'ai bien vérifié, il n'y a rien après le texte, pas de retour chariot, pas de caractère invisible

Une idée ?

Merci

 

[ERIC S]

Re : VBA Comment supprimer cette Ligne fantôme

Bonjour

un extrait montrant le problème serait bienvenu, je ne suis jamais passé sur ce cas de figure

 

[fb62840]

Re : VBA Comment supprimer cette Ligne fantôme

Bonjour,

En fait, je suis sur une piste, il semble que cela soit lié au nombre de caractères dans la cellule qui parfois excède 255.
Toutefois, je tente de "corriger" la hauteur de ligne en utilisant ce code sans succès :

If Len(Cel) > 255 Then
With ActiveCell.Rows
.RowHeight = (ActiveCell.RowHeight - 15)
Cel.VerticalAlignment = xlTop
End With
Else
Cel.Rows.AutoFit
Cel.WrapText = True
Cel.VerticalAlignment = xlTop
End If

Voir le fichier en pièce-jointe.

On doit pouvoir faire bien mieux notamment en accélérant le code qui dans cette partie ralentie considérablement l'exécution de la macro.
Merci