Valeur en fonction de plusieurs critères

[natorp]

Bjr à toutes et tous

Pour faire des stats j'aimerais inscrire de façon automatique dans une cellule de la feuille "Récap 5", en fct du résultat de la feuille "5 joueurs", un "P" pour positif ou "N" pour négatif

Merci de votre aide, cordialement, Gérard

 

[BOISGONTIER]

Re : Valeur en fonction de plusieurs critères

Bonjour,

Private Sub Worksheet_Activate()
  Set f = Sheets("5 joueurs")
  ligne = 2
  For Each c In f.Comments
    adr = c.Parent.Address
    Cells(ligne, 1) = f.Cells(Range(adr).Row, 1)
    Cells(ligne, 2) = f.Cells(1, Range(adr).Column)
'    Cells(ligne, 3) = f.Range(adr)
    temp = c.Text
    Cells(ligne, 3) = Mid(temp, InStr(temp, ":") + 1)
    Cells(ligne, "d") = IIf(f.Range(adr).Value > 0, "p", "n")
    ligne = ligne + 1
  Next c
End Sub

JB

 

[natorp]

Re : Valeur en fonction de plusieurs critères

Merci Jb

A priori la ligne ajoutée teste la valeur de la cellule là où il y a un commentaire ?
Or il faut tester la valeur de la cellule en colonne L

Cordialement, Gérard

 

[job75]

Re : Valeur en fonction de plusieurs critères

Bonjour Gérard, JB,

Or il faut tester la valeur de la cellule en colonne L

Alors pourquoi pas :

Cells(ligne, 4) = IIf(f.Cells(f.Range(adr).Row, "L") > 0, "P", "N")

A+

 

[natorp]

Re : Valeur en fonction de plusieurs critères

Impecc' Job

Merci Job et JB

Bonne journée, Gérard