Discussion :

[Kikouyou]

Bonjour à toutes et à tous,

J'ai récupéré ce code sur ce forum @mercatog mais la ligne Loop While Not C Is Nothing And C.Address <> firstAddress ne passe pas.
Une idée ?

Voici le code complet:

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
Sub filter_by_name()
    Dim MotCle
    Dim NomFeuille
    Dim i As Byte
    Dim C As Range
    Dim B As String
    Dim Ligne As Integer
 
    'On définit les mots clés
    MotCle = Array("Alexios HARKIOLAKIS")
    NomFeuille = Array("By names")
    'On effectue la recherche de chaque mot clé dans la colonne W de la feuille 'Log'
    For i = 0 To UBound(MotCle)
        Do
            Set C = Worksheets("Log").Columns(5).Find(MotCle(i), LookIn:=xlValues, LookAt:=xlPart)
            'Si le mot clé est trouvé
            If Not C Is Nothing Then
                firstAddress = C.Address
                'On définit le nom de la feuille où sera effectuée la copie
                B = NomFeuille(i)
                With Worksheets(B)
                    'On définit la ligne où sera effectué le collage
                    Ligne = .Range("E" & Rows.Count).End(xlUp).Row + 1
                    'On effectue le copier / coller
                    C.EntireRow.Copy .Range("A" & Ligne)
                    Set C = .FindNext(C)
                End With
            End If
        Loop While Not C Is Nothing And C.Address <> firstAddress
    Next i
End Sub

[MarcelG]

Bonjour Kilouyou,

Bienvenue sur ce forum.

Avant toute chose, pour plus de lisibilité, tu peux borner le code que tu reportes avec les balises #.
De plus, qu'entends-tu par "ne passe pas"? Un message d'erreur? Lequel?
As-tu déjà essayé sur le tableur Excel, AVANT d'envisager un développement VBA?

D'autre part, avec l'arrivée des tableaux structurés, c'en est fini aujourd'hui de cette méthode End(xlUp), ou du moins dans 99% des cas

L'ami mercatog() avait sans-doute reporté l'aide en ligne de la méthode Find.

Dans le cas qui t'intéresse aujourd'hui.
Un filtre peut très bien s'affecter à l'une des colonnes du tableau structuré (ou table de données).
Il serait alors générique (le caractère * répondant au paramètre xlPart de ta recherche)
Ensuite, le corps de tableau ainsi filtré serait copié.

Exemple



Le code suivant va recopier les données filtrées correspondant aux voitures contenant la chaîne 'OR".
Donc ici, 2 enregistrements.

J'utilise le CodeName des feuilles de travail.

A adapter.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Sub CopyFilter()
With Sht_Données
        If .FilterMode = True Then .ListObjects("Tableau2").AutoFilter.ShowAllData
        With .ListObjects("Tableau2")
                .Range.AutoFilter Field:=.ListColumns("Voiture").Index, Criteria1:="=*OR*"
                .DataBodyRange.Copy
                Sht_LaCopie.Range("A1").PasteSpecial Paste:=xlPasteValues
                Application.CutCopyMode = False
                .AutoFilter.ShowAllData
        End With
End With
End Sub

[Kikouyou]

Bonjour MarcelG,
En fait je souhaite récupérer toutes les adresses des cellules d'une 1ère feuille qui contiennent une donnée précise (un nom) et coller ces adresses sur une 2ème feuille.
Un peu comme CTRL+F, rechercher tout le fait sauf qu'il n'est pas possible de récupérer les résultats.
Ces valeurs (noms) se retrouvent dans plusieurs colonnes de la 1ère feuille.
Merci pour ton aide et tes précieux commentaires.
BAT

[MarcelG]

Bonjour Bat, Bonjour au Forum,

En fait je souhaite récupérer toutes les adresses des cellules d'une 1ère feuille qui contiennent une donnée précise (un nom) et coller ces adresses sur une 2ème feuille.

Quel intérêt y a-t-il de copier des adresses?

Un peu comme CTRL+F, rechercher tout le fait sauf qu'il n'est pas possible de récupérer les résultats.

Pourrai-tu reporter 2 catures d'écran
- la plage de données où se trouvent les cellules concernées
- la feuille destination contenant le résultat
avec un exemple de valeur

On devrait y voir plus clair.

[Pierre Fauconnier]

Salut.

La ligne Loop While Not c Is Nothing And c.Address <> FirstAddress ne passe pas lorsque c est Nothing car le code ne sait alors pas évaluer c.Address => plantage.

Cela dit, je suis, comme Marcel, en attente d'éclaircissements sur le but de la manoeuvre et la configuration de ton classeur (copie d'écran, ...). Je plussoie aussi l'utilisation des tableaux structurés car ils me semblent adaptés à ton cas.

Que souhaites-tu réaliser?

[Kikouyou]

Salut.

La ligne Loop While Not c Is Nothing And c.Address <> FirstAddress ne passe pas lorsque c est Nothing car le code ne sait alors pas évaluer c.Address => plantage.

Cela dit, je suis, comme Marcel, en attente d'éclaircissements sur le but de la manoeuvre et la configuration de ton classeur (copie d'écran, ...). Je plussoie aussi l'utilisation des tableaux structurés car ils me semblent adaptés à ton cas.

Que souhaites-tu réaliser?

Bonjour,
C'est un fichier Excel dont le format m'était imposé par des gens qui n'y connaissent rien en Excel. Ce format est surtout axé sur la présentation et pas sur la facilité d'utilisation... Disons que toutes les colonnes et les lignes contiennent des données de formats différents !
Finalement, je m'en suis sorti, sans VBA avec des formules et des "indirect" dans tous les coins.
Dans tous les cas merci pour vos conseils.