Discussion :

[elmer005]

Bonjour,

J'ai un fichier excel contenant plusieurs lignes et colonnes. Une des colonnes contient un chiffre allant de 1 à 16. J'aimerais sélectionner toutes les lignes de la feuille où cette colonne est supérieure ou égale à 8. J'ai fait le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub a()
 
For i = 1 To 200
 
    If Cells(i, 13) >= 8 Then
        Range(Cells(i, 1), Cells(i, 15)).Select
 
    End If
 
 
Next
 
End Sub

Le problème c'est que quand j'exécute la macro, elle ne me sélectionne que la ligne avec la valeur la plus grande (16). Or, dans ma feuille, 4 lignes contiennent une valeur supérieure ou égale à 8 dans cette colonne.

[unparia]

Bonjour
Intéresse-toi à la méthode Union (rubrique Application.Union, méthode de ton aide interne VBA) et applique-là.

[joe.levrai]

Bonjour,

sélectionner pour faire quoi ?

suivant la réponse : un simple filtre automatique basé sur un Critéria1 >=8 et récupération de la plage filtrée
ou encore, suivant la réponse : filtre avancé avec export des résultats (ou pas)

Bref, un peu plus de précisions sur l'objectif de ton opération

[elmer005]

Je veux pouvoir les sélectionner pour les copier dans une autre feuille de mon classeur. J'ai trouvé la méthode de copie vers une autre feuille mais le souci c'est que je n'arrive pas à sélectionner toutes les lignes que je devrais copier...

[Menhir]

Je veux pouvoir les sélectionner pour les copier dans une autre feuille de mon classeur.
J'ai trouvé la méthode de copie vers une autre feuille mais le souci c'est que je n'arrive pas à sélectionner toutes les lignes que je devrais copier...

Pour copier, tu n'as pas besoin de sélectionner. Je te l'ai déjà expliqué dans un autre sujet.
https://www.developpez.net/forums/d1...on-d-colonnes/
Inutile aussi de les copier toutes ensemble. Il est plus simple de les copier une par une.

[elmer005]

En fait, j'arrive à sélectionner et copier mes lignes dans la seconde feuille. Mais, quand elles se collent dans la seconde, mes cellules (qui étaient fusionnées dans la première feuille) ne sont plus fusionnées, même en utilisant le collage spécial... Je sens que je ne suis pas loin de réussir mais je tourne en rond...

[joe.levrai]

filtre avancé avec export des résultats

TUTO filtres avancés

avec 5 lignes de code VBA c'est fait, aides-toi de l'enregistreur de macro. Si tu n'arrives pas à adapter, reviens avec la base de ton code VBA pour qu'on t'aide


Sinon, filtre automatique (Autofilter) comme je l'avais mentionné. Et ensuite .Copy de la plage filtrée.
Là encore, l'enregistreur de macro est ton GRAND ami

[elmer005]

Le problème c'est que je débute et 5 lignes pour moi, c'est déjà un défi ! J'ai déjà essayé les filtres avancés mais je n'obtiens pas ce que je veux...

[patricktoulon]

re
une petite astuce pour ce servir de autofilter meme si la colonne A et/ou plus sont vide(s)

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
    If [A1].Value = "" Then [A1].Value = "xxx"
    Set plage = Sheets(1).Range("A1:O" & Sheets(1).Cells(Rows.Count, 13).End(xlUp).Row)
    With plage
        .AutoFilter Field:=13, Criteria1:=">=8"
        If [A1].Value = "xxx" Then [A1].Value = ""
        MsgBox .SpecialCells(xlVisible).Address
        .AutoFilter
    End With
End Sub

a la place du msgbox tu n'a plus qu'a faire

Code :

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

.copy destination:=sheets("toto").range("A1") par exemple

pour comprendre pour quoi l'astuce de la cellule A1 tu n'a qu'a enlever la 1ere ligne "if[A1].Value ....." et tester avec la colonne A vide

[elmer005]

Merci !!!

Je teste ça et je reviens vers vous si besoin !