Autres Formule

[ALEA()]

Bonjour,

Je souhaiterais une formule (excel 2007) pour me renvoyer en ligne 1, les 4 valeurs ayant NB max dans les colonnes?

Je donne un exemple simple.

Bonne soirée

 

[WTF]

Bonjour Alea,
En PJ une proposition combinant les formules index, equiv et max

 

[soan]

Bonjour ALEA(), WTF,

ton fichier en retour ; fais Ctrl e ➯ c'est fait ! 🙂

Sub Essai()
  Dim plg As Range, cel As Range, nlm&
  Dim col As Byte, k As Byte, dlg&, lig&, vx%
  nlm = Rows.Count: Application.ScreenUpdating = 0
  For col = 25 To 40 Step 5
    dlg = Cells(nlm, col).End(3).Row
    If dlg > 8 Then
      Set plg = Cells(9, col).Resize(dlg - 8)
      vx = WorksheetFunction.Max(plg)
      Set cel = plg.Find(vx, , -4163, 1, 1)
      k = col - 3
      Cells(1, k) = Cells(cel.Row, k)
    End If
  Next col
End Sub

soan

 

[ALEA()]

Bonjour,
Merci pour vos 2 solutions. C'est parfait !

Bon am

 

[soan]

@ALEA()

as-tu remarqué que mon code VBA s'adapte automatiquement à la longueur des colonnes ? donc tu peux ajouter d'autres données pour chaque colonne : elles seront prises en compte. 😊​

soan