XL 2013 Marco vba

[abdounet1]

Bonjour,
Dans un tableau, dans la premiere colonne on trouve des valeurs (salaires) et dans la ligne entête des tranches de salaires ( valeurs 2000, 2500 ...).
Je souhaite avoir une macro que pour chaque valeur de la colonne trouve la valeur la plus proche de la ligne entête et mettre un signe dans la cellule intersection.

Mecri d'avance

 

[sylvanu]

Bonjour Abdounet,
Un essai en PJ avec :

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é.

 

[Wayki]

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 +

 

[abdounet1]

Bonjour
Merci pour votre réponse

 

[sylvanu]

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

trouve la valeur la plus proche

 

[patricktoulon]

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

 

[abdounet1]

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

Bonjour @Wayki , @sylvanu

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

rien ne se passe lors je clique sur le Botton.

 

[Wayki]

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

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
À +