Macro défini hauteur de lignes

[Usine à gaz]

Bonjour à tous et bon WE,

J'ai besoin de définir la hauteur de certaines lignes ( de la ligne 5 à la ligne 43 et plus si possible) en fonction du paramètre suivant :

- ligne 5 si B5 > 0 hauteur 42.25
- ligne 6 si B6 > 0 hauteur 42.25
etc...

Evidemment, je ne sais pas faire,

Un grand merci pour votre aide.

Amicalement,
Lionel,

 

[JCGL]

Re : Macro défini hauteur de lignes

Bonjour à tous,

Remplace le Or par un And et les 0 par 0.5.

A+ à tous

 

[Usine à gaz]

Re : Macro défini hauteur de lignes

Je suis désolé, je n'y arrive pas.

Voici ce que j"ai mis le module de la feuille :

Option Explicit
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Dim X&
With Range("B5:B50")
.RowHeight = 42.5
.EntireRow.Hidden = True
End With
For X = 5 To 45
If Cells(X, 2) > 0 And Cells(X, 5) > 0 Then Cells(X, 1).EntireRow.Hidden = False ( c'est bien 0 qu'il faut garder)
Next X
ActiveSheet.Protect
End Sub

et il y a dans le module général :

Option Explicit

Sub Hauteur()
Range("B5").Select
Selection.RowHeight = 42.5
End Sub

Il faut peut-être modifier la macro du module général ?

Je crois que je t'ai assez dérangé avec ce truc, si ça ne marche pas cette fois-ci, je me contenterai d'une condition. C'est déja beaucoup.

Merci à toi,
Amicalement,
Lionel,

 

[JCGL]

Re : Macro défini hauteur de lignes

Bonjour à tous,

Pourquoi un module avec la Sub Hauteur() ?

Tu souhaites une macro automatique ou une macro associée à un bouton ?

Si tu souhaites une macro associée à un bouton (il faut supprimer le code de la feuille...) :

Option Explicit
Sub Hauteur()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Dim X&
With Range("B5:B50")
.RowHeight = 42.5
.EntireRow.Hidden = True
End With
For X = 5 To 45
If Cells(X, 2) > 0 And Cells(X, 5) > 0 Then Cells(X, 1).EntireRow.Hidden = False
Next X
ActiveSheet.Protect
End Sub

A+ à tous

 

[Usine à gaz]

Re : Macro défini hauteur de lignes

Bonsoir,

Avec l'aide de tes macros que j'ai fini par comprendre, j'ai fini par trouver.
Ta macro fonctionne parfaitement.

Demain, je t'expliquerai le fin mot de la chose, je vais me coucher.

Bonne nuit,

Un grand merci,
Amicalement,
Lionel,

 

[Usine à gaz]

Re : Macro défini hauteur de lignes

Bonjour JGCL,
Bonjour à tous,

Ayant été pris par d'autres tâches, je n'ai pas pu te répondre le lendemain.
Je le fais aujourd'hui.

Ta macro fonctionne parfaitement et je t'en remercie.

Je n'y arrivais pas car je n'avais pas pensé que les cellules de la colonne B des lignes 5 à 45 devaient être > à 0 pour être formatées.

Ceci étant résolu ...... ça marche !
Amicalement,
Lionel,