Comment puis-je afficher le texte d'affilée sur 409 pts de haut?

Question

Ma tâche consiste à obtenir du texte à imprimer et à afficher bien qu'il soit plus long que la série de 409 points. La feuille sur laquelle je travaille est une feuille de destination provenant d'une feuille source qui peut changer souvent, mais en général seulement 1 des 15 cellules présente ce problème. Les paramètres de la cellule sont fixes, donc je ne peux pas changer la largeur de police ou de colonne.

Sur une feuille de calcul, j'ai créé une macro qui insérera une ou plusieurs lignes, fusionnera les cellules requises et changera la hauteur de ligne pour augmenter la taille de la cellule, mais IF ... END IF puis-je utiliser pour trouver des lignes supérieures à 408 le Macro?

J'utilise Excel 2007.

Answer 1

Essayez d'enregistrer une macro et en changeant la taille d'une ligne. Puis inspectez le code VBA généré par la macro pour voir comment la taille de la ligne est générée dans le code.

Vous remarquerez que le code VBA n'utilise pas de pixels, vous devrez donc effectuer une conversion pour trouver l'équivalent de 409 pixels. Après cela, vous pouvez utiliser une boucle pour trouver toutes les lignes qui ont une hauteur de cellule supérieure à une certaine valeur:

Dim lng As Long 
lng = 1 
Do While Not IsEmpty(Range("A" & lng).Value) 
    If Rows(lng).RowHeight >= 306.75 Then 
    'Insert the code to add a new row here. When looking at the ' 
    'code in your macro, you can replace the row number (e.g. the "18:18" in ' 
    'Rows("18:18") with the counter variable, lng, like so: Rows(lng).... ' 
    'If you want the *following* row, use Rows(lng+1) instead. 
    '' 
    'I'm not sure of the command to insert a new row, but if you do insert a ' 
    'new row, watch your counter. You may need to add an additional ' 
    'lng = lng + 1 into your code to account for the newly added row.' 
    End If 
    lng = lng + 1 
Loop