VBA question de lignes...

[fredannab]

Bonjour

Voilà, j'ai un code ou je fais redimentsionner la hauteur de ligne en fonction du nb de lignes qui existent entre 2 valeurs.

voici le code:

TailleSketchDefaut3 = 100
(sketch etant une image que j'insere dans la cellule)

LigneDeb3 = 6 (variable préalablement définie...)

Do
Cells(LigneDeb3, 2).Select
Selection.End(xlDown).Select
Lignefin3 = ActiveCell.Row
NbLignes3 = Lignefin3 - LigneDeb3

Rows(LigneDeb3 & ":" & Lignefin3 - 1).RowHeight = TailleSketchDefaut3 / NbLignes3

Tout fonctionne très bien quand il y a plusieurs lignes entre 2 valeurs: le xlDown saute dans la cellule où existe une prochaine valeur, vba compte le nombre de lignes entre les 2 cellules et adapte la hauteur.

Par contre, dès que j'ai plusieurs valeurs d'affilée, le xlDown zappe les cellules remplies et saute à la dernière valeur avant qu'il y ait une cellule vide.

Je voudrais donc ajouter une condition du genre

set lignedudessous as string
lignedudessous = LigneDeb3 + 1

If cells(lignedudessous , 2) n'est pas vide,
then rowHeight = TailleSketchDefaut3
else
Cells(LigneDeb3, 2).Select
Selection.End(xlDown).Select
Lignefin3 = ActiveCell.Row
NbLignes3 = Lignefin3 - LigneDeb3
Rows(LigneDeb3 & ":" & Lignefin3 - 1).RowHeight = TailleSketchDefaut3 / NbLignes3


Je ne suis pas sur d'être super clair, en résumé je voudrais savoir comment dire en vba "n'est pas vide"

Merci!

 

[ERIC S]

Re : VBA question de lignes...

Bonjour

a essayer

if not cells(,) ="" then

ou peut-être avec isempty()

 

[Fred0o]

Re : VBA question de lignes...

Bonjour Fredannab,

Tu peux essayer avec cette instruction :

If Not IsEmpty(cells(lignedudessous , 2)) Then....

A+

Edit : Bing ! Salut Eric