erreur d'exécution 91 variable objet ou variable de bloc with non définie

Version imprimable

Bonjour,

Après avoir cherché, je ne trouve aucune bonne solution. Je code sur vba 2013 et je travaille avec des fichiers xls

voici un bout de code qui me renvoie l'erreur en objet
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 'Désactiver les updates de l'écran pour que la macro gagne en vitesse Application.ScreenUpdating = False 'Dans cette partie, on ne travaillera que sur le controlleur et l'export. 'chercher la dernière ligne Workbooks("Export_sites.xls").Activate Dim lLigne As Long lLigne = Worksheets("sites").Range("A1").End(xlDown).Row MsgBox lLignes If Not (Worksheets("sites").AutoFilterMode) Then MsgBox "toto" End If 'Tri pour préparer aux traitements ultérieurs Worksheets("sites").Range("X2:X" + CStr(lLigne)).Select Worksheets("sites").AutoFilter.Sort.SortFields.Clear Worksheets("sites").AutoFilter.Sort.SortFields.Add Key:=Range _ ("X2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("sites").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With
Les deux messages box me renvoient quelque chose. Le nommage est donc correct pour les worksheets et workbooks et l'autofilter est désactivé.

Sur certains exports je n'ai pas de message d'erreur et sur d'autres j'en ai. Je ne sais pas d'où ça vient.

Quelqu'un aurait une idée ?

Merci de votre aide

Bonjour,

Et où est l'erreur? Sur la ligne

Code:

With ActiveWorkbook.Worksheets("sites").AutoFilter.Sort

?

Vous pouvez forcer la définition du workbbok et des worksheet comme
Code:

1 2 3 4 5 6 7 8 Workbooks("Export_sites.xls").Activate ' à remplacer par Dim WbkDest As Workbook, WshDest As Worksheet Set WbkDest = Workbooks("Export_sites.xls") Set WshDest = WbkDest.Worksheets("sites") 'et ensuite remplacer Worksheets("sites") par WshDest

05/06/2015, 12h07
tmlpqsdpmdlc

Oui l'erreur est cette ligne là

j'ai entré la page sous une variable mais le résultat est le même

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim WbExport As Workbook
Set WbExport = Application.Workbooks("Export_sites.xls")
Dim lLigne As Long
 
'Tri pour préparer aux traitements ultérieurs
With WbExport.Sheets("sites")
    lLigne = .Range("A1").End(xlDown).Row
    MsgBox lLignes
    If Not (.AutoFilterMode) Then
        MsgBox "toto"
    End If
    .Range("X2:X" + CStr(lLigne)).Select
    .AutoFilter.Sort.SortFields.Clear
    .AutoFilter.Sort.SortFields.Add Key:=Range _
    ("X2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
    xlSortNormal
    With .AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With

05/06/2015, 14h28
tmlpqsdpmdlc

La méthode select de la class range a échoué
05/06/2015, 14h42
vinc_bilb

La ligne

Code:

.Range("X2:X" + CStr(lLigne)).

me semble suspecte : .Range("X2:X" & CStr(lLigne)).?
05/06/2015, 14h48
tmlpqsdpmdlc

Pourquoi ?

Par quoi devrai-je la remplacer ?
05/06/2015, 15h02
vinc_bilb

Par .Range("X2:X" & CStr(lLigne)) je pense (non testé)
05/06/2015, 15h08
tmlpqsdpmdlc

c'est pareil ^_^
05/06/2015, 15h14
joe.levrai

Bonjour,

et quelle est la valeur de lLigne quand ça plante ?

essaye de définir lLigne ainsi :

Code:

lLigne = .Cells(.Rows.Count, 1).End(xlUp).Row

et pourquoi utiliser Cstr() ? lLigne est en Long et ça suffit ainsi

Code:

.Range("X2:X" & lLigne)
05/06/2015, 15h21
tmlpqsdpmdlc

162

C'est bien le numéro de la dernière ligne

Quand j'enlève le CStr j'ai une incompatibilité de type

et quand je défini lLigne comme ça lLigne = .Cells(.Rows.Count, 1).End(xlUp).Row, j'ai toujours la méthode select qui échoue

Y a-t-il une méthode qui me permettrait de ne pas sélectionner ?

Car sur pas mal de forums il est dit que sélectionner alourdit et est inutile dans 99.9% des cas.

Ca permettrait de contourner ce problème

ah mais attend !

c'est bien la feuille active ça ? sinon c'est normal que le select ne fonctionne pas, il faut d'abord activer la feuille

il est préférable d'éviter les .Select de toute façon
enlève ta ligne qui fait .Select

et la ligne du dessous devient :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 With .Range("X2:X" + CStr(lLigne)) .AutoFilter.Sort.SortFields.Clear .AutoFilter.Sort.SortFields.Add Key:=Range _ ("X2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With .AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End With

Essayez éventuellement juste ça et remettez, si ça marche, les conditions derrières

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Test()
 
    Dim WbExport As Workbook, Wsh As Worksheet
    Dim InpRng As Range
 
    Set WbExport = Application.Workbooks("Export_sites.xls")
    Set Wsh = WbExport.Sheets("sites")
 
    Set InpRng = Wsh.Range("A1").End(xlDown)
    Debug.Print InpRng.Rows.Count, InpRng.Address
 
    If Wsh.AutoFilterMode = True Then Wsh.AutoFilterMode = False
 
    InpRng.AutoFilter
 
 End Sub

05/06/2015, 15h45
tmlpqsdpmdlc

Effectivement activer la feuille ça aide à sélectionner ;)

mais on retombe sur le problème initial

l'erreur pointe sur

Code:

.AutoFilter.Sort.SortFields.Clear

On revient toujours vers l'erreur initiale...

Bonjour,

Justement, il te faut tester si il y en a 1 :
Code:

1 2 If Worksheets("sites").AutoFilterMode Then Worksheets("sites").AutoFilter.Sort.SortFields.Clear
Hervé.

05/06/2015, 17h19
tmlpqsdpmdlc

Il n'y en a pas

Par défaut c'est sur false

Si je le mets sur true, ça me dit que la méthode autofilter a échoué
05/06/2015, 20h33
clementmarcotte

Bonjour,

Et si tu prends (une copie, peut-être ?) ton fichier xls et que tu l'enregistres en xlsx pur et dur comme classeur Excel 2013 ?

(D'un coup qu'il s'agirait juste d'un cafouillage de VBA avec le nombre de lignes. De 65536 à 1 million quelques)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Set WbExport = Application.Workbooks("Export_sites.xls")
Dim lLigne As Long
WbExport.srlect
 
'Tri pour préparer aux traitements ultérieurs
With WbExport.Sheets("sites")
    lLigne = .Range("A1").End(xlDown).Row
    MsgBox lLignes
    If Not (.AutoFilterMode) Then
        MsgBox "toto"
    End If
    .Range("X2:X" + CStr(lLigne)).Select
    .AutoFilter.Sort.SortFields.Clear
    .AutoFilter.Sort.SortFields.Add Key:=Range _
    ("X2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
    xlSortNormal
    With .AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With

Bonjour

Autofiltermode est valide pour une sheet et pas pour un range, contraitement à AutoFilter
Voir utilitaires ci-dessous si ça peut aider

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Remove_Autofilter(Wsh As Worksheet)
 
If Wsh.AutoFilterMode = True Then Wsh.AutoFilterMode = False
 
End Sub
 
Sub Set_Autofilter(Wbk As Workbook, WshN As String, RngAd As String)
Dim Wsh As Worksheet
Dim AFiltRng As Range
 
If IsMissing(Wbk) Then Set Wbk = ActiveWorkbook
 
Set Wsh = Wbk.Worksheets(WshN)
Set AFiltRng = Wsh.Range(RngAd).CurrentRegion
 
AFiltRng.AutoFilter
 
End Sub