Discussion :

[sergentgarcia]

Boujour,

Depuis aujourd'hui j'ai une macro qui ne fonctionne plus ; la ligne qui produit l'erreur est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set plg= Application.InputBox(Prompt:="Veuillez sélectionner une plage de cellules", Type:=8)

En debugant un petit peu, il apparaît que l'inputbox retourne bien un objet Range mais il est vide (Nothing).
Le plus marrant c'est que l'erreur est aléatoire. Pour une même sélection, cette ligne de code fonctionne à certains moments et lève une erreur à d'autres.

En retournant le pb dans tous les sens j'ai l'impression que l'inputbox envoie un message Annuler et non Ok dans certaines circonstances. Ce qui expliquerait parfaitement l'erreur soulevée.

Je voudrais savoir si certains d'entre vous ont eu le même problème.

Merci

config : Excel 2003

[SilkyRoad]

bonsoir

A tout hasard, est ce que les cellules qui posent problème contiennent des mises en forme conditionnelles (type "la formule est")?
C'est un bug connu de la méthode Application.InputBox jusqu'à Excel 2003.



bonne soirée
michel

[sergentgarcia]

Bonjour,

Eh bien non, pas de forme conditionnelle, d'ailleurs je viens juste de retester sur un nouveau classeur.
Sinon j'ai essayé de contourner le problème en créant une petite formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Function InputRange(Optional Prompt As String = "", _
                    Optional Title As String = "", _
                    Optional nbErrMax As Integer = 1) As Range
Dim nbErr As Integer
Dim address As String
    nbErr = 0
    Do
        On Error Resume Next
        nbErr = nbErr + 1
        Set InputRange = Application.InputBox(Prompt:=Prompt, Title:=Title, Type:=8)
 
        If InputRange Is Nothing Then
            Prompt = "[Erreur d'exécution ""424""]. Réessayez." & Chr(13) & Prompt
        End If
     Loop While InputRange Is Nothing And nbErr <= nbErrMax
     address = Application.InputBox(Prompt:="[Erreur d'exécution ""424""] (Application.InputBox)" _
        & vbCrLf & "Veuillez écrire directement l'adresse de la plage", Title:=Title)
     Set InputRange = Range(address)
End Function

Le principe est simple : puisque l'erreur est - apparemment - aléatoire, je demande simplement de recommencer la sélection.
Et quand ça ne marche vraiment pas, j'écris directement l'adresse de la plage...

Ca fonctionne, mais j'aimerais vraiment une meilleure solution...

Lionel

[sergentgarcia]

A tout hasard, est ce que les cellules qui posent problème contiennent des mises en forme conditionnelles (type "la formule est")?
C'est un bug connu de la méthode Application.InputBox jusqu'à Excel 2003.

Rectification : le bug précité fonctionne AUSSI lorsqu'une plage de cellule avec un format conditionnel est en sélection avant de lancer la méthode Application.InputBox.

Merci SilkyRoad pour ta réponse.

[Oliv-]

Bonjour à tous,
Je confirme le bug avec Excel 2003 sp3, en ayant une colonne avec une mise en forme conditionnelle dans ma feuille
j'ai une erreur 424, "objet requis"
même en selectionnant des cellules d'une autre colonne.