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,

Peux-tu essayer ceci dans le module de la feuille concernée :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DerL&, X&
DerL = Range("B5000").End(xlUp).Row
For X = 5 To DerL
If Cells(X, 2) >0  Then Cells(X, 2).RowHeight = 42.5
Next X
End Sub

A+ à tous

 

[Usine à gaz]

Re : Macro défini hauteur de lignes

Bonjour,
Merci pour ta réponse.
j'ai copié ton code dans le module de la feuille concernée mais il ne se passe rien.
Il y a peu-être un truc que je n'ai pas compris ?
Amicalement,
Lionel,

 

[JCGL]

Re : Macro défini hauteur de lignes

Bonjour à tous,

Je te pose le code dans un fichier :

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
Dim DerL&, X&
DerL = Range("B5000").End(xlUp).Row
For X = 5 To DerL
Cells(X, 2).RowHeight = IIf(Cells(X, 2) > 0, 42.5, 12.5)
Next X
End Sub

Si la valeur de B est supérieure à 0 la hauteur passe à 42.5 sinon elle passe à 12.5

A+ à tous

 

[Usine à gaz]

Re : Macro défini hauteur de lignes

Encore Merci,

ça marche et ça met bien en hauteur 0 mes lignes quand la cellule B de la ligne est à 0 (ou 12.5 comme tu l'as écrit).

mais, dans ma cellule B (pour toutes les lignes), il y a une formule conditionnelle qui peut donner un résultat > à 0 et dans ce cas, je voudrais que les lignes se retrouvent en hauteur 42.50 et dans ce sens, ça ne marche pas ou j'ai pas compris ?

Encore merci de ton aide,

 

[JCGL]

Re : Macro défini hauteur de lignes

Bonjour à tous,

Cela fonctionne aussi avec une formule.

Merci de joindre un fichier significatif.

A+ à tous

 

[Usine à gaz]

Re : Macro défini hauteur de lignes

Bonjour à tous,

Cela fonctionne aussi avec une formule.

Merci de joindre un fichier significatif.

A+ à tous

Voici le fichier, je le croyais trop gros mais il passe.

Mes formules de recherche se font à partir de la feuille Matrice mais pour t'éviter de perdre du temps, je t'ai mis deux exemple de références à saisir dans la feuille concernée (OF1) en N/O
@ plus

 

[Usine à gaz]

Re : Macro défini hauteur de lignes

J'ai fait une petite erreur de copie
La référence : 0002793501, c'est 00027935 qui est à prendre(sans le 01)
Dsl

 

[JCGL]

Re : Macro défini hauteur de lignes

Bonjour à tous,

Je ne comprends pas où cela ne fonctionne pas
J'ai testé sur ton fichier et cela m'a l'air de fonctionner

A+ à tous

 

[Usine à gaz]

Re : Macro défini hauteur de lignes

Bonjour à tous,

Je ne comprends pas où cela ne fonctionne pas
J'ai testé sur ton fichier et cela m'a l'air de fonctionner

A+ à tous

Effectivement, ça marche maintenant mais il m'affiche une boite d'erreur :

Erreur d'exécution 1004
impossible de définir la propriété RowHeight de la classe Range

Amicalement,

 

[JCGL]

Re : Macro défini hauteur de lignes

Bonjour à tous,

Passe, peut-être, la valeur du IIF à 0.5 au lieu de 0.

A+ à tous

 

[Efgé]

Re : Macro défini hauteur de lignes

Bonjour arthour973, Salut JC 🙂
Chez moi, le fichier du post 7 à une feuille protégée.
Cordialement

 

[Usine à gaz]

Re : Macro défini hauteur de lignes

Bonjour Efgé,
Merci de votre présence,
Effectivement, les feuilles sont protégées mais il n'y a pas de mot de passe.
Amicalement,
Lionel,

 

[Usine à gaz]

Re : Macro défini hauteur de lignes

Bonjour Efgé,
Effectivement, les feuilles sont protégées mais il n'y a pas de mot de passe.
Merci d'être là,
Lionel,

 

[Usine à gaz]

Re : Macro défini hauteur de lignes

Ha Bééééééé là, j'comprends plus rien,
ça marche plus du tout, je suis marabouté.

nota: si je passe la valeur IIF à 0.5, il va m'imprimer les lignes et c'est ce que je veux éviter
@plus