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!