Mauvais affichage de la deuxième ligne d'un listing d'impression

[jlp035]

Bonjour,
J'ai récupérer un bout de programme qui effectue la mise en page et l'impression pour établir un listing .
A chaque impression le "A" de la deuxième ligne ne s'affiche pas correctement alors que les lignes suivantes sont correctes.Je ne comprend pas d'ou vient le problème ?

Merci de votre aide.
Jean-Luc

 

[Grand Chaman Excel]

Re : Mauvais affichage de la deuxième ligne d'un listing d'impression

Bonjour,

Je ne comprend pas d'ou vient le problème ?

Moi non plus... mais si on avait un bout du code ou le fichier peut-être qu'on pourrait mieux comprendre.
Désolé, ma boule de cristal et mes pouvoirs de télépathie sont en panne ce matin.
A+

 

[Gelinotte]

Re : Mauvais affichage de la deuxième ligne d'un listing d'impression

Bonjour,

Quand on insère une ligne, Excel lui donne les mêmes paramêtres que la ligne précédente, d'où le problème avec le A.

Dans la macro "Sub Imprime_Affaires()", à comtper de la 22 lignes, change cette boucle. Ça va corriger ton problème de lettre de A.

Do While ActiveCell <> ""
  Lettre = Left(ActiveCell, 1)
  ActiveCell.EntireRow.Insert Shift:=xlDown
 Selection.EntireRow.Clear
 Selection.Rows.AutoFit
  ActiveCell = Lettre
  ActiveCell.Font.Bold = True
  Do While Left(ActiveCell, 1) = Lettre
    ActiveCell = ActiveCell & String(130, ".")
    ActiveCell.Offset(1, 0).Select
  Loop
Loop

G

 

[jlp035]

Mauvais affichage de la deuxième ligne d'un listing d'impression (Résolu)

Merci Gelinotte,
Ta modification fonctionne parfaitement.