Discussion :

[max76210]

Bonjour,

Alors voilà j'aimerai créer un programme qui vérifie toute les valeurs d'une colonne si elle sont comprise entre deux cellules ( valeurs dans la cellule ) et ensuite copier dans un tableau les valeurs non comprise dans cette intervalle.

Code :

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

1
2
3
4
5
6
7
8
9
Sub CompteRendu()
 
Dim Maxi As Integer
Dim Mini As Integer
 
Maxi = Range("C21")
Mini = Range("C22")
 
End Sub

J'ai commencer a définir des variables mais ensuite je ne voit pas comment faire.

Il faut utiliser if Maxi<colonne<Mini Then copie dans un tableau les valeurs non comprise dans l'intervalle.

Mais comment y mettre la colonne et repérer les valeurs non comprise dans l'intervalle ?

Cordialement.

[Kimy_Ire]

Salut max76210,

Peux-tu me dire si j'ai compris ce que tu souhaites faire et apporter des précisions sur les zones d'ombres ?

Tu veux comparer toutes les valeurs d'une colonne (par exemple A), de la première ligne à la dernière ligne, en fonction de deux autres valeurs.
Ces valeurs sont situées dans deux cellules (par exemple C21 et C22). Mais est-ce que chaque cellule de ta colonne (A) doit être comparée avec les mêmes valeurs où est-ce que ces cellules comparatives évoluent chaque ligne :
Exemple :

• A2 comparé avec B2 et C2
• A3 comparé avec B3 et C3
• A4 comparé avec B4 et C4
• ...

Enfin, où souhaites-tu recopier les valeurs non-présentes dans les intervalles ?
Même feuille ? Autre feuille ? Autre classeur ? Sur quelle plage ? A supprimer en amont ?

Cordialement,
Kimy

[max76210]

Bonjour,

Il ne faut pas que ce soit une colonne en fait sinon ça va créer des conflits cars mes deux cellules qui définissent l'intervalle sont dans la même colonne que je veux.

Donc plutôt une plage de cellule.

Sinon non les cellules comparatives n'évoluent pas elles sont fixes.

En gros :

- Tu as une plage de cellule avec des valeurs.

- Une cellule avec une valeur maxi.

- Une cellule avec une valeur mini.

Si une des valeurs de la plage de cellule dépasse le maxi ou est plus petite que le mini.

Cette valeur est copiée dans une autre feuille.

Tu as compris ?

Cordialement.

[Kimy_Ire]

Petit code rapide. A toi d'adapter :

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
20
21
22
23
24
25
26
Sub comparatif()
'Déclaration des variable
Dim Rng As Range
Dim comp1, comp2 As Single
 
'Avec "Feuil2"
With Worksheets("Feuil2")
    'On set la range qu'on souhaite comparer
    Set Rng = .Range("A1:B40, E2:G10")
    'Et les deux varaibles comparatives (comp1 = min - comp2 = max)
    comp1 = .Range("C21")
    comp2 = .Range("C22")
 
    'Pour chaque cellules de la range
    For Each Cel In Rng.Cells
        'On vérifie la comparaison
        If Cel < comp1 Or Cel > comp2 Then
            'et si on est hors bornes, alors on écrit la valeur en bas de la colonne A de la feuille "Feuil3"
            'il faut qu'il y ai au moins une valeur en A1.
            Worksheets("Feuil3").Columns(1).Find("*", , , , , xlPrevious).Offset(1, 0) = Cel
        End If
    Next Cel
 
End With
 
End Sub

N'hésite pas à revenir vers moi si tu as des questions.

Cordialement,
Kimy

[max76210]

Merci de ta réponse sa m'aide beaucoup,

Cependant il y a une erreur à une ligne que je ne comprends pas.

J'ai bien mis ma plage de cellule.

Renseigner les feuilles du classeur.

Je te mets mon fichier si tu peux regarder.

Cordialement.

exemple.xls

[Kimy_Ire]

Et ça dans "Compte Rendu" : 'il faut qu'il y ai au moins une valeur en A1. ?