Discussion :

[olivertwist]

J'ai une macro qui copie colle les valeurs d'une ligne sur les suivantes toutes les secondes:celle là elle marche

Ensuite mon objectif est que quand une valeur dépasse le maximum des 10 lignes précédentes, la ligne en question soit collée dans une autre feuille

J'ai essayé avec If activecell.value > Application.WorksheetFunction.Max ...then
mais ca me copiait toutes les lignes et pas seulement celles ki depassaient le max

J'ai essayé select case et là ca me coipie plus rien dans l'autre feuille...

J'ai ensuite séparé la macro en 2
D'une part dans la 1ere une macro ki prend des valeurs de la 1ere feuille vers la seconde
D'autre part dans la 2eme macro , le copier coller de toutes les valeurs à chaque seconde sur la ligne suivante et un select case ki utilise la 1ere macro si le max est depassé (pour savoir si le max est depassé j'ai essayé avec la formule max dans excel puis un if(A3>B3;1;0) (A3 etant la valeur initiale et B3 le max) et ensuite je demande juste à ma macro de verifier que ma cellule A3=1 ou ="1" mais y a rien à faire ca marche pas

Aidez moi please j'en peux plus

Merci d'avance

[patbou]

bonjour
essaye avec une boucle qui va rechercher si ta derniere valeur copiée est sup
au 10 derniere

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub essais()
Dim i As Integer
Dim val
val = ActiveCell.Value 'ici la valeur de cellule que tu veux comparer
For i = 1 To 10
If val > Cells(11 - i, 1).Value Then
'ton code
MsgBox val & "supérieur au 10 dernieres valeures "
End If
Next i

[olivertwist]

Non ca ne marche toujours pas , mais es tu sûr de ton :

If val > Cells(11 - i, 1).Value Then

le "Cells(11 - i, 1).Value " renvoie t il à la plage des 10 cellules au dessus ou renvoie t il à la cellule 11-i lignes en dessous et une colonne aprés ??

J'ai déjà eu ce doute quand j'ai voulu selectionner une plage de cellule avec activecell.offset

Merci pour ton aide

[ouskel'n'or]

Regarde là
Pour la condition, tu mets

Code :

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

If (la condition) then ....

[olivertwist]

if ... then

Tu penses bien que c'est la 1ere chose ke j'ai essayé

ps:ton lien ne fonctionne pas

Merci quand même

pps:je posterai mon code demain, ca sera + facile de m'aider

[patbou]

bonjour
avec la boucle for i =1 to 10
le "Cells(11 - i, 1).Value " renvoie la plage des 10 cellules au dessus
donc la plage de cellule("a1:a10")

[ouskel'n'or]

olivertwist m'ayant chaudement remercié par mp pour la clarté de ma réponse précédente...

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
Sub ChercherLeMax()
Dim Fl1 As Worksheet
Dim Fl2 As Worksheet
Dim Plage As Range
Dim NoLigne As Integer
Set Fl1 = Worksheets("Feuil1")
Set Fl2 = Worksheets("Feuil3")
 
    Set Plage = Fl1.Range("D11:D" & Range("D65535").End(xlUp).Row)
    For Each Cell In Plage
        If Cell.Value > Application.WorksheetFunction.Max(Cell.Offset(-1, 0), Cell.Offset(-10, 0)) Then
            NoLigne = NoLigne + 1
            Cell.EntireRow.Copy Destination:=Fl2.Cells(NoLigne, 1)
        End If
    Next
End Sub

En espérant que ça t'aide
A+

NB - Pour mon exemple, j'ai pris la colonne D... tu sauras adapter ?