Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Erreur exécution 1004

Erreur exécution 1004

5 réponses
Avatar
benmat
Bonjour,

Je viens de créer une nouvelle macro et je me heurte à une erreur
d'exécution à ce niveau :
Erreur exécution 1004
La méthode 'Range" de l'objet Global a échoué


Range("2: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

Quelqu'un peut-il m'apporter son aide ?
Je ne comprends pas car j'ai d'autres macros pour lesquelles cela fonctionne
sans problème.

Merci d'avance.
ANNIE
Signaler un problème avec ce contenu

5 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.
Quelle est la valeur de Y ?
Cordialement.
Daniel
"benmat" a écrit dans le message de news:


Bonjour,

Je viens de créer une nouvelle macro et je me heurte à une erreur
d'exécution à ce niveau :
Erreur exécution 1004
La méthode 'Range" de l'objet Global a échoué


Range("2: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

Quelqu'un peut-il m'apporter son aide ?
Je ne comprends pas car j'ai d'autres macros pour lesquelles cela
fonctionne
sans problème.

Merci d'avance.
ANNIE



Avatar
benmat
Daniel,

J'ai oublié de préciser que le nbre de lignes Y est inconnu. Le fichier pour
lequel j'ai créé cette macro évolue de jour en jour.

J'ai donc au-dessus de
Range("2:2" & Y).Select
Selection.RowHeight = 27.75
...
ceci pour déterminer le nombre de lignes du fichier :

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



Bonjour.
Quelle est la valeur de Y ?
Cordialement.
Daniel
"benmat" a écrit dans le message de news:


Bonjour,

Je viens de créer une nouvelle macro et je me heurte à une erreur
d'exécution à ce niveau :
Erreur exécution 1004
La méthode 'Range" de l'objet Global a échoué


Range("2: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

Quelqu'un peut-il m'apporter son aide ?
Je ne comprends pas car j'ai d'autres macros pour lesquelles cela
fonctionne
sans problème.

Merci d'avance.
ANNIE








Avatar
Daniel
Est-ce que la variable est renseignée et est-ce que sa valeur est bien
numérique et positive ou nulle ?
Daniel
"benmat" a écrit dans le message de news:

Daniel,

J'ai oublié de préciser que le nbre de lignes Y est inconnu. Le fichier
pour
lequel j'ai créé cette macro évolue de jour en jour.

J'ai donc au-dessus de
Range("2:2" & Y).Select
Selection.RowHeight = 27.75
...
ceci pour déterminer le nombre de lignes du fichier :

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



Bonjour.
Quelle est la valeur de Y ?
Cordialement.
Daniel
"benmat" a écrit dans le message de
news:


Bonjour,

Je viens de créer une nouvelle macro et je me heurte à une erreur
d'exécution à ce niveau :
Erreur exécution 1004
La méthode 'Range" de l'objet Global a échoué


Range("2: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

Quelqu'un peut-il m'apporter son aide ?
Je ne comprends pas car j'ai d'autres macros pour lesquelles cela
fonctionne
sans problème.

Merci d'avance.
ANNIE










Avatar
michdenis
Bonjour Benmat,

En supposant que ta variable y soit entre 1 et 65536

ce type de syntaxe fonctionne :

Rows("2:" & Y).Select


Salutations!




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

Bonjour,

Je viens de créer une nouvelle macro et je me heurte à une erreur
d'exécution à ce niveau :
Erreur exécution 1004
La méthode 'Range" de l'objet Global a échoué


Range("2: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

Quelqu'un peut-il m'apporter son aide ?
Je ne comprends pas car j'ai d'autres macros pour lesquelles cela fonctionne
sans problème.

Merci d'avance.
ANNIE
Avatar
benmat
bonjour,

Je viens de tester la solution proposée par Michdenis et je le remercie car
cela fonctionne parfaitement.
Je remercie aussi Daniel qui a proposé autre chose.

Bonne journée à toutes et à tous.




Bonjour Benmat,

En supposant que ta variable y soit entre 1 et 65536

ce type de syntaxe fonctionne :

Rows("2:" & Y).Select


Salutations!




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

Bonjour,

Je viens de créer une nouvelle macro et je me heurte à une erreur
d'exécution à ce niveau :
Erreur exécution 1004
La méthode 'Range" de l'objet Global a échoué


Range("2: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

Quelqu'un peut-il m'apporter son aide ?
Je ne comprends pas car j'ai d'autres macros pour lesquelles cela fonctionne
sans problème.

Merci d'avance.
ANNIE