Discussion :

[awa123]

Bonjour,

Le petit code ci-dessous me donne la valeur minimale de chaque ligne en me précisant à chaque fois sur quelle colonne elle se trouve.
j'aimerais désormais ne considérer que la première valeur minimale sur la ligne i, par exemple si dans mon tableau nous avons 2 fois la valeur 1 sur la ligne i , je voudrais qu'il me dise que la valeur min se trouve sur la colonne 1, et ne tiens plus compte de la colonne 2.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 Sub test()
 
Dim tableau(2, 2) As Variant, i%, j%, m As Double
 
 
tableau(0, 1) = 1
tableau(0, 2) = 1
tableau(1, 1) = 3
tableau(1, 2) = 2
tableau(2, 1) = 7
tableau(2, 2) = 4
 
 
For i = 0 To UBound(tableau, 1)
m = 100
 
    For j = 1 To UBound(tableau, 2)
 
          If tableau(i, j) < m Then
 
          m = tableau(i, j)
          End If
 
    Next j
 
 
' on a récupérer le min tableau
 
       For k = 1 To UBound(tableau, 2)
 
         If m = tableau(i, k) Then
 
            'afficher le n° de sa colonne et si il y a d'autre valeur min sur la même ligne alors il passe à la ligne d'aprés (next i)
 
            MsgBox "Minimum(colonne " & k & ") = " & m
 
         End If
 
       Next k
 
Next i
 
End Sub

merci!

[awa123]

je viens de trouver merci ,

en fait il suffisait de placer l'instruction exit for pour sortir de la boucle sur les colonnes (indice k).

[Marc-L]

Bonjour,

bien plus simple & efficace en n'oubliant pas les fondamentaux d'Excel comme ses fonctions de feuille de calcul ‼

Avec les fonctions INDEX, MIN & EQUIV (Match en VBA car anglais natif oblige …) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Demo()
    TB = [{1,1;3,2;7,4}]    ' l'indice commence à 1 donc TB(1 to 3, 1 to 2)
 
    For L& = 1 To UBound(TB)
        TL = Application.Index(TB, L)
        M% = Application.Min(TL)
        S$ = S$ & "Ligne " & L & " :   minimum = " & M & _
             "    colonne " & Application.Match(M, TL, 0) & vbLf & vbLf
    Next
 
    Erase TB, TL
    MsgBox S
End Sub

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[nibledispo]

Bonjour,

j'ai déjà apporté la réponse dans une précédente demande restée sans réponse.
lorsque tu changes les données du problème merci le faire sur la même discussion.

Cela fait déjà AU MOINS deux discussions que tu introduis et qui restent sans réponses pour les deux raisons suivantes
- la question est posée précipitamment avant d'avoir réfléchi au problème (résolu immédiatement après la question) et tu ne vas plus voir s'il y a une réponse.
- tu as oublié la question à force d'en poser

Ce n'est pas très respectueux !

cordialement,

[awa123]

Bonjour Paul,

Tout d'abord je m'en excuse , en effet je suis tellement obstiné à finir une réalisation en VBA que dès qu'un code proposé fonctionne je marque la discussion en résolu

D'autre part, il m'arrive de ne pas tout comprendre dans certains code mais pour ne pas vous blazer je préfère revoir la qualité de mon code dans un second temps, c'est a dire y revenir plus tard.

dsl encore

[nibledispo]

re....,

Ce n'est pas grave.
As-tu essayé le code proposé par Marc ?

Cordialement,

[awa123]

oui je l'ai conservé son code ,
il est parfait , il me dit exactement les coordonnées (le numéro de la colonne) du minimum sur chaque ligne

Thanks