Ajuster la hauetur de ligne en fonction du nombre de caractère

[ll40]

Bonjour à tous,

Je travaille sous Excel 2007.
Je cherche à faire une macro pour de la mise en forme de cellule.

J'ai un tableau de 900 lignes qui contient du texte. Je souhaiterai que pour les lignes contenant : dans la colonne B et / ou C des cellules à plus de 40 caractères il me rajoute 10 pt dans la hauteur de ligne.

J'ai cette macro:

Sub Augmenter_Hauteur()

' Macro enregistrée le 06/05/2010 par Psico
'
For i = 1 To 900 'On fait varier la variable i de 1 à 900 et pour chaque iteration, on execute la boucle suivante
Rows(i & ":" & i).Select 'Selectionner la ligne i
X = Selection.RowHeight 'Mettre dans la variable X la hauteur de la ligne i
Selection.RowHeight = X + 10 'Ajouter 10 (pt , cm?) à X puis attribuer la nouvelle hauteur X à la ligne i
Next i 'Passer à l'itération suivante de i
End Sub.

Seulement toutes les lignes de mon tableau sont modifiées. Je n'arrive pas à lui faire sélectionner les lignes en fonction du nombre de caractères par cellules.

Merci pour vos réponses!

Bonne journée

 

[Denis]

Re : Ajuster la hauetur de ligne en fonction du nombre de caractère

Bonjour II40, et le forum
peut être comme ceci ?

For i = 1 To 900
If Len(Range("B" & i)) > 40 Or Len(Range("B" & i)) > 40 Then Rows(i).RowHeight = Rows(i).RowHeight + 10
Next

Bon courage et à +
Denis

 

[ll40]

Re : Ajuster la hauetur de ligne en fonction du nombre de caractère

Merci bien Denis,

cela fonctionne bien!!!!

Bonne journée à toi et au forum!