XL 2013 Marco vba

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Octobre 2021

• #2

Bonjour Abdounet,
Un essai en PJ avec :

VB:

Sub Calcule()
    Dim L%, C%, Colonne%, Diff
    Application.ScreenUpdating = False
    DL = Range("A65500").End(xlUp).Row
    DC = Cells(1, Columns.Count).End(xlToLeft).Column
    Range("B2:Z1000").ClearContents
    For L = 2 To DL
        Diff = 9 ^ 9
        For C = 2 To DC
            If Abs(Cells(L, 1) - Cells(1, C)) <= Diff Then
                Diff = Abs(Cells(L, 1) - Cells(1, C))
                Colonne = C
            End If
        Next C
        Cells(L, Colonne) = "X"
    Next L
End Sub

Il est mieux de fournir un fichier test. Cela nous évite de le créer, et la solution proposée est plus proche de la réalité.

 

Pièces jointes

• Classeur1.xlsm

  17.8 KB · Affichages: 6

Vote positif 0 Vote négatif

Wayki

XLDnaute Impliqué

• 10 Octobre 2021

• #3

Bonjour @abdounet1 , @sylvanu , le forum,
Ci-joint ma proposition avec une feuille de paramétrage.
Attention à revenir sur le feuil1 avant le lancement de la macro pour ne pas tout dérégler.
A +

 

Pièces jointes

• Classeur1.xlsm

  26.6 KB · Affichages: 8

Vote positif 0 Vote négatif

A

abdounet1

XLDnaute Nouveau

• 10 Octobre 2021

• #4

Bonjour
Merci pour votre réponse

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Octobre 2021

• #5

Bonjour Abdounet, Wayki,
@Wayki, Pour moi 1450 devrait être plus proche de 1500 que de 1000.

abdounet1 à dit:

trouve la valeur la plus proche

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Octobre 2021

• #6

@sylvanu
de meme que 1501 puisque l'on parle des absents

 

Vote positif 0 Vote négatif

A

abdounet1

XLDnaute Nouveau

• 11 Octobre 2021

• #7

patricktoulon à dit:

@sylvanu
de meme que 1501 puisque l'on parle des absents

Cliquez pour agrandir...

Bonjour @Wayki , @sylvanu

pourriez vous me préciser l'erreur sur le fichier joint.

rien ne se passe lors je clique sur le Botton.

 

Pièces jointes

• Essai.xlsm

  26 KB · Affichages: 2

Vote positif 0 Vote négatif

Wayki

XLDnaute Impliqué

• 11 Octobre 2021

• #8

sylvanu à dit:

Bonjour Abdounet, Wayki,
@Wayki, Pour moi 1450 devrait être plus proche de 1500 que de 1000.

Cliquez pour agrandir...

Bonjour @sylvanu, @abdounet1 et le forum,
Effectivement c'est ce qu'il a demandé. Mais vu qu'on parle de salaire, il me semblait plus logique de classer ça par tranche.
D'où mon exemple
À prendre ou à laisser
À +

 

Vote positif 0 Vote négatif