Selection des valeurs les plus basses d'une colonne

L

Luc Lucasse

XLDnaute Occasionnel
Re bonsoir le forum,

Je cherche à savoir s'il est possible de faire ce qui suit:

j'ai une colonne J :

J1=4
J2=8
J3=7
J4=12
J5=89
J6=100
J7=5
...


Si la valeur la plus basse est comprise entre 3 et 4 alors je veux que le programme écrive en colonne U la valeur 10 en face des 3 valeurs les plus basses

Si la valeur la plus basse est comprise entre 4 et 5 alors je veux que le programme écrive en colonne U la valeur 10 en face des 4 valeurs les plus basses

Si la valeur la plus basse est comprise entre 5 et 6 alors je veux que le programme écrive en colonne U la valeur 10 en face des 5 valeurs les plus basses

Si la valeur la plus basse est comprise entre 6 et 7 alors je veux que le programme écrive en colonne U la valeur 10 en face des 6 valeurs les plus basses

Si la valeur la plus basse est comprise entre 7 et 8 alors je veux que le programme écrive en colonne U la valeur 10 en face des 7 valeurs les plus basses



Pour le premier point:
Dans l'exemple les 3 valeurs les plus basses sont J1, J7, J3 et donc on a la valeur 10 qui va s'écrire en U1, U7, U3


Pareil pour les autres points à part le nombre de valeurs selectionnées qui changent




Merci pour votre aide
 
Trier par date Trier par votes
bqtr

bqtr

XLDnaute Accro
Re : Selection des valeurs les plus basses d'une colonne

Bonsoir Luc Lucasse,


Un essai par marcro, en espérant avoir bien saisi ta demande

Bonne Soirée

P.O
 

Pièces jointes

  • Mini.xls
    23.5 KB · Affichages: 61
  • Mini.xls
    23.5 KB · Affichages: 57
  • Mini.xls
    23.5 KB · Affichages: 59
Vote positif 0 Vote négatif
L

Luc Lucasse

XLDnaute Occasionnel
Re : Selection des valeurs les plus basses d'une colonne

Merci pour ta réponse, :D

Ta macro ne marche pas parce que si j'écris 1,2,3,4,5,6,7,8,10 sur les 10iéres cases de la colonne J je ne veux rien avoir dans la colonne U vu que le nombre mini est inférieur à 3.

Ensuite si j'écris 4,5,6,7,8,9 je veux que ca mette la valeur 10 dans la colonne U en face de 4,5,6,7 vu que le nombre mini est 4

PS: le nombre mini n'est pas forcement en J1

Merci pour ton aide ;)
 
Vote positif 0 Vote négatif
M

Mytå

Guest
Re : Selection des valeurs les plus basses d'une colonne

Salut de nouveau Luc, bqtr et le forum

Essaye ceci vite fait

PHP: 
Sub Minimum()
 
Dim Min As Double
Dim Nbre As Byte
Dim I As Byte
Dim Plage As Range
Dim Cherche
 
Set Plage = ActiveSheet.Range("J1:J10")
Min = Application.WorksheetFunction.Small(Plage, 1)
 
Select Case Application.WorksheetFunction.Small(Plage, 1)
 
Case 3 To 4
Nbre = 3
Case 4 To 5
Nbre = 4
Case 5 To 6
Nbre = 5
Case 6 To 7
Nbre = 6
Case 7 To 8
Nbre = 7
End Select
 
For I = 1 To Nbre
Min = Application.WorksheetFunction.Small(Plage, I)
Set Cherche = Plage.Find(Min, LookIn:=xlValues)
If Not Cherche Is Nothing Then Cherche.Offset(0, 11) = 10
Next I
 
End Sub

Mytå
 
Vote positif 0 Vote négatif
M

Mytå

Guest
Re : Selection des valeurs les plus basses d'une colonne

Re encore Luc

oui dans le module de la feuille avec Worksheet_Change

If Not Application.Intersect(Target, Range("J:J")) Is Nothing Then
... Le Code ...
End If

Mytå

P.S. Peut-être utile d'effacer la plage avant
ActiveSheet.Range("U1:U10").ClearContents
 
Vote positif 0 Vote négatif
M

Mytå

Guest
Re : Selection des valeurs les plus basses d'une colonne

Salut le forum

Luc c'est toujours le même principe

Dans le module de ta feuille insère le code suivant

PHP: 
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim Min As Double
Dim Nbre As Byte
Dim I As Byte
Dim Plage As Range
Dim Cherche
 
