doubles lignes

[Jean Jan]

Bonsoir a tous,
Après tous vos super conseils, je suis parvenus a un bon résultat pour mon application de débutant....
Mais voila j'ai une autre p'tite question ...
Comment mettre une double ligne grâce a VBA entre chaque Type (colonne A) avant impression.
Le nombre de type varie suivant les jours bien sur.
(Dans l'exemple il y a 3 ZAME, mais suivant les jours il peut y en avoir plus)

Merci d'avance

 

[juju_69]

Re : doubles lignes

Hello,

voici une solution en espérant que cela te convienne.

@ +

juju

 

[kjin]

Re : doubles lignes

Bonsoir,
Essaie comme ceci, (sans avoir vu la macro d'impression)

Sub impression()
Derlign = Range("A65000").End(xlUp).Row
    For Each Cel In Range("A2:A" & Derlign)
        If Cel <> Cel.Offset(1, 0) And Cel.Row <> Derlign Then
            With Range("A" & Cel.Row & ":L" & Cel.Row).Borders(xlEdgeBottom)
                .LineStyle = xlDouble
            End With
        End If
    Next
'..le reste de ta macro
End Sub

A+
kjin

 

[Papou-net]

Re : doubles lignes

Bonsoir Jean Jan,

Voici ton fichier modifié, je pense que celà te conviendra.
Je ne sais pas si tu connais VBA, mais voici ce que j'ai fait :
J'ai créé une macro liée à l'événement Change de ta feuille de calcul, qui analyse les données en colonnes A, et qui ajoute une bordure supérieure double si la valeur de la cellule est différente de celle située immédiatement au-dessus. Le format s'applique jusqu'à la colonne X.

Espérant t'avoir aidé.

Cordialement.

Bonsoir juju 69, kjin,

On s'est croisés, mais mieux vaut plusieurs réponses qu'aucune.

Cordialement.

 

[Jean Jan]

Re : doubles lignes

Merci les experts .....
C'est super génial.
@+ Jean Jan