Salut le forum

Que représente ton
Tu dois définir la plage dans Formule > Définir un nom


Mytå

 Salut le forum

Je ne vois pas comment tu fais pour avoir 9 pts avec le No.12

Tes résultats ne reflète pas la réalité . . . 

Merci d'être plus explicite dans ta demande.

Mytå

 Salut le forum

Zéro est une valeur numérique, pas besoin de guillemets

=SI(C5="D";10;SI(C5=0;10;SI(C5="T";10;SI(C5="A";10;CNUM(C5)))))

Mytå

 Salut le forum

Si le fichier, même compressé en .zip est trop gros.

Re le forum

Fichier en pièce jointe

Mytå 

 Salut le forum

La seule erreur est la course #3
3.WALHBERG
Performances (10) 1h

Le code

Sub RecupValeurs()
Dim FSource As Worksheet, FCible As Worksheet
Dim LigneSourceEnCours As Long, LigneCibleEnCours As Long
Dim V As Variant, TabTemp As Variant
Dim Col As Byte

    Set FSource = Sheets("Partants")
    Set FCible = Sheets("CalculValeur")
    LigneSourceEnCours = 16
    LigneCibleEnCours = 2
    FCible.Range("B2:L21").ClearContents
    Do
   
        V = FSource.Cells(LigneSourceEnCours, 2).Value
        FCible.Cells(LigneCibleEnCours, 2) = IIf(Val(V) > 0, V, 0)
        V = FSource.Cells(LigneSourceEnCours + 1, 2).Value
        FCible.Cells(LigneCibleEnCours, 3) = IIf(Val(V) > 0, V, 0)
        V = FSource.Cells(LigneSourceEnCours + 2, 2).Value
        FCible.Cells(LigneCibleEnCours, 4) = IIf(Val(V) > 0, V, 0)
       
        V = FSource.Cells(LigneSourceEnCours + 7, 2).Value
        If Val(V) > 0 Then FCible.Cells(LigneCibleEnCours, 5) = V
        V = FSource.Cells(LigneSourceEnCours + 4, 2).Value
        If Val(V) > 0 Then FCible.Cells(LigneCibleEnCours, 6) = V

        'Musique !
        V = Sans_Parenthese(FSource.Cells(LigneSourceEnCours + 3, 2).Text)
        TabTemp = Split(V, " ")
        For Col = 0 To Application.Min(UBound(TabTemp) - 1, 5)  'les 6 premières courses seulement
            With FCible.Cells(LigneCibleEnCours, Col + 7)
                .Value = Left(TabTemp(Col), 1)
                 .HorizontalAlignment = xlCenter
            End With
        Next Col
       
        'On passe au cheval suivant
        LigneSourceEnCours = LigneSourceEnCours + 23
        LigneCibleEnCours = LigneCibleEnCours + 1
       
    Loop Until FSource.Cells(LigneSourceEnCours, 2) = ""
End Sub

Function Sans_Parenthese(V As String) As String
Dim I As Byte
Dim Tablo
 
  Tablo = Array("(07)", "(08)", "(09)", "(10)")
     
  For I = 0 To UBound(Tablo)
    V = Replace(V, Tablo(I), "")
  Next I
 
Sans_Parenthese = Application.WorksheetFunction.Trim(V)

End Function

Mytå   

Salut le forum

Possible à faire mais pas une bonne idée !!!

Excel est un logiciel de calcul pas un arbre de Noel !

Voila quand même un bout code

'faire clignoter la cellule active un certain nombre de fois puis arrêter

'procédure à appeler dans le code
Sub InitFlash()
  'lance un clignotement toutes les secondes
  Application.OnTime Now + TimeValue("00:00:01"), "Flash"
End Sub


Sub Flash()
Static i
 
  i = i + 1
 
  'le clignotement
  If ActiveCell.Interior.ColorIndex = 6 Then
    ActiveCell.Interior.ColorIndex = 3 'fond rouge
    ActiveCell.Font.ColorIndex = 6 'caractères en jaune
  Else
    ActiveCell.Interior.ColorIndex = 6 'fond jaune
    ActiveCell.Font.ColorIndex = 3 'caractères en rouge
  End If
 
  'tant que le nombre de clignotements choisi n'est pas atteint
  '(ici 5) on continue
  If i <= 5 Then
    Application.OnTime Now + TimeValue("00:00:01"), "Flash"
  Else
    'sinon, on revient à la mise ne forme par défaut d'Excel
    'et on arrête tout
    ActiveCell.Interior.ColorIndex = xlNone 'fond incolore
    ActiveCell.Font.ColorIndex = 1 'caractères en noir
    i = 0
  End If
End Sub

Mytå

 Re le forum

Tu colles ma fonction dans un module et dans ton programme

V=Sans_Parenthese(FSource.Cells(LigneSourceEnCours + 3, 2).Text)

Mytå

Salut le forum

Utilise une fonction

Mytå

 Salut le forum

!!! Fichier non accessible !!!

Mytå