XL 2016 vba

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 31 Août 2021

• #2

Bonjour Lala et bienvenue sur XLD,
Pouvez vous fournir un petit fichier test représentatif.
Ce serait moins ... nébuleux.

 

Vote positif 0 Vote négatif

L

lala1515

XLDnaute Nouveau

• 31 Août 2021

• #3

Hello,
voici un fichier, j'aimerai qu'il m'afficher la valeur en rouge via vba.
Donc le min de la colonne sur la meme ligne que celui ci.

Merci d'avance

 

Pièces jointes

• aide.xlsm

  378.5 KB · Affichages: 7

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 31 Août 2021

• #4

hello,
Un essai en PJ en utilisant une macro événementielle.
Il suffit de changer une valeur dans la colonne I pour mettre à jour la colonne J;
J'ai limité la zone d'analyse à I1:I5000 à cause des données présentes en I5004 et suivantes. Avec :

VB:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("I2:I5000")) Is Nothing Then
        Dim ValMin, IndexValMin
        [J1:J5000].ClearContents                                        ' On efface la colonne J
        ValMin = Application.Min(Range("I1:I5000"))                     ' Ialcul du min de la colonne I
        IndexValMin = Application.Match(ValMin, Range("I1:I5000"), 0)   ' Où se trouve t-il ?
        Cells(IndexValMin, "j") = ValMin                                ' On range cette valeur dans la colonne J
    End If
End Sub

 

Pièces jointes

• aide.xlsm

  383.2 KB · Affichages: 5

Vote positif 0 Vote négatif

L

lala1515

XLDnaute Nouveau

• 31 Août 2021

• #5

Merci beaucoup, mais je n'arrive pas a lancer la macro.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 31 Août 2021

• #6

???
La macro est événementielle. Elle se déclenche toute seule si vous modifiez une valeur dans I2:I5000.
Par ex, si en I12 vous mettez 0.1 et vous verrez la colonne J se mettre à jour.
Idem si vous supprimez ensuite ce même 0.1.

 

Vote positif 0 Vote négatif

L

lala1515

XLDnaute Nouveau

• 31 Août 2021

• #7

très bien merci beaucoup pour votre aide, puis je revenir vers vous si j'ai une question ?
merci encore

 

Vote positif 0 Vote négatif

L

lala1515

XLDnaute Nouveau

• 31 Août 2021

• #8

Bonjour, ce code est derrière un autre projet que je n'arrive toujours pas a faire fonctionner.

J'aimerai que si a2= a3 alors il regarde le min de leur colonne i et selectionne le min qu'il met dans la colonne j sur la meme ligne.
Par exemple a4=a5=a6 donc il compare les min de ces 3 lignes et prend le min le met sur la meme ligne en colonne J.
tant que A2=A2+1 il continue puis sélectionne le min en I et le pose dans la colonne j sur la MEME LIGNE.
Le but étant d avoir la colonne K,
c'est possible qu'il y est des lignes vides.
Et cela pour 5000 lignes
Merci d avance.

 

Pièces jointes

• copie-de-aide-xlsm-2.xlsm

  378.9 KB · Affichages: 3

Vote positif 0 Vote négatif