DAO Excel - Appliquer un autoFilter sur une plage spécifique

**informer** · 07/01/2019, 14h54

Bonjour à tous,

Désolé pour ce post similaire à celui-ci Autofilter sur currentregion.resize mais visiblement il y a une spécificité sur Access car autant dans

Excel l'autofilter s'applique bien sur la plage spécifique --> plage de 871 lignes

Code :

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

1
2
3
4
5
6
7
8
9
10
 
With ActiveSheet
   lXlsRowNumber = .Cells(.Rows.Count, .Range("colName").Column).End(xlUp).Row: Debug.Print lXlsRowNumber 'Retourne 871
   Set oRange = .Range("A2").currentRegion.Resize( lXlsRowNumber)
End with 
 
With oRange
     lIdxCol = .Range("ColCrit").Column: Debug.Print lIdxCol
      .AutoFilter Field:=lIdxCol, Criteria1:="9999"
End with

Voir Image ci-dessous
Nom : autoFilterExcel.jpg
Affichages : 255
Taille : 33,9 Ko

Autant le même code sous Access renvoie un Autofilter sur 1047585

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 With xlsWkSheet
 
             lXlsRowNumber = .Cells(.Rows.Count, .Range("colName").Column).End(xlUp).Row: Debug.Print lXlsRowNumber ' --> 871 
             Set oXlsRangeCurrentRegion = Range("A1").CurrentRegion.Resize(lXlsRowNumber): Debug.Print oXlsRangeCurrentRegion.Address '--> $A$1:$AA$871
 
            With oXlsRangeCurrentRegion
 
                .AutoFilterMode = False
                lIdxCol = .Range("ColCrit").Column: Debug.Print lIdxCol
                .AutoFilter Field:=lIdxCol, Criteria1:=IIf(Nz(oRecSet![Fld1], "") = "", "=", oRecSet![Fld1]) '-->oRecSet![Fld1] =  91743288 
            End with

Voir ci-dessous
Nom : autoFilterExceFromAccessl.jpg
Affichages : 223
Taille : 23,7 Ko

Je deviens

**Jean-Philippe André** · 07/01/2019, 19h07

Salut,

je mettrais un bout de pizza sur le fait que tu utilises xlUp qui n'est pas une constante Access.
Essaie donc en remplaçant cette constante par sa valeur -4162.

**informer** · 07/01/2019, 21h36

Jean-Philippe,

Merci pour ton retour mais les constantes Excel sont bien reconnues dans Access cf. ci-dessous

Complément de message

Nom : Access_CstXls.jpg
Affichages : 180
Taille : 27,2 Ko

Nom : Access_CstXls.jpg
Affichages : 180
Taille : 27,2 Ko

Jean-Philippe, tu me dois une part de pizza

**Jean-Philippe André** · 07/01/2019, 21h44

J'ai des doutes sur

Code :

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

.AutoFilterMode = False

qui est ajouté entre ton Excel et ton Access... Est-ce normal ?

**Arkham46** · 07/01/2019, 21h44

Bonjour,

Mon bout de pizza sur le range("A1").
Il manque le . devant pour spécifier le feuille.

**informer** · 07/01/2019, 22h00

Arkham46 et Jean-Philippe, va falloir que je me reconvertisse en pizzaiolo

Code :

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

.AutoFilterMode = False

Pour enlever le filtre et à la place de ce code

Code :

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

1
2
3
On Error Resume Next
    Sheet1.ShowAllData
  On Error GoTo 0

Arkham46,
Comment ça peut fonctionner sans ta part de pizza, enfin je veux dire le sans le . car

oXlsRangeCurrentRegion

pointe sur quoi? et tout ce qui est sous

With oXlsRangeCurrentRegion

notamment l’autofilter pointe sur quoi ?

Envoyé par Jean-Philippe André

Salut,
... tu utilises xlUp qui n'est pas une constante Access.
Essaie donc en remplaçant cette constante par sa valeur -4162.

Cette méthode suivante est-elle pérenne

Code :

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

lastRow = mySheet.cells.SpecialCells(11).row

Voir Ici

**informer** · 08/01/2019, 06h16

Envoyé par Jean-Philippe André

Salut,

... tu utilises xlUp qui n'est pas une constante Access.
Essaie donc en remplaçant cette constante par sa valeur -4162.

