Discussion :

[elmer005]

Bonjour,

J'ai un fichier dans lequel se trouvent des lignes correspondant chacune à un risque dans une entreprise. Chaque risque dispose d'une cotation (de 1 à 16). J'aimerais créer une macro qui me permettrait de renvoyer automatiquement vers une autre feuille du même tableur les lignes dont la cotation se situe entre 8 (compris) et 16 (compris). Je débute à peine sur VBA alors tout ça reste très flou pour moi. J'ai recherché sur le forum une réponse approchant de mon problème mais j'avoue ne pas comprendre grand chose...
Merci d'avance pour votre réponse

PS : Les cellules qui contiennent la cotation contiennent une formule (une simple multiplication) et sont mises en forme en fonction du résultat (changent de couleur). Je ne sais pas si cela pose problème pour la macro donc je préfère préciser.

[Menhir]

Ce que tu décris peut se faire sans VBA en utilisant un filtre avancé.
A lire : http://philippetulliez.developpez.co...dvancedfilter/

[Transitoire]

Bonsoir,
Ci-dessous, dossier sommaire qui répondrait après adaptation à vos souhaits.
Base de données avec données déplacées dans une autre feuille suivant les critères.
Ca demande bien sur à être adapter et fignoler
Cordialement

Test.xlsm

[elmer005]

Bonjour,

Je n'arrive pas à obtenir ce que je veux avec les filtres...
Je voudrais que lorsque la valeur de la colonne "RR" soit supérieure ou égale à 8, la ligne correspondante soit transférée automatiquement vers une autre feuille "récapitulatif". Je ne veux pas avoir à modifier la feuille sur laquelle se trouve ma colonne "RR".

[Menhir]

Je n'arrive pas à obtenir ce que je veux avec les filtres...

Je n'ai pas parlé de filtre mais de filtre avancé.

Je ne veux pas avoir à modifier la feuille sur laquelle se trouve ma colonne "RR".

Pour utiliser un filtre avancé, il n'est pas indispensable que la zone de critères soit dans la même feuille que la zone de données.

[elmer005]

Je ne m'en sors pas avec les filtres avancés donc j'ai essayé avec vba. Mon code est le 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 aa()
 
For i = 1 To 200
 
    If Cells(i, 13) >= "8" Then
    Range(Cells(i, 1), Cells(i, 13)).Copy
    Sheets("Feuil3").Paste
 
    End If
 
Next
 
End Sub

Le problème c'est que quand j’exécute ma macro, elle ne sélectionne que la première ligne dont la colonne RR contient une valeur supérieure à 8 (ici, 9). Il me la copie bien dans la feuille 3 mais il ne me prend qu'une seule valeur supérieure ou égale à 8 alors qu'il y en a 4 dans le tableau.