Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel erreur exécution macro

erreur exécution macro

2 réponses
Avatar
benmat
Bonjour,

Pouvez-vous m'apporter votre aide pour résoudre mon pb d'exécution de cette
macro. En effet, seule la ligne 2 prend la valeur indiquée. Les autres lignes
ne changent pas de hauteur.

Merci d'avance.


Y = Cells(65536, 1).End(xlUp).Row
For i = 2 To 6
If Cells(65536, i).End(xlUp).Row > dern Then Y = Cells(65536,
i).End(xlUp).Row
Next

' je lui dis avec la hauteur de la cellule A2, recopie cette hauteur de
ligne jusqu'à la dernière du tableau et centre verticalement
Rows("2:" & Y).Select
Selection.RowHeight = 27.75
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False

End With
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Remplace :

For i = 2 To 6
If Cells(65536, i).End(xlUp).Row > dern Then Y = Cells(65536,
i).End(xlUp).Row
Next


par :

For i = 2 To 6
If Cells(65536, i).End(xlUp).Row > Y Then Y = Cells(65536,
i).End(xlUp).Row
Next

Cordialement.
Daniel
"benmat" a écrit dans le message de news:

Bonjour,

Pouvez-vous m'apporter votre aide pour résoudre mon pb d'exécution de
cette
macro. En effet, seule la ligne 2 prend la valeur indiquée. Les autres
lignes
ne changent pas de hauteur.

Merci d'avance.


Y = Cells(65536, 1).End(xlUp).Row
For i = 2 To 6
If Cells(65536, i).End(xlUp).Row > dern Then Y = Cells(65536,
i).End(xlUp).Row
Next

' je lui dis avec la hauteur de la cellule A2, recopie cette hauteur de
ligne jusqu'à la dernière du tableau et centre verticalement
Rows("2:" & Y).Select
Selection.RowHeight = 27.75
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False

End With


Avatar
Youky
Y = [A:F].Find("*", , 1, , 1, 2).Row
et la suite de ta macro
Rows("2:" & Y).Select
...........Youky

"benmat" a écrit dans le message de news:

Bonjour,

Pouvez-vous m'apporter votre aide pour résoudre mon pb d'exécution de
cette
macro. En effet, seule la ligne 2 prend la valeur indiquée. Les autres
lignes
ne changent pas de hauteur.

Merci d'avance.


Y = Cells(65536, 1).End(xlUp).Row
For i = 2 To 6
If Cells(65536, i).End(xlUp).Row > dern Then Y = Cells(65536,
i).End(xlUp).Row
Next

' je lui dis avec la hauteur de la cellule A2, recopie cette hauteur de
ligne jusqu'à la dernière du tableau et centre verticalement
Rows("2:" & Y).Select
Selection.RowHeight = 27.75
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False

End With