Microsoft 365 supprimer espace

[Chasse]

Bonjour le forum Dans la colonne B les données telles que je les récupère: format 1'08''23 (+0''10) le 9iem car est un espace que dans un 1er temps j'aimerais supprimer ainsi que les suivant ne garder que les 8 car du début format: 1'08''13 avec ce code Sub cal6() fin = Cells(Rows.Count, 2).End(xlUp).Row For n = 2 To fin sup = Split(Cells(n, 2), "(") If UBound(sup) > 0 Then Cells(n, 2) = Trim(sup(0)) End If t = Split(Cells(n, 2), "''") If UBound(t) > 0 Then Cells(n, 3) = (Replace(t(1), "''", "")) End If t = Split(Cells(n, 2), "''") If UBound(t) > 0 Then Cells(n, 2) = Trim(t(0)) Cells(n, 2) = "00:" & (Replace(Cells(n, 2), "'", ":")) End If Next End Sub

j'ai pu supprimer les car qui suive mais l'espace reste toujours

la suite du code sépare les centièmes dans la colonne C "l'espace est toujours là" et met le reste de la chaine au format MM:SS Comment supprimer cet espace qui me prend la tête Merci de votre aide

 

[job75]

Mais je n'est aucun résultat

Vous avez dû mal tester.

Mais bon, c'est mieux avec le classement en colonne A, voyez le fichier joint :

Sub Conversion()
Dim tablo, i&, x$, s, ub%
With Sheets("Données brut").[A1].CurrentRegion.Columns(2).Resize(, 2)
    tablo = .Value
    For i = 2 To UBound(tablo)
        x = tablo(i, 1)
        s = Split(x, "''")
        If UBound(s) > 0 Then
            tablo(i, 2) = Val(s(1))
            x = s(0)
            s = Split(x, "'")
            ub = UBound(s)
            If ub = 0 Then tablo(i, 1) = Val(s(0)) / 86400
            If ub > 0 Then tablo(i, 1) = Val(s(0)) / 1440 + Val(s(1)) / 86400
        End If
    Next
    '---restitution et classement---
    Application.ScreenUpdating = False
    .Columns(1).NumberFormat = "mm:ss"
    .Columns(2).NumberFormat = "00"
    .Value = tablo
    .Sort .Columns(1), xlAscending, .Columns(2), , xlAscending, Header:=xlYes 'tri sur les 2 colonnes B et C
    If .Rows.Count > 1 Then .Cells(2, 0).Resize(.Rows.Count - 1) = "=IF(8640000*B2+C2>8640000*N(B1)+N(C1),ROW()-1,A1)" 'classement
End With
End Sub

Le classement tient compte des ex-aequo.

 

[Chasse]

Ok merci ça fonctionne
encore 1 questions SVP

je ne comprend pas tous dans cette formule "=IF(8640000*B2+C2>8640000*N(B1)+N(C1),ROW()-1,A1)"
pouvez vous me l'expliquer

Merci

 

[job75]

La fonction SI donne 2 résultats de classement selon que le temps est supérieur ou égal au temps précédent.

La ligne 1 contient des textes d'où la fonction N qui renvoie zéro sur cette ligne.

 

[Chasse]

La fonction SI donne 2 résultats de classement selon que le temps est supérieur ou égal au temps précédent.

 

[Chasse]

A quoi correspond "8640000" et *N"
pour le classement j'avais cette formule =SI(J2="";"";SI(ET(K2=K1;L2=L1);N1;LIGNE(1:1)))
Encore Merci et bonne fin de soirée

 

[job75]

Dans une journée il y a 8640000 centièmes de seconde, pour N j'ai répondu.

Bonne nuit.

 

[Modeste geedee]

Bonsour®

Bonjour Yeahou

je n'y comprends rien? autant de lignes de code pour supprimer un espace
Mais ça fonctionne.

je vous tire mon ​

et un grand MERCI​

même sans aucune ligne de code ça fonctionne aussi !!!

 

[job75]

Bonjour le forum,

Bah où avais-je la tête, inutile de calculer les temps, fichier (2) :

If .Rows.Count > 1 Then .Cells(2, 0).Resize(.Rows.Count - 1) = "=IF((B1=B2)*(C1=C2),A1,ROW()-1)" 'classement

A+

 

[job75]

Bonjour Modeste geedee,

Teste ta formule avec 59''71 (+0''52) comme demandé au poste #13, elle ne fonctionne pas.

Par contre cette formule en C2 fonctionne, fichier (3) :

=--SUBSTITUE("0:"&SUBSTITUE(GAUCHE(B2;TROUVE("''";B2)+3);"''";STXT(1/10;2;1));"'";":")

Fonctionne même si les minutes en colonne B sont à 2 chiffres.

Fonctionne quel que soit le séparateur décimal de l'ordi grâce à STXT(1/10;2;1).

A+

 

[Chasse]

Bonjour le Forum, job75,Modeste geedee,
Avec cette formule je ne peux plus additionner les temps des deux manche
voici la suite de la macro

Sub Addition()
Dim fin&, i&, col2&, lot&, v&
        col2 = Range("j" & Rows.Count).End(xlUp).Row
        fin = Range("c" & Rows.Count).End(xlUp).Row
    For i = 2 To col2
        For v = 2 To fin
            If Cells(i, 10) = Cells(v, 3) Then
            If Cells(i, 10) = Cells(v, 3) And Cells(i, 12) + Cells(v, 5) >= 100 Then
               Cells(i, 12) = Cells(i, 12) + Cells(v, 5) - 100
                Cells(i, 11) = Cells(i, 11) + Cells(v, 4) + TimeValue("00:00:01")
                Cells(i, 11) = Round(Cells(i, 11), 10)
                Exit For
                Else
              Cells(i, 12) = Cells(i, 12) + Cells(v, 5)
                 Cells(i, 11) = Round(Cells(i, 11) + Cells(v, 4), 10)
                Exit For
                End If
        
            End If
            Next
            Next
Range(Cells(1, 8), Cells(Cells(Rows.Count, 12).End(xlUp).Row, 12)).Sort _
key1:=Range("K1"), order1:=xlAscending, dataoption1:=xlSortNormal, _
key2:=Range("L1"), order2:=xlAscending, dataoption2:=xlSortNormal, Header:=xlYes

End Sub

Merci pour vos subjections

 

[job75]

voici la suite de la macro

Quelle macro et quel fichier ?

Et ma solution par formule du post #24 ne vous intéresse pas ?

 

[Chasse]

Quelle macro et quel fichier ?

Ci joint fichier avec macro

Et ma solution par formule du post #24 ne vous intéresse pas ?

Elle ne me convient pas

Merci A+

 

[job75]

Et ma solution par formule du post #24 ne vous intéresse pas ?

Elle ne me convient pas

Vous avez diablement tord car c'est extrêmement simple, ci-joint votre dernier fichier adapté sans macro.

 

[Chasse]

La formule =RECHERCHEV(G3;B;3;0)+I3 me renvoie une erreur ?

 

[job75]

En regardant attentivement l'image de votre post #29 je constate que les valeurs des colonnes des temps D et I sont cadrées à gauche, ce seraient donc des textes et pas des nombres ???

Qu'avez-vous donc fait avec les formules de ces colonnes ? Vous avez supprimé les -- sans comprendre qu'ils sont indispensables ?

Je vois aussi que sur votre ordi c'est le point qui est le séparateur décimal mais normalement cela ne doit pas poser de problème.