macro hauteur de ligne

[limagerit]

Bonjour à tous,
encore une fois je sollicite votre savoir faire afin de m'aider sur une ligne de code macro.
Je ne suis pas ceinture noir en macro et je me débrouille surtout avec les enregistrements auto.

j'ai un code qui me permet dans un tableau de copier coller la ligne 2 de mon tableau et de l'ajouter en fin de tableau. elle me conserve les formules et la mise en forme.

Seulement lorsque je masque ma ligne 2, l'ajout de ligne en fin de tableau prends la même dimension.

Je souhaite que la ligne ajouté soit de dimension 35

voici mon bout de code




Rows(2).Copy Target.EntireRow.Resize(2) 'copie la ligne 2 et colle sur 2 lignes
Union(Target.Resize(, 8), Target.Offset(1).EntireRow).ClearContents.RowHeight = 35
Target = T



J'ai essayé de positionner le rowheight après le resize , apres le entirerow
mais rien n'y fit !

bref : a l'aide

 

[Pierrot93]

Re : macro hauteur de ligne

Bonjour Limageri,

Dans le code que tu nous indiques je vois du "Target", s'agit-il d'une procédure événementielle ? Tu devrais peut être nous mettre le code dans sa totalité... Peux tu également expliquer pourquoi les "union" et "resize"...
Sinon dans une macro événementielle, tu pourais coder ainsi :

Target.RowHeight = 35

bonne journée
@+

 

[limagerit]

Re : macro hauteur de ligne

BOnjour Pierrot,

Merci de ton aide

J'ai essayé de placer la taille vers le target mais je n'obtiens pas de bon résultat.

Voici le code en entier, j'espère que cela pourra t'aider

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> Range("A65536").End(xlUp).Address Then Exit Sub
If Target = "" Then Exit Sub
Dim T
Application.ScreenUpdating = False
Application.EnableEvents = False ' pour ne pas se mordre la queue
T = Target.Value 'mémorise la valeur
Rows(2).Copy Target.EntireRow.Resize(2) 'copie la ligne 2 et colle sur 2 lignes
Union(Target.Resize(, 8), Target.Offset(1).EntireRow).ClearContents.RowHeight = 34.5
Target = T
Application.EnableEvents = True
End Sub


le row height est vraiment mal placer et je ne sais vraiment pas ou le mettre

 

[Pierrot93]

Re : macro hauteur de ligne

Re

essaye ainsi,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> Range("A65536").End(xlUp).Address Then Exit Sub
If Target = "" Then Exit Sub
Application.EnableEvents = False ' pour ne pas se mordre la queue
Rows(2).Copy Target.Offset(1, 0).Resize(2) 'copie la ligne 2 et colle sur 2 lignes
Target.Resize(2).RowHeight = 34.5
Application.EnableEvents = True
End Sub

mais pas sur d'avoir bien compris le résultat final que tu attends...

@+

 

[limagerit]

Re : macro hauteur de ligne

Hum , Comment te dire , 🙂

Merveilleux

Ca marche super

Grand Merci pour ton aide