Renseignement sur une erreur

Bonsoir le forum,

De temps en temps quand je clique sur une forme et que je veux sélectionner taille et propriété cela me met "erreur out of range exception" ! (la forme est relié à une macro, mais je ne pense pas que cela vienne de là !)

Quelqu'un pourrait-il me dire pourquoi cette erreur survient.

D'avance merci pour votre réponse...

Bonjour,

Sans voir le code c'est pas facile mais ta macro passe probablement une valeur à un argument et cette valeur est hors limites

Bonjour,

Sans voir le code c'est pas facile mais ta macro passe probablement une valeur à un argument et cette valeur est hors limites

Bonjour Theze,

Je te remercie pour ta réponse, je te met les trois macros (réalisé avec l'enregistreur) sur lesquelles j'ai relié une forme pour chacune d'elle :

En fait, ces macros ont pour but :

Macro 1 d'afficher toutes les lignes si il n'y a pas de "x" dans la colonne 7

Macro 2 d'afficher seulement les lignes dont la colonne 7 contient un "x"

Macro 3 tout afficher

Sub Macro1()
' en-cours

    Range("Tableau1[#Headers]").Select
    Selection.AutoFilter
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=7, Criteria1:= _
        "="
End Sub

Sub Macro2()
' soldés

    Range("Tableau1[#Headers]").Select
    Selection.AutoFilter
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=7, Criteria1:= _
        "<>"
End Sub

Sub Macro3()
'
' Remise à zéro (tout afficher)

    Range("Tableau1[#Headers]").Select
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=7
    Range("Tableau1[#Headers]").Select
    Selection.AutoFilter
End Sub

Tu n'aurais pas changé le nom du Tableau ? ou le nombre de colonnes ?

Bonjour Steelson,

Effectivement mon tableau évolue en nombre de lignes pas en nombre de colonne, le problème viendrait de là ? Sinon c'est le bon tableau1.

Ah donc c'est autre chose...

est-ce que les macros sont lancées de la feuille contenant le tableau ?

J'ai mis ces 3 macros dans un module et les formes sont sur la feuille contenant le tableau

Peux-tu nous mettre un extrait de ton fichier ?

Re,

Ci-joint fichier, merci pour votre aide

Bonjour,

A tester.

Cdlt.

Option Explicit

Sub Macro1()
' En cours
    Application.ScreenUpdating = False
    ActiveSheet.ListObjects(1).Range.AutoFilter _
            Field:=7, _
            Criteria1:="="
End Sub
Sub Macro2()    '
' Soldés
    Application.ScreenUpdating = False
    ActiveSheet.ListObjects(1).Range.AutoFilter _
            Field:=7, _
            Criteria1:="<>"
End Sub

Sub Macro3()
' RAZ
    Application.ScreenUpdating = False
    With ActiveSheet.ListObjects(1)
        .ShowAutoFilterDropDown = False
        If .ShowAutoFilter Then
            .AutoFilter.ShowAllData
        End If
    End With
End Sub

Bonsoir Jean-Eric,

Merci pour ton aide

libellule85 a écrit :

Re,

Ci-joint fichier, merci pour votre aide

Cela fonctionne parfaitement !! quelle était alors l'erreur ? j'aimerais bien savoir ...

Avec ListObjects(1) proposé par Jean-Eric tu peux éventuellement changer le nom du tableau.

Bonjour Steelson,

L'erreur : quand je clique droit sur sur les formes rectangles et que je choisis "taille et propriété" cela me met l'erreur "Out Of range exception" !

ok

pas d'erreur chez moi ... (j'ai toujours cru depuis le début que tu signalais une erreur de fonctionnement de la macro)

ton premier post était pourtant clair, mais à la suite de la remarque de Theze, on a tous embrayé sur le code, désolé

Re,

Excuse moi si je me suis mal exprimé ! Merci beaucoup d'avoir pris du temps pour moi.

Non tu t'es bien exprimé au début ... on s'est tous planté en lisant de travers.

Mon seul conseil, comme tu es en 2007, c'est de supprimer ces boutons, de les recréer avec ta version d'excel et réaffecter les macros. Tu diras si l'erreur a disparu.

Je viens de supprimer et de recréer les boutons. Effectivement maintenant je peux accéder à la taille et propriété. Je ne sais pas ce qu'il c'est passé !

En tous cas merci beaucoup pour votre aide