Discussion :

[backx3]

Bonjour bonjour !
Je fais encore appel à vous parce que vous êtes les meilleurs et qu'un nouveau problème se présente à moi !

J'ai un tableau avec plusieurs filtres de données, et j'aimerais que dans ma macro, je sélectionne certaines données d'une colonne avec un filtre mais pas en fonction du numéro de la colonne mais en fonction du nom de cette colonne.

Le code pour sélectionner mes données en fonction du numéro de la colonne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub filtre()
' filtre Macro
 
    ActiveSheet.Range("$A$1:$AP$9087").AutoFilter Field:=30, Criteria1:=Array( _
        "DE-VA POLE AMERIQUES", "DE-VA POLE FRANCE", "DE-VA POLE ROUMANIE", _
        "DE-VB POLE AMERIQUES", "DE-VB POLE COREE", "DE-VB POLE FRANCE", _
        "DE-VB POLE ROUMANIE", "DE-VD POLE AMERIQUES", "DE-VD POLE COREE", _
        "DE-VD POLE FRANCE", "DE-VD POLE ROUMANIE", "DE-VE POLE AMERIQUES", _
        "DE-VE POLE COREE", "DE-VE POLE FRANCE", "DE-VE POLE ROUMANIE"), Operator:= _
        xlFilterValues
End Sub

Auriez-vous une petite idée pour faire ça en fonction du nom de la colonne ? (Le nom de la colonne c'est "PoleTrait")

[Invité]

Bonjour,

Une piste ici

Cordialement.

[backx3]

Merci de ta réponse rapide.
Mais ton code sert à repérer la présence d'une cellule, et j'ai ce code là moi :

Code :

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

1
2
3
4
5
6
7
  Set Cel = Cells.Find(what:="Fonction*") '(Où fonction est le nom de ma cellule)
  If Not Cel Is Nothing Then
    Cells(1, Cel.Column).Resize(Cells(Rows.Count, Cel.Column).End(xlUp).Row).Select
  Else
    MsgBox "Pas trouvé le nom "
    Exit Sub
  End If

Mais je voudrais, à travers le filtre, cocher des données en fonction du nom de ma cellule, et dans ton code il n'y a rien qui me mette sur cette piste..
(Ou alors j'ai pas compris ton code ^^)

[Invité]

(Ou alors j'ai pas compris ton code ^^)

Si le principe est de trouver la colonne s'appelant "PoleTrait" dans la ligne 1 (ligne de titre), le code ci-dessous fonctionne.

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Option Explicit
 
Public DetectionColonnes As String
 
Sub Filtre()
 
Dim LigneDeTitre As Long
Dim ColPoleTrait As Integer
 
    With ActiveSheet
 
         LigneDeTitre = 1
         DetectionColonnes = "Absence colonnes :" & Chr(10)
         ColPoleTrait = ColonneFeuille(ActiveSheet, LigneDeTitre, "PoleTrait")
 
         If DetectionColonnes = "Absence colonnes :" & Chr(10) Then
            .Range("$A$1:$AP$9087").AutoFilter Field:=ColPoleTrait, Criteria1:=Array( _
                "DE-VA POLE AMERIQUES", "DE-VA POLE FRANCE", "DE-VA POLE ROUMANIE", _
                "DE-VB POLE AMERIQUES", "DE-VB POLE COREE", "DE-VB POLE FRANCE", _
                "DE-VB POLE ROUMANIE", "DE-VD POLE AMERIQUES", "DE-VD POLE COREE", _
                "DE-VD POLE FRANCE", "DE-VD POLE ROUMANIE", "DE-VE POLE AMERIQUES", _
                "DE-VE POLE COREE", "DE-VE POLE FRANCE", "DE-VE POLE ROUMANIE"), Operator:= _
                xlFilterValues
        Else
            MsgBox DetectionColonnes, vbCritical
        End If
    End With
 
End Sub
 
 
 
Function ColonneFeuille(ByVal FeuilleTitre As Worksheet, ByVal LigneTitre As Long, ByVal TitreRecherche As String) As Long
 
Dim NbColonnes As Long
Dim Cellule As Range
Dim Aire As Range
 
    With FeuilleTitre
 
         ColonneFeuille = 0
         NbColonnes = .Cells(LigneTitre, .Columns.Count).End(xlToLeft).Column
         Set Aire = .Range(.Cells(LigneTitre, 1), .Cells(LigneTitre, NbColonnes))
 
         For Each Cellule In Aire
             Select Case Mid(Cellule.Value, 1, Len(TitreRecherche))
                    Case TitreRecherche
                         ColonneFeuille = Cellule.Column
                         Exit For
             End Select
         Next
 
         If ColonneFeuille = 0 Then DetectionColonnes = DetectionColonnes & Chr(10) & TitreRecherche
 
         Set Aire = Nothing
 
    End With
 
End Function

Cordialement.

[backx3]

Ton code fonctionne mais j'aimerais essayer de l'insérer dans ma macro et donc le "Public DetectionColonnes As String" me dérange car je ne peux pas le mettre dans mon sub.
Aurais-tu une alternative pour que je puisse le mettre dans ma macro stp ? (Désolé je m'y connais pas énormément)
C'est la première fois que je vois un "Public" comme déclaration ^^

[Invité]

De quelle macro s'agit-il ?

Quant à Public DetectionColonnes As String, il n'y a pas besoin d'y toucher, cette déclaration doit être en tête de module. La déclaration est là parce que cette variable est utilisée dans les deux procédures. J'aurais pu remplacer Public par Private tant que les deux procédures sont dans le même module.

Cordialement.