Ecrire un texte après une liste filtrée VBA excel

Version imprimable

Bonjour à toutes et à tous,

J'ai crée un classeur qui contient deux feuilles, la première feuille nommée "BD" une base de donnée contenant la liste des étudiants avec leur établissement de scolarisation.
et dans la même feuille il y a la liste des établissements de scolarisation filtrées sans doublant.
et la deuxième feuille qui contient le filtre élaboré des étudiants selon leur établissement de scolarisation
"On choisit l'établissement à partir d'une liste déroulante."

Voilà mon macro que j'ai créé dans la feuille de filtrage
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$F$5" Then Set f = Sheets("BD") f.[A1:F1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=f.[H1], Unique:=True f.[H1:H100].Sort Key1:=f.[H2], Order1:=xlAscending, Header:=xlGuess End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$F$5" Then Set f = Sheets("BD") f.[A1:F1000].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[F4:F5], CopyToRange:=[B13:E13] End If End Sub
Je n'arrive pas à ajouter du texte dans la deuxième ligne après la liste filtrée
Merci d'avance pour votre aide

Bonjour,

Avec ceci peut être si j'ai bien compris ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim F As Worksheet
 
    If Target.Address = "$F$5" Then
 
        Set F = Sheets("BD")
 
        With F
 
            .[A1:F1000].AdvancedFilter xlFilterCopy, , .[H1], True
            .[H1:H100].Sort .[H2], xlAscending, , , , , , xlGuess
 
            'en colonne A
            .Cells(.Rows.Count, 1).End(xlUp).Offset(2, 0) = "Ma valeur"
 
        End With
 
    End If
 
End Sub

Hervé.

16/02/2014, 22h16
Sorayadz

1 pièce(s) jointe(s)

Bonjour,

Merci pour votre aide, mais ma valeur s'écrit sur la feuille "liste filtrée"
Désolée pour ma mauvaise français. Je n'arrive pas à bien expliquer. je vous joint le fichier pour que vous puissiez m'aider.
Merci une autre fois pour votre aide
17/02/2014, 07h09
Theze
Bonjour,

Tu change dans la cellule E5 et dans ton code c'est F5 ?
Chez moi le texte s'inscrit bien en colonne A de la feuille "BD" ! Ce qui est normal puisque c'est ce qu'on demande au compilateur :
Code:

1 2 3 4 5 6 With F ... ... .Cells(.Rows.Count, 1).End(xlUp).Offset(2, 0) = "Ma valeur" '<-- le point rattache bien à la variable F qui représente la feuille "BD" End With
Hervé.
17/02/2014, 22h48
Sorayadz

2 pièce(s) jointe(s)

Bonjour,
Merci pour votre aide. Je vais essayer d'expliquer j'espère que vous pouvez me comprendre.
la feuille "BD" contient la liste des étudiants avec leur établissements de scolarisation.
- La colonne H contient une liste filtrée sans doublant des établissements de scolarisation qui se trouve dans "la colonne E"
Pièce jointe 138363

Sur la feuille "liste filtrée" On trouve :
- La cellule E5 est liste déroulante de liste filtré BD!H2:H9
Lorsque je choisis une établissement, le macro va faire un filtre des étudiants dans la feuille "BD" et le copie dans feuille "filtre élaboré" dans les cellules A13:D13
Après la listé filtrée, je veux écrire un texte
Pièce jointe 138366

Citation:

Envoyé par Theze

Bonjour,

Tu change dans la cellule E5 et dans ton code c'est F5 ?

J'ai décalé la liste filtré de la plage "B13:E13" vers ""A13:D13" c'est un décalage lorsque j'ai traduit mon exemple en français.

Citation:

Chez moi le texte s'inscrit bien en colonne A de la feuille "BD" ! Ce qui est normal puisque c'est ce qu'on demande au compilateur :

Mais je veux que "Ma valeur" s'affiche dans la feuille "liste filtrée" après la liste filtrée B13:E13
Merci!
18/02/2014, 10h12
Philippe Tulliez

Bonjour,
Le problème est de savoir dans quelle feuille se trouve la procédure événementielle dont tu donnes le code.
et suivant le cas par exemple
Comme les données filtrées se font à partir de la plage B13:E13

Code:

F.[B13].End(xlDown).Offset(2) = "Ma valeur"

ou

Code:

[B13].End(xlDown).Offset(2) = "Ma valeur"

Si la partie filtrée est sur la feuille où est le code de la procédure événementielle il ne faut pas préciser la feuille dans le cas contraire, il faut utiliser la variable objet F qui représente l'autre feuille (du moins je suppose).
18/02/2014, 18h52
Sorayadz

Bonjour,
Merci pour vos réponses!
Le code se trouve sur la feuille "liste filtrée"
Merci beaucoup, le problème est résolu grâce à votre aide.
Bonne soirée!