Jean-Philippe,

Comme j’ajoute toujours dans mon code

Code :

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

Option explicite

Ça devrait pas faire une alerte si ce n’était pas dans les constante Access?

**Arkham46** · 08/01/2019, 07h44

L'appel à un objet range sans préciser la feuille travaille je crois dans le fichier Excel le plus récemment ouvert (ou peut etre le dernier actif) et dans la dernière feuille active.
Enfin bref c'est hasardeux.
Et en plus ça peut mener à un problème de fermeture d'Excel.
Je n'ai jamais compris pourquoi cette écriture est permise.

**informer** · 08/01/2019, 09h00

Merci Arkham46.

Je comprends mieux pourquoi ça fonctionne puisque je n'ouvre qu'un seul onglet donc effectivement le hasard faisait bien les choses!

Et pour xlUp, une explication de l'absence de message alors qu'il y a

option explicite

Encore merci pour ton aide

**Arkham46** · 08/01/2019, 09h06

Envoyé par informer

Et pour xlUp, une explication de l'absence de message

Il y a sans doute la référence à Microsoft Access de cochée.

Invité · 08/01/2019, 10h31

bonjour,
il faut utiliser un énumérateur ainsi ton code reste le même!

Code :

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

1
2
3
4
5
6
7
8
9
Enum ConstanteXls
    xlUp = -4162
    xlDown = -4121
    xlLeft = -4131
    xlRight = -4130
End Enum
Sub test()
lXlsRowNumber = .Cells(.Rows.Count, .Range("colName").Column).End(xlUp).Row: Debug.Print lXlsRowNumber ' --> 871
End Sub

**informer** · 08/01/2019, 12h31

Ça part en vrille grand large alors voilà le code en entier

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Do While Not oRecSet.EOF       		
	With xlsWkSheet
		With oXlsRangeCurrentRegion
			On Error Resume Next
				.ShowAllData
			On Error GoTo 0
			lXlsRowNumber = .Cells(.Rows.Count, .Range("ColRef").Column).End(xlUp).Row: Debug.Print lXlsRowNumber
			Set oXlsRangeCurrentRegion = .Range("A1").Resize(lXlsRowNumber, UBound(arrNamedRange)): Debug.Print oXlsRangeCurrentRegion.Address
			lIdxCol = .Range("ColCrit").Column: Debug.Print lIdxCol
			.AutoFilter Field:=lIdxCol, Criteria1:=IIf(Nz(oRecSet![Fld1], "") = "", "=", oRecSet![Fld1])
			Set xlsRangeAutoFilter = .SpecialCells(xlCellTypeVisible)
		End With 
		'--------------------------------------------------------------
		'              NUMBER OF FILTERER ROWS
		'--------------------------------------------------------------
		lNbrRowFiltered = 0
		For Each xlsRangeActive In xlsRangeAutoFilter.Rows
		   lNbrRowFiltered = lNbrRowFiltered + 1
		Next
		'--------------------------------------------------------------
		'              ADD ROW
		'--------------------------------------------------------------
		If lNbrRowFiltered = 1 Then '---> If only one filtered row  = header
			Set xlsRangeActive = .Range("A1").Offset(lXlsRowNumber)
			For lNrCol = 1 To UBound(arrNamedRange)
				 xlsRangeActive.Columns(lNrCol) = oRecSet.Fields(lNrCol - 1)
			Next lNrCol
			'Set oXlsRangeCurrentRegion = .Range("A1").Resize(xlsRangeActive.Row): Debug.Print oXlsRangeCurrentRegion.Address
		'--------------------------------------------------------------
		'               UPDATE FIELDS
		'--------------------------------------------------------------
		ElseIf lNbrRowFiltered > 1 Then
			For Each xlsRangeActive In xlsRangeAutoFilter.Rows
				If xlsRangeActive.Row > 1 Then ' -> If 1 then row header
					xlsRangeActive.Columns(.Range("JourCQMax_Prev").Column).Value = oRecSet!JourCQMax_Prev   
				End if
			Next
		End if
	End with
	oRecSet.Movenext
Loop

**tee_grandbois** · 08/01/2019, 12h47

Envoyé par Arkham46

Il y a sans doute la référence à Microsoft Access de cochée.

