Erreur "Objet requis" après appel d'un "Sub"

[gimli]

Bonjour,

j'ai un soucis dans mon code VBA, à l'origine je mettais tout mon code dans une même procédure, qui se lançait après un clic sur un bouton, jusqu'à ce qu'un message s'affiche "procédure trop longue", j'ai donc décidé de couper mon code en plusieurs morceaux, et donc de créer plusieurs Sub regroupant dans bouts de code. Il se trouve que depuis que je fais ça j'ai des erreurs "Objet requis" presque a chaque nouvelle procédure...
je vous donne un exemple:

code d'appel :

call MiseEnForme

code de la procédure:

Public Sub MiseEnForme()

'ResWkb.Sheets(1).Activate

For abc = 1 To Sheets.Count

With ResWkb.Sheets(abc).Rows("1:1")
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 90
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Next abc
End Sub

j'ai essayé "sub" et "public sub" mais ça ne change rien 🙁


Merci d'avance 😉

bonne journée à tous


Gimli

 

[Dull]

Re : Erreur "Objet requis" après appel d'un "Sub"

Salut gimli, le Forum

For abc = 1 To Sheets.Count
With [B][COLOR=Red]ResWkb.[/COLOR][/B]Sheets(abc).Rows("1:1")
    .HorizontalAlignment = xlGeneral
    .VerticalAlignment = xlBottom
    .WrapText = False
    .Orientation = 90
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
End With
Next abc

Enlève la partie en rouge et cela devrait aller

Bonne Journée

 

[job75]

Re : Erreur "Objet requis" après appel d'un "Sub"

Bonjour gimli, Edit : salut Dull 🙂

La procédure ne sait pas ce qu'est ResWkb.

Il y a 2 solutions :

1) la déclarer dans un Module :

Public ResWkb As Workbook

2) écrire :

code d 'appel :

Call MiseEnForme[COLOR="Red"](ResWkb)[/COLOR] 'ResWkb doit avoir été définie

code de la procédure:

Public Sub MiseEnForme([COLOR="Red"]ResWkb As Workbook[/COLOR])

'ResWkb.Sheets(1).Activate

For abc = 1 To Sheets.Count

With ResWkb.Sheets(abc).Rows("1:1")
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 90
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

Next abc
End Sub

A+

 

[gimli]

Re : Erreur "Objet requis" après appel d'un "Sub"

Bonjour Dull, Job75,

je vais essayer vos méthodes de suite 🙂

merci pour vos réponses 😀

 

[gimli]

Re : Erreur "Objet requis" après appel d'un "Sub"

Job75, j'ai essayé ta seconde méthode et ça marche, encore une fois tu me sauves du précipice ^^ merci beaucoup. Merci aussi à Dull 🙂

A bientôt


Gimli