zone d'impression dynamique cellule contenant une formule

[bouchb]

Bonjour,
je progresse en VBA mais je rencontre encore des difficultés.

je voudrais faire une zone d'impression dynamique.

la largeur est toujours de la colonne B à O mais le nombre de ligne est variable.

la colonne de référence pour définir le nombre de ligne est la colonne D mais toute les cellules de cette colonne contiennent des formules.

je voudrais que la dernière ligne de la zone d'impression corresponde à la dernière ligne ou le résultat de la formule est différend de " ".

ci-joint le fichier.


Merci beaucoup de votre aide.

 

[Paf]

Re : zone d'impression dynamique cellule contenant une formule

Bonjour

une solution pour déterminer la ligne de la dernière cellule renseignée:

For i = 6 To Range("D" & Rows.Count).End(xlUp).Row
    If Cells(i, 4) = " " Then
       NbLigne = i - 1
        Exit For
    End If
Next
MsgBox NbLigne

attention il y a un espace entre les guillemets de If Cells(i, 4) = " " Then

A+