Discussion :

[valeowork]

Bonjour le forum,

Merci par avance aux lecteurs d'avoir lu mon msg et de s'être penché dessus...parce je galère un peu, étant newbie de 3 semaines.

Contexte :
J'ai deux feuilles "Alertes" et "Feuille_base"
J'ai une plage de cellule contenant des informations des colonnes A à J, avec plusieurs informations.
Dans la colonne A est présent un élement. Ex : Boisson A, Boisson B, Boisson C, etc.
Je peux avoir un nombre de boisson important (plus d'une centaine).

Aussi dans la colonne M, j'ai une liste (que j'ai réalisé en macro) qui correspond au nombre d'élement unique dans la colonne A. En gros, si j'ai Boisson A, Boisson A, Boisson A, Boisson A, Boisson B => dans la colonne sera listé uniquement Boisson A, Boisson B.
Ensuite, je compte le nombre d'occurence pour chaque Boisson. Si le nombre d'occurence est supérieur ou égal à 500, alors, cela me retourne la valeur "1". Ce résultat est mis en colonne O.

Problème :
Je cherche à faire en sorte que, si, dans la colonne A, est présent une boisson, dont le nom est également dans la plage O, alors je voudrais que la ligne Ax:Jx soit copier coller dans un nouvel onglet nommé "Alertes", dans la dernière ligne.

Jai fait un test avec une boucle, mais (1) c'est super long et (2) ça ne recopie que la première ligne (quand j'ai de la chance).

Pouvez-vous m'aider ? Merci !

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
 
 
 
Sub testrecherche30()
Dim Lg As Double
 
For Lg = 2 To 100
If Sheets("Feuille_base").Range("o" & Lg).Value = 1 Then
Range("a" & Lg & ":j" & Lg).Select
Selection.Copy
Sheets("Alertes").Select
Range("a" & Lg & ":j" & Lg).Select
ActiveSheet.Paste
 
 
End If
Next Lg
 
End Sub

[Marc-L]

Bonjour,

une boucle est évidemment bien plus longue que d'utiliser le B-A-BA d'Excel, à savoir un filtre ou un filtre avancé …

___________________________________________________________________________________________________________

Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …