Discussion :

[leonardoleonardo]

Bonjour la communauté, je suis tout nouveau et d'un domaine un peu loin de la programmation (ingenerie mécanique),bref , ma demande est la suivante: recupérer la "norme" à partir de la source , chercher s'il existe dans "piste" dans la cible, si oui récuperer sa valeur minimale (il peut etre une seule ou plusieurs et c'est là ou je me bloque) sinon passer à l'autre "norme" et ainsi de suite.

sûr de votre collaborartion et compréhension!

[unparia]

Bonjour
Deux questions :
1) tu es ici dans la section "Macros et VBA Excel". Cela veut-il dire que tu souhaites une solution VBA ?
2) Si choix par VBA --->> ton image montre des données "Piste" triées. Est-ce systématiquement le cas ?

[leonardoleonardo]

Bonsoir unparia,

tout d'abord merci pour l'interêt,

deux bonne questions,

1- oui SVP je cherche une solution VBA excel (j'ai essayé de postrer dans l'endroit approprié qui est VBA pour excel mais j'ai oublié de le mentionner)
2- oui par hypothése je considère que les valeurs de ma colonne "piste" sont systémetiquement triées, la macro va les exploiter du coup dans l'ordre!

merci d'avance pour votre Retour.

[unparia]

Je te propose ceci, en admettant que ton image commence à la colonne B et que tes données commencent en ligne 2. Si tel n'est pas le cas, --->> adapte
1) supprime de la colonne B tout ce qui n'est pas une valeur de piste (ta colonne B ne doit avoir que ces valeurs et son entête)
2) supprime de la colonne E tout ce qui n'est pas une "norme" (ta colonne E ne doit avoir que ces valeurs et son entête)

code :

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
 
 Dim plage_pistes As Range, plage_norms As Range, groupe As Range, ou As Range, DL As Long, v As Range
  DL = Range("B" & Rows.Count).End(xlUp).Row
  Set plage_pistes = Range("B2:B" & DL)
  DL = Range("E" & Rows.Count).End(xlUp).Row
  Set plage_norms = Range("E2:E" & DL)
  For Each v In plage_norms.Cells
    Set ou = plage_pistes.Find(v.Value)
    If Not ou Is Nothing Then
        Set groupe = ou
        Do While ou.Offset(1).Value = v.Value
          Set groupe = Application.Union(groupe, ou.Offset(1))
          Set ou = ou.Offset(1)
        Loop
        v.Offset(0, 1) = WorksheetFunction.Min(groupe.Offset(0, 1))
    Else
        v.Offset(0, 1).Value = 0
    End If
  Next

cela devrait "faire" en VBA (puisque tu souhaites du VBA et non des formules) ce que tu cherches à faire

[patricktoulon]

Bonjour j' ai tenté une approche avec colonne d:e vide au depart
mais il semble y avoir un soucis avec les nombre

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
Option Explicit
Sub test2()
    Dim PA As Range, newc As Range, n#, x$, cel As Range
    With ActiveSheet
         .Range("D2", .Cells(Rows.Count, "D")).Clear
        Set PA = .Range("A2", .Cells(Rows.Count, 1).End(xlUp))
        x = ""
         For Each cel In PA.Cells
            If cel.Value <> x Then
               n = 100000000
        ' récupération des normes sans doublons dans "D"
                Set newc = .Cells(Rows.Count, "D").End(xlUp).Offset(1)    'first cellule dispo dans"D"
                cel.Copy Destination:=newc: x = cel.Value    'copie de la norme dans newc
                'recuperation de la valeur min
                If Val(cel.Offset(0, 1).Value) < n Then newc.Offset(0, 1) = cel.Offset(0, 1).Value: n = cel.Offset(0, 1).Value
            End If
        Next
    End With
End Sub

[OrDonc]

Bonjour
ton image me laisse penser que tu utilises l'outil Tableau. Si c'est le cas, la syntaxe VBA pourra être simple.
Avec Le tableau cible nommé Pistes et le tableau source nommé Normes, un exemple de macro (adaptée de celle de unparia -merci - serait

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
Sub mini()
  Dim R As Range, C As Range, plage As Range
  [Normes[Mini]] = 0
  For Each R In [Normes[norme]]      'première colonne titrée normee du tableau Normes
    Set C = [Pistes[Piste]].Find(R)  'première colonne du titrée Piste du tableau Pistes
    If Not C Is Nothing Then
      Set plage = C
      Do While C(2, 1) = R
        Set plage = Union(plage, C(2, 1))
        Set C = C(2, 1)
      Loop
      R(1, 2) = Application.Min(plage(1, 2))
    End If
  Next
End Sub

Patrick : problème avec les négatifs, le minimum a la plus grande valeur absolue, non ?

Nota : j'en profite pour montrer que l'on peut, pour le décalage, oublier le "Offset" ; C.Offset(x,y) peut être remplacé par C(x+1,y+1)