Discussion :

[szdavid]

Bonjour

j'ai un tableau avec beaucoup de colonnes et j'aimerais, pour me simplifier la lecture, me créer une page de "monitoring" avec seulement les valeurs qui m'intéressent


si je le fais sur une cellule, ça donnerait ça :

Code :

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

=SI('Feuille1':A1<'Feuille1'!A2;'Feuille1'!A3;)

Sauf que :
- cette formule laisse la cellule blanche si elle ne remplit pas la condition.
- à répêter pour chaque cellule

Je voudrais en fait une colonne avec toutes les cellules de la 3ème ligne pour lesquelles A2<A1 ;


Exmple :
feuille complète :

1 |2 |1 |
2 |1 |2 |
Titre 1|Titre 2|Titre 3|


Je voudrais alors avoir en feuille de monitoring :
Titre 1
Titre 3


Merci pour votre aide

[PPz78]

Bonjour,

Ton exemple est étrange :

Je voudrais en fait une colonne avec toutes les cellules de la 3ème ligne pour lesquelles A2<A1 ;
Exmple :
feuille complète :
1 |2 |1 |
2 |1 |2 |
Titre 1|Titre 2|Titre 3|
je voudrais alors avoir en feuille de monitoring :
Titre 1
Titre 3

Dans ton exemple A2 est plus grand que A1 !

A+ avec plus d'explications

PPz

[rvtoulon]

Bonjour PPz78, szdavid,

je ne sais pas comment faire avec les formules mais un exemple simple en vba te permet d'obtenir le résultat que tu souhaites:

dans l'exemple si-dessous dans la même feuille tu vérifies que A1 < A2, B1 < B2, ainsi de suite et si le critère est remplis alors tu donnes à la cellule A6 le contenu de A3 ou B3 et ensuite tu vas en A7 etc....

Ceci est bien entendu a adapter en fonction de ton fichier :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim y As Long, x As Long
y = 6
For x = 1 To Range("A1").End(xlToRight).Column
  'ex si A1<A2 alors ......
  If Cells(1, x) < Cells(2, x) Then 'si tu veux A2<A1 alors remplace "<" par ">"
  'A6 = A3 et ainsi de suite.....
  Range("A" & y) = Cells(3, x)
  y = y + 1
  End If
Next x
End Sub