Discussion :

[Jeremy88400]

Bonjour,

Je suis novice en macro et j'aurais besoin de votre aide sur ce sujet :

Je cherche à sélectionner (copier) une plage de données dans une colonne (A) en fonction d’une valeur dans une autre colonne (C). Si la valeur de la colonne C est égale à 11 (ou C=12), je voudrais sélectionner les valeurs de la colonne A correspondantes, sachant que le nombre de ligne peu être variable et ne commence pas forcément à la première cellule (A1). Il se peut qu'il y ait des cellules vides dans la colonne A. Je voudrais copier cette plage selectionnée pour la mettre dans une autre feuille.

Exemple :

Merci par avance.

[cerede2000]

Bonjour à toi,

Si j'ai bien compris ta demande, un simple filtre suffit.
Tu filtre la colonne C sur 11 et 12, tu filtre ensuite la colonne A sur non vide.

Puis tu sélectionne la plage sur la colonne A et tu copie avec le paramètre xlCellTypeVisible

[halaster08]

Bonjour,

Il y a un excellent tuto sur les filtres avancés avancés, disponible sur ce site. http://philippetulliez.developpez.co...dvancedfilter/
Je pense que tu y trouveras bonheur.

[Jeremy88400]

Merci pour vos réponses, oui effectivement c'est un simple filtre.

Mais j'aimerais le faire sur une petite macro car j'ai plusieurs manipulations à effectuer du même genre.
J'avais commencé à écrire ceci, mais cela bloque au niveau de la selection de la plage A:

Code :

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

1
2
3
4
5
6
7
Sheets("report_report").Select
Dim cellule As Range
For Each cellule In Range("C:C")
    If cellule.Value = "11" Then
        Range("A58", Range("A58").End(xlDown)).Select
    End If
Next cellule

[Jeremy88400]

J'ai reussi à faire ceci avec l'enregistreur de macro et ça marche :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
' copie de la vitesse de vent :
    Sheets("report_report").Select
    Columns("C:C").Select
    Selection.AutoFilter
    ActiveSheet.Range("$C$1:$C$71479").AutoFilter Field:=1, Criteria1:="11"
    Dim b As Long
    b = Range("L5500").End(xlDown).Row
    Range("L2" & ":" & "L" & b).Select
 
    Selection.Copy
    Sheets("Données").Select
    Range("B3").Select
    ActiveSheet.Paste

Cela peu être simplifié peut être .....

[Marc-L]

Bonjour !

Si j'ai bien compris ta demande, un simple filtre suffit.
Tu filtre la colonne C sur 11 et 12, tu filtre ensuite la colonne A sur non vide.
Puis tu sélectionne la plage sur la colonne A et tu copie avec le paramètre xlCellTypeVisible

Ok pour le filtre mais pas pour xlCellTypeVisible car superflu :
les méthodes Copy comme Delete travaillant déjà uniquement avec les cellules visibles …

______________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …

[cerede2000]

Ah ! Merci
Tellement l'habitude d'utiliser le pasteSpecial avec ce paramètre que je n'ai jamais fais attention à ce détails