Hauteur de ligne par mise en forme conditionnelle

[apdf1]

Bonjour

Je recherche une formule pour une mise en forme conditionnelle, pour avoir une hauteur de ligne de "18" toute les deux lignes qui seront rempli.

Je vous remercie d'avance.

Cordialement

Max

 

[job75]

Re : Hauteur de ligne par mise en forme conditionnelle

Bonjour apdf1,

La hauteur de ligne ne peut pas être modifiée par formules.

Et donc par MFC non plus.

Il faut du VBA.

A+

 

[apdf1]

Re : Hauteur de ligne par mise en forme conditionnelle

Bonjour Job,

Merci d'avoir donnée cette infos n'aurais tu pas un code comme modéle.

Merci d'avance et bonne journée

@+

Max

 

[job75]

Re : Hauteur de ligne par mise en forme conditionnelle

Re,

Un exemple de code :

Sub HauteurLigne()
Dim r As Range, n&, plage1 As Range, plage2 As Range
For Each r In ActiveSheet.UsedRange.Rows
  n = n + 1
  If n Mod 2 Then
     Set plage1 = Union(r, IIf(plage1 Is Nothing, r, plage1))
  Else
     Set plage2 = Union(r, IIf(plage2 Is Nothing, r, plage2))
  End If
Next
If Not plage1 Is Nothing Then plage1.RowHeight = 18
If Not plage2 Is Nothing Then plage2.RowHeight = 10
End Sub

Edit : j'ai écrit par prudence :

If Not plage1 Is Nothing Then plage1.RowHeight = 18

Mais si plage1 inclut toujours la 1ère ligne on peut simplifier :

plage1.RowHeight = 18

A+

 

[apdf1]

Re : Hauteur de ligne par mise en forme conditionnelle

Re,

Je te remercie Nickel

Bonne journée

@+

Max