formule simple pour extraire

[coulou]

Bonjour à vous tous qui former ce superbe forum
voilà je voudrais si possible une petite formule assez simple pour extraire ce tableau qui est dans ce fichier
j'aimerais remplacer les zéros par des 10 voilà
merci encore
Coulou

 

[Guest]

Re : formule simple pour extraire

Bonjour coulou,

quels 0 dans quelles données.

Sinon, Edition/Remplacer (ou CTRL-H) Rechercher 0 Remplacer par 10
Après sélection d'une plage de cellule

Si ce sont plusieurs 0 consécutifs: rechercher 00 remplacer par 10

A bientôt

 

[Kotov]

Re : formule simple pour extraire

Bonsoir Coulou, Hasco, le forum

Voici une réponse en VBA.
Je te joins le code et ton fichier modifié.
Il te suffit d'appuyer une fois sur le bouton gris

Avec une simple fonction de remplacement, on remplace tous les zéros du fichiers, ce qui à mon avis, ne te convient pas.
Si j'ai bien deviné, tu ne veux pas enlever tous les zéros, mais uniquement les zéros devant les "a" ou "m" (en fait les courses où le cheval n'a pas été classé dans les 9 premiers).

Désolé pour la formule simple,ta demande étant plus complexe qu'il n'y parait de prime abord

Private Sub ModifZero()
Dim n& 'Dernière ligne utile
Dim r& 'Ligne
Const c& = 22 'Colonne V
Const l& = 14 'ligne 14, 1er cheval
Dim i&
Dim Ch$
Dim NbCar$

n = Cells(65536, c).End(3).Row

For r = l To n
Ch = Cells(r, c).Value
    NbCar = Len(Ch)
    For i = 1 To NbCar
        If Mid(Ch, i, 1) = "0" Then
            If (Mid(Ch, i + 1, 1) = "a" Or Mid(Ch, i + 1, 1) = "m") Then
                Ch = Application.WorksheetFunction.Replace(Arg1:=Ch, Arg2:=i, Arg3:=2, Arg4:="10" & Mid(Ch, i + 1, 1))
                i = i + 2
            End If
        End If
    Next i
Cells(r, c) = Ch
Next r
End Sub

Sub Modif_Clic()
ModifZero
End Sub

Bonne soirée et ... bons gains aux courses !

Kotov

 

[coulou]

Re : formule simple pour extraire

Merci à tous ceux qui veulent bien m'aider je sais que tous et toutes ont repris le travail et ce n'est pas toujours facile pour assouvir sa passion aider les autres comme vous savez le faire sur ce forum mais j'ai un peu d'espoir et puis tant si ce n'est pas possible il n'y a pas mort d'homme
Voilà je voulais une formule simple pour extraire mais comme je me suis mal explicité je mets un fichier avec un exemple de mes extractions souhaités.
merci a tout le forum pour leur patience.