hauteur des lignes Vides à 0,3 cms

tounsy · 25 Mars 2010

Bonjour,

Je fais à nouveau appel à vous pour une macro que je n'arrive pas à faire...

En fait, je souhaite que dans une plage donnée Range(A2:A20), qu'à chaque fois que la cellule A est vide, la hauteur de la ligne doit être égale à 0,3 cms (cf. fichier joint)....

Pouvez-vous svp me donner un coup de main ?

Merci !

pierrejean · 25 Mars 2010

Re : hauteur des lignes Vides à 0,3 cms

bonjour tounsy

A tester

Code:

Sub test()
For n = 1 To Range("A65536").End(xlUp).Row
 If Range("A" & n) = "" Then
  Rows(n).RowHeight = 3
 Else
  Rows(n).RowHeight = 12.75
 End If
Next n
End Sub

tounsy · 26 Mars 2010

Re : hauteur des lignes Vides à 0,3 cms

pierrejean à dit:

bonjour tounsy

A tester

Code:

Sub test()
For n = 1 To Range("A65536").End(xlUp).Row
 If Range("A" & n) = "" Then
  Rows(n).RowHeight = 3
 Else
  Rows(n).RowHeight = 12.75
 End If
Next n
End Sub

Bonjour Pierrejean et merci beaucoups pour ta réponse.
C'est exactement ce que je voulais faire !
Pourrais tu me dire comment faire pour limiter cette macro aux lignes 2 à 20 ?

Merci encore

Épaf · 26 Mars 2010

Re : hauteur des lignes Vides à 0,3 cms

Hello tounsy, PierreJean,
Loin de moi l'idée de remettre la réponse de PierreJean en question mais pourquoi ne pas simplement masquer les lignes ? (auquel cas une seule ligne de code - que je n'ai pas encore écrite (...) devrait suffire... Enfin, je crois)

pierrejean · 26 Mars 2010

Re : hauteur des lignes Vides à 0,3 cms

Re

A tester

Code:

Sub test()
For n = 2 To 20
 If Range("A" & n) = "" Then
  Rows(n).RowHeight = 3
 Else
  Rows(n).RowHeight = 12.75
 End If
Next n
End Sub

Edit: Salut Requin

Épaf · 26 Mars 2010

Re : hauteur des lignes Vides à 0,3 cms

carcharodon-carcharias à dit:
@ Épaf
de tounsy
et PAF

C'était une simple suggestion. C'est mal venu, les suggestions ?

Ceci dit, et pour que tout soit clair entre nous (je ne voudrais pas que tu sois fâché) mon message serait arrivé avant la réponse de tounsy si un appel téléphonique ne m'avait pas distrait de mon occupation du moment.

tounsy · 26 Mars 2010

Re : hauteur des lignes Vides à 0,3 cms

pierrejean à dit:
Re

A tester

Code:

Sub test() For n = 2 To 20 If Range("A" & n) = "" Then Rows(n).RowHeight = 3 Else Rows(n).RowHeight = 12.75 End If Next n End Sub

Edit: Salut Requin

C'est excellent merci Beaucoups !

hauteur des lignes Vides à 0,3 cms

tounsy

XLDnaute Nouveau

Pièces jointes

pierrejean

XLDnaute Barbatruc

tounsy

XLDnaute Nouveau

Épaf

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

Épaf

XLDnaute Occasionnel

tounsy

XLDnaute Nouveau

Discussions similaires