Discussion :

[emi81]

Bonjour,

Tout d'abord, je remercie l'ensemble des contributeurs pour leur participation active, cela m'a permis jusqu'à maintenant de toujours trouver des solutions à me problemes.

Mes connaissances en vba sont ridiciles et je fonctionne beaucoup en copier/coller de code ou en enregistrement de macro
Mais là, je ne trouve pas et je suis bloqué.

Mon probleme
Dans une feuille, je voudrais que TOUTES les lignes DONT la valeur de la cellule située en colonne O est égale à (toto ou tata ou ...) soient activées
ceci pour me permettre de lancer un autre code qui exporte ces lignes dans un autre fichier.

Merci par avance pour votre aide.

[enernaej]

Bonjour,

Vous pouvez utiliser l'enregistreur de macro pour voir à quoi va ressembler votre code.

Pour cela vous lancez l'enregistreur et faites un filtre sur la colonne O en sélectionnant les valeurs adéquates.

Puis vous arrêtez l'enregistreur de macros et vous avez un morceau de code à adapter car vous trouverez surement des "SELECT" qui ne servent à rien.

A vous de jouer.

[emi81]

Alors effectivement je suis arrivé à quelque chose avec cette methode.
j'arrive à copier les lignes dont la cellule de la colonne O n'est pas vide

Code :

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

1
2
3
'activer le tri des lignes dont la colonne "O" est "non vide" et copier ces lignes
    ActiveSheet.Range("A1").AutoFilter Field:=15, Criteria1:="<>"
    Range("A3:P" & Range("A65536").End(xlUp).Row).Copy

Ensuite je colle ces données dans un autre classeur excel via la suite de mon code.

Mais du coup j'ai un probleme:
si aucune cellule de la colonne O est "non vide" la suite de mon code me copie les données de ma ligne 2 --> ce qui est mes en-tête de colonnes.
Quel serait le code pour arrêter la suite du code si aucune cellule de la colonne "O" est "non vide" ?

merci

[enernaej]

Bonjour,

En effet, le filtre va vous retourner la ligne d'en-tête plus toutes les lignes qui répondent au filtre. Ces lignes peuvent ne pas être consécutives.

Pour manipuler ce qui est retourné, une solution est :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
  Dim zoneSelectionnee As Range
 
  ActiveSheet.Range("A1").AutoFilter Field:=15, Criteria1:="<>"
  Set zoneSelectionnee = ActiveCell.CurrentRegion.SpecialCells(xlCellTypeVisible)
  If zoneSelectionnee.Areas.Count > 1 Then
    ' penser à traiter toutes les zones
  Else
    If zoneSelectionnee.Areas(1).Rows.Count > 1 Then
      ' sauter la première ligne qui est l'entête et copier le reste
    Else
      ' il n'y a rien à recopier
    End If
  End If

Voilà une piste à suivre.

[Sogestion]

Bonjour,

Vous pourriez vous inspirer de cette procédure qui offre plusieurs possibilités de copie avec ou sans entete dee colonne

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
 Sub CopieDonneesFiltree()
 
    Dim LastRow As Long, I As Long
    Dim Donnees As Range
    Dim Code As String, Annee As String
 
    '===> Ecran >>> [ InActif ] -----------------------------------------------
    Application.ScreenUpdating = False
 
    With Worksheets("Data")
 
        '* Initialiser les variables
        Code = [N9]
        Annee = [M9]
 
        '*** Plage avec une ligne d'entete afin que le filtre ne la prenne pas en compte
        Set Donnees = .Range(.Cells(2, 7), .Cells(.Rows.Count, 10).End(xlUp))
 
        '* ôter le filtre
        Donnees.AutoFilter
 
        '* Filtrage sur la colonne DE LA PLAGE DE DONNEES
        Donnees.AutoFilter 3, Code
        Donnees.AutoFilter 4, Annee
 
        '* Derniere ligne
        LastRow = .Cells(.Rows.Count, 7).End(xlUp).Row
 
         '* #1 - Copier les résultats
        .Range("G2:G" & LastRow).SpecialCells(xlCellTypeVisible).Copy .Range("L15")
 
        '* #2 - Données SANS entete colonne
        .Range("G3:G" & LastRow).SpecialCells(xlCellTypeVisible).Copy .Range("M15")
 
        Set Donnees = .Range(.Cells(3, 7), .Cells(.Rows.Count, 7).End(xlUp))
        Donnees.SpecialCells(xlCellTypeVisible).Copy [O15]
 
        '* #3 - Toutes les colonnes de la plage de données AVEC entete
        Set Donnees = .Range(.Cells(2, 7), .Cells(.Rows.Count, 10).End(xlUp))
        Donnees.SpecialCells(xlCellTypeVisible).Copy [L22]
 
        '* #4 - Toutes les colonnes de la plage de données SANS entete
        Set Donnees = .Range(.Cells(3, 7), .Cells(.Rows.Count, 10).End(xlUp))
        Donnees.SpecialCells(xlCellTypeVisible).Copy [L28]
 
        '* ôter le filtre
        Donnees.AutoFilter
 
    End With
 
       '* Libère mémoire
    Set Donnees = Nothing
 
End Sub

________________
Cordialement
Albert