If Not Application.Intersect(Target, Range("J:J")) Is Nothing Then
Set Plage = ActiveSheet.Range("J1:J10")
ActiveSheet.Range("U1:U10").ClearContents
 
Select Case Application.WorksheetFunction.Small(Plage, 1)
 
Case 3 To 4
Nbre = 3
Case 4 To 5
Nbre = 4
Case 5 To 6
Nbre = 5
Case 6 To 7
Nbre = 6
Case 7 To 8
Nbre = 7
End Select
 
For I = 1 To Nbre
Min = Application.WorksheetFunction.Small(Plage, I)
Set Cherche = Plage.Find(Min, LookIn:=xlValues)
If Not Cherche Is Nothing Then Cherche.Offset(0, 11) = 10
Next I
 
End If
End Sub

Mytå
 
Vote positif 0 Vote négatif
L

Luc Lucasse

XLDnaute Occasionnel
Re : Selection des valeurs les plus basses d'une colonne

Merci pour ton aide


Par exemple si je met 3.05 pour le chiffre le plus bas alors ca ne marche pas vu que je n'ai pas 3 zones qui sont selectionnées.:confused:


Autre exemple: Si j'ai 2 chiffres égaux ca ne marche pas non plus:confused:


Merci pour ton aide ;)
 
Vote positif 0 Vote négatif
M

Mytå

Guest
Re : Selection des valeurs les plus basses d'une colonne

Salut de nouveau

Petite modification à tester

PHP: 
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim Min As Double
Dim Nbre As Byte
Dim I As Byte
Dim Plage As Range
Dim Cellule As Range
 
If Not Application.Intersect(Target, Range("J:J")) Is Nothing Then
Set Plage = ActiveSheet.Range("J1:J10")
ActiveSheet.Range("U1:U10").ClearContents
 
Select Case Application.WorksheetFunction.Small(Plage, 1)
 
Case 3 To 4
Nbre = 3
Case 4 To 5
Nbre = 4
Case 5 To 6
Nbre = 5
Case 6 To 7
Nbre = 6
Case 7 To 8
Nbre = 7
Case Else
Exit Sub
End Select
 
Application.EnableEvents = False
For I = 1 To Nbre
For Each Cellule In Plage
Min = Application.WorksheetFunction.Small(Plage, I)
If Cellule.Value = Min Then Cellule.Offset(0, 11) = 10
Next Cellule
Next I
Application.EnableEvents = True
 
End If
End Sub

Mytå
 
Vote positif 0 Vote négatif
L

Luc Lucasse

XLDnaute Occasionnel
Re : Selection des valeurs les plus basses d'une colonne

Bonjour le forum,

Merci pour ta réponse mais quand je met 4 en chiffre le plus bas j'ai seulement 3 valeurs qui sont selcetionnées au lieu de 4, pareil si je met 5 en chiffre le plus bas je n'ai que 4 selections.

Merci
 
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

C
  • Question
XL 2019 Fonction personnalisé avec boucle à simplifier
Réponses
5
Affichages
328
carlos
C
C
  • Résolu(e)
XL 2016 Formule de calcul de la somme conditionnée des écarts d'une plage par rapport à une valeur témoin
Réponses
3
Affichages
137
crocrocro
C
J
  • Question
XL 2021 mise en forme conditionnelle et cellules vides.
Réponses
2
Affichages
519
JOGA
J
D
  • Question
Microsoft 365 Calculer l'écart individuel de chaque n° en fonction d'une règle définie
Réponses
4
Affichages
425
drenek35
D
S
  • Question
XL 2021 suite de nombre avec changement tous les 5
Réponses
9
Affichages
396
mapomme
mapomme
2
  • Résolu(e)
Microsoft 365 Filtrer plage afficher cellules avec plus d'une valeur dans une colonne
Réponses
6
Affichages
266
2pi_N
2
S
  • Question
XL 2016 Classer des valeurs selon intervalle (classes)
Réponses
4
Affichages
203
stuka
S
cathodique
  • Question
XL 2010 Code de l'IA à corriger
2 3
Réponses
33
Affichages
2 K
cathodique
cathodique
L
  • Question
Microsoft 365 Trier des données d'une colonne dans une autre
Réponses
2
Affichages
242
Langrand
L
C
  • Résolu(e)
XL 2016 Répartir dans des Groupes d'Effectifs Aléatoires ... mais pas trop
Réponses
2
Affichages
220
crocrocro
C

Membres actuellement en ligne

2 membres et 41 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 655
Messages
2 111 605
Membres
111 217
dernier inscrit
aladinkabeya2