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

gimli · 15 Juin 2010

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 · 15 Juin 2010

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

Salut gimli, le Forum

Code:

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 · 15 Juin 2010

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 :

Code:

Public ResWkb As Workbook

2) écrire :

code d 'appel :

Code:

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

code de la procédure:

Code:

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 · 15 Juin 2010

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 · 15 Juin 2010

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

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

gimli

XLDnaute Occasionnel

Dull

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

gimli

XLDnaute Occasionnel

gimli

XLDnaute Occasionnel

Discussions similaires

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

gimli

XLDnaute Occasionnel

Dull

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

gimli

XLDnaute Occasionnel

gimli

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency