Ajouter l'expression "le directeur général " avant l'impression

Bonjour
Je souhaite ajouter la phrase suivante "le directeur général " à la fin de ma plage dynamique avant l’impression

Au début j’ai chercher la dernière ligne+2 et je pose ma phrase c’est bon mais parfois ma plage occupe que une page et 20% de la deuxième page
Alors ma phrase et insérer dans le haut elle n’est pas bien présenté

Svp comment mette la phrase dans la fin

Bonjour,
Il faut jouer avec la dernière ligne remplie
Suivant la dernière ligne remplie, tu choisis toi-même le N° de la ligne
Un exemple de code

Sub Test()
  Dim Dl%
  Dl = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
  If Dl < 60 Then
    Dl = 61
    ActiveSheet.Cells(Dl + 2, 5) = "le directeur général "
  ElseIf Dl < 80 Then
    Dl = 81
    ActiveSheet.Cells(Dl + 2, 5) = "le directeur général "
  Else
    ActiveSheet.Cells(Dl + 2, 5) = "le directeur général "
  End If
End Sub
1 « J'aime »

Merci Mr @Mimimathy c’est utile et grâce a votre message j’ai développer une solution idéal et l’expression « le directeur général » se trouve toujours a la fin de la page quelque soit le nombre de page.

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.