Discussion :

[38160]

Bonjour,

Comment changer la cellule active dans une feuille sans être obligé de l'afficher.
je me suis aperçu que mon code plante si la cellule active est dans le tableau Excel "TableLocataires" d'où j'extrais les données.


contexte:
il y a un bouton dans la feuille "FeuilleListeChoix" qui va lire le contenu d'un tableau Excel nommé "TableLocataires" présent la feuille "locataires" et crée une liste dans la feuille "FeuilleListeChoix" en fonction de critères critères de filtrage présents dans cette feuille.

Voici le code lancé par le bouton présent dans la feuille "FeuilleListeChoix" qui fonctionne seulement si la cellule active de la feuille TableLocataires est a l'extérieur de "TableLocataires"
si tout était dans la feuille "locataires" tout fonctionne

Code :

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

1
2
3
4
5
6
7
 
Sub bouton_majListLocatairesActifs()
   Range("TableLocataires[#All]").AdvancedFilter Action:=xlFilterCopy, _
   CriteriaRange:=FeuilleListeChoix.Range("C125:C126"), _
   CopyToRange:=FeuilleListeChoix.Range("C128"), _
   Unique:=False
end sub

Ce code me permet d'extraire d'un tableau Excel nommé "TableLocataires", une liste de noms selon un filtre présent dans FeuilleListeChoix.Range("C125:C126") et de mettre le résultat dans la feuille FeuilleListeChoix en position C128

l'usage de ...select ou ...activate affiche systématiquement la feuille "locataires"

Merci d'avance pour votre aide.

[Jean-Philippe André]

Salut,

tu peux faire une syntaxe directement avec quelque chose comme

Code :

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

Worksheets("TaFeuille").Range("C28").Value = "123"

[38160]

Salut,

tu peux faire une syntaxe directement avec quelque chose comme

Code :

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

Worksheets("TaFeuille").Range("C28").Value = "123"

bonjour,
le but n'est pas d'écrire dans la feuille.
malgré tout j'ai essayé en espérant que ça modifie la cellule active. mais pas concluant

[tototiti2008]

Bonsoir,

Autant que je sache, activer une cellule est une des rares actions qui nécessitent d'activer la feuille

Code :

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

1
2
3
FeuilleListeChoix.Activate
FeuilleListeChoix.range("A1").select
'Puis filtre avancé

[38160]

Bonsoir,

Autant que je sache, activer une cellule est une des rares actions qui nécessitent d'activer la feuille

c'est ce que je craignais, ça m'oblige a afficher la feuille source, changer la cellule active et repasser dans la feuille ou mon code se trouve

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 Sub bouton_majListLocatairesActifs()
  FeuilleTableLocataires.Activate
  FeuilleTableLocataires.Range("A1").Select
 
  FeuilleListeChoix.Activate
 
    Range("TableLocataires[#All]").AdvancedFilter Action:=xlFilterCopy, _
   CriteriaRange:=FeuilleListeChoix.Range("C128:C129"), _
   CopyToRange:=FeuilleListeChoix.Range("C131:D131"), _
   Unique:=False
 End sub

après essaie ça fonctionne et ce n'est pas visible coté utilisateur

merci pour votre aide

[Philippe Tulliez]

Bonjour,

c'est ce que je craignais, ça m'oblige a afficher la feuille source, changer la cellule active et repasser dans la feuille ou mon code se trouve

Dans votre demande, vous évoquiez la cellule active soit l'objet ActiveCell or vous n'utilisez pas celui-ci dans le code publié.
Il est évident que si vous voulez écrire ou lire dans une cellule ou une plage de cellules avec une adresse précise, il parfaitement possible de le faire sans activer la feuille parente.
Pour information : Pour ne pas afficher une feuille lors de son activation, il faut utiliser l'instruction Application.ScreenUpdating = False (ne pas oublier de remettre la valeur à True juste avant l'instruction Activate

[38160]

Bonjour,

Dans votre demande, vous évoquiez la cellule active soit l'objet ActiveCell or vous n'utilisez pas celui-ci dans le code publié.
Il est évident que si vous voulez écrire ou lire dans une cellule ou une plage de cellules avec une adresse précise, il parfaitement possible de le faire sans activer la feuille parente.
Pour information : Pour ne pas afficher une feuille lors de son activation, il faut utiliser l'instruction Application.ScreenUpdating = False (ne pas oublier de remettre la valeur à True juste avant l'instruction Activate

C'est vrai car mon code plantait si la cellule active de la feuille se trouvant dans un tableau Excel .
malheureusement mafeuille.activeCell.address n'existe pas. activeCell.address ne fonctionne que dans activeSheet.

Du coup, j'ai systématiquement positionné la cellule active en A1 car c'est hors du tableau Excel ce qui m'a évité de tester si elle était positionnée dans ce tableau.

[Philippe Tulliez]

Bonjour,
Il n'y a aucun problème d'avoir l'adresse, la valeur, etc. d'une cellule active que celle-ci soit présente dans un tableau croisé dynamique, tableau structuré (y compris s'il est filtré) ou cellule classique
Test effectué

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub t()
 Dim sht As Worksheet
 Application.ScreenUpdating = False
 For Each sht In ThisWorkbook.Worksheets
   sht.Activate
   Debug.Print ActiveCell.Address(External:=True)
 Next
 Application.ScreenUpdating = False
 Set sht = Nothing
End Sub

Je ne suis pas certain d'avoir compris vos explications. Suivant quel critère souhaitez vous exporter les données de la table Locataire avec la méthode AdvancedFilter. D'après ce que je vois vous n'avez qu'un seul critère donc une liste déroulante (Validation de données) suffirait avec la procédure liée à la procédure événementielle Worksheet_Change au lieu d'un bouton pour exporter dynamiquement suivant le choix effectué dans la liste déroulante.

[tototiti2008]

Bonjour,

Pas réussi à faire planter AdvancedFilter sur de nombreux essais, quel que soit l'endroit où je place ma cellule active avec un code proche de 38160
Pas compris non plus, au bout

[38160]

Suite à ta remarque j'ai essayé de créer un classeur de tests mais le Problème ne se reproduisait pas

Merci tototiti2008 d'avoir passé du temps pour tester
il faut savoir que j'utilise la version MAC 16.91 (24111020)
mais juste avant de poster ce message j'ai constaté une différence entre les deux feuilles,
c'est la présence de segments dans la feuille à problèmes.
en supprimant les segments le problème disparait




Avec la nouvelle feuille s'il y a un segment cela bug aussi

[tototiti2008]

Bonjour,

En effet, j'arrive au même résultat sur PC, ça plante avec un segment, mais seulement si la cellule active est dans la liste à filtrer
Merci, ça peut être intéressant à savoir

D'ailleurs en manuel, le bouton Filtre avancé est grisé dans le ruban quand on a mis un segment (pff j'avais pas regardé ton image )

[Philippe Tulliez]

Bonjour,
Effectivement, je découvre également que le filtres avancé d'excel ne fonctionne pas si un ou plusieurs segments sont insérés et que l'on sélectionne une cellule du tableau structuré
Pour exporter les données suivant critères, je privilégie Power Query.

Une solution proposée dans un billet de Pierre Fauconnier titré Power Query Excel: Alternative efficace au filtre avancé, dynamique de surcroît!
Il existe également une solution basée sur la fonction AGREGAT et les segments. Voir le billet Passer des paramètres dans Power Query à l’aide d’un segment