bonjour,
pour la compréhension du fil de la discussion, je pense qu'Arkham46 voulait parler de la référence Excel cochée
et Option explicite va provoquer une erreur

Invité · 08/01/2019, 13h31

si en entête de module tu place un énumérateur qui fixe les constantes Excel que ton programme utilise tu n'auras plus de problème.

Code :

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

1
2
3
4
5
6
7
Enum ConstanteXls
    xlUp = -4162
    xlDown = -4121
    xlLeft = -4131
    xlRight = -4130
    xlCellTypeVisible = 12
End Enum

**informer** · 08/01/2019, 13h55

Pour les constantes Excel voir la copie d'écran qui montre qu'ils sont reconnus Ici et effectivement cela est sûrement dû a une DLL ajouté dans le projet (préférences)

Pas de réponse sur mon code qui part en vrille?

**Pierre Fauconnier** · 08/01/2019, 17h17

Envoyé par dysorthographie

bonjour,
il faut utiliser un énumérateur ainsi ton code reste le même![...]

Envoyé par dysorthographie

si en entête de module tu place un énumérateur qui fixe les constantes Excel que ton programme utilise tu n'auras plus de problème.[...]

Les constantes XL sont reconnues, donc il ne sert à rien de les redéfinir

@Informer: Ca veut dire quoi: part en vrille? Tu as une erreur? Si oui, sur quelle ligne? Parce que essayer de reproduire ton erreur est assez délicat. Le code que tu donnes ne permet pas de tout vérifier. Ainsi, que vaut xlsWkSheet. Cette variable pointe-t-elle bien sur une feuille Excel? Si oui, la bonne?

Invité · 08/01/2019, 18h17

Envoyé par Pierre Fauconnier

Les constantes XL sont reconnues, donc il ne sert à rien de les redéfinir

Oui si on active la référence Excel sur la seule version installer sur la machine du développeur ce qui limite la portabilités !

Personnellement je ne comets jamais cette erreur.

**Pierre Fauconnier** · 08/01/2019, 18h20

Envoyé par dysorthographie

Oui si on active la référence Excel sur la seule version installer sur la machine du développeur ce qui limite la portabilités !

Les références sont incluses dans le projet VBA. L'utilisateur ne devrait pas avoir accès au code et donc ne saurait pas décocher la référence. Et comme les références sont "dans" le code vba, il n'y a a priori pas de raisons qu'elles ne suivent pas le projet développé, sauf parc de versions hétéroclites, et encore

En tout état de cause, vu qu'ici elles sont cochées, ce n'est pas l'absence de ces constantes qui créent l'erreur.

Invité · 08/01/2019, 18h26

Envoyé par Pierre Fauconnier

Les références sont incluses dans le projet VBA. L'utilisateur ne devrait pas avoir accès au code et donc ne saurait pas décocher la référence. Et comme les références sont "dans" le code vba, il n'y a a priori pas de raisons qu'elles ne suivent pas le projet développé, sauf parc de versions hétéroclites, et encore

En tout état de cause, vu qu'ici elles sont cochées, ce n'est pas l'absence de ces constantes qui créent l'erreur.

Là pour le coup tu dis n'importe quoi entre la versions du développeur et celles de ses clients il peut y avoir un monde!

Et c'est pas le client qui vas bricoler les références pour faire fonctionner son appli

**Pierre Fauconnier** · 08/01/2019, 18h30

Envoyé par dysorthographie

Là pour le coup tu dis n'importe quoi entre la versions du développeur et celles de ses clients il peut y avoir un mode!

Rappel: Le problème survient sur la machine du développeur qui a la référence à Excel cochée => ce ne sont pas les constantes qui posent problème.

J'envisage assez mal que les utilisateurs de l'appli Access la fassent tourner sur une version différente d'Access que celle du développeur ou sur un runtime qui n'est pas prévu pour. Pour ce qui est de la référence à Excel, je ne me souviens pas d'un problème de référence entre une version "développement" qui pointerait vers une XL2016 et une version chez le client qui pointerait vers une 2013 ou une 2010 (ou vice versa). Si tu as eu ce genre de problèmes, montre-le moi et je j'essaierai de reproduire le problème sur différentes VM...

DAO Excel - Appliquer un autoFilter sur une plage spécifique [AC-2013]

VBA Access

Discussions similaires

Partager

Partager