Microsoft 365 supprimer espace

Chasse · 22 Mars 2021

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

VB:

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 · 13 Avril 2021

Chasse à dit:
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 :

VB:

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...

Chasse · 14 Avril 2021

sans les --= 0:1:09.26

avec les -- me renvoie #VALEUR!

en faisant la somme des deux temps =D3+H3 que j'ai l'erreur format des cellules mm:ss.00

job75 · 14 Avril 2021

Sans les -- vous obtenez des temps qui sont des textes et donc forcément vous avez des erreurs.

Je ne vois pas pourquoi vous avez une erreur avec les --.

Normalement vous ne devez rien modifier dans le fichier de mon post #28.

Bien sûr la formule en K3 ne peut pas être =D3+H3 !!!

Chasse · 14 Avril 2021

Merci job75 de ne pas perdre patience, mais
je vais garder la solution du poste #16 qui correspond le mieux a ce que je cherche a faire

Cordialement

job75 · 14 Avril 2021

Libre à vous mais c'est dommage.

Modeste geedee · 15 Avril 2021

Chasse à dit:
sans les --= 0:1:09.26

avec les -- me renvoie #VALEUR!

en faisant la somme des deux temps =D3+H3 que j'ai l'erreur format des cellules mm:ss.00

sans macro !!!

Chasse · 15 Avril 2021

Bonsoir- Bonjour
il doit me manque un complément Excel mais lequel

job75 · 16 Avril 2021

Bonjour le forum,

@Modeste geedee tes solutions posts #22 et #35 ne fonctionnent pas si le séparateur décimal est le point.

Utilise STXT(1/10;2;1) comme je l'ai fait.

A+

Modeste geedee · 16 Avril 2021

job75 à dit:
Bonjour le forum,

@Modeste geedee tes solutions posts #22 et #35 ne fonctionnent pas si le séparateur décimal est le point.

Utilise STXT(1/10;2;1) comme je l'ai fait.

A+

de toute façon le demandeur ignore le B.A.BA des feuilles de calculs...
infoutu de comprendre une proc...

alors nos subtilités ...

Chasse · 16 Avril 2021

Monsieur Modeste

Je suis certainement ignorant et c’est pour ça que je fais appel à ce Forum

Mais quand j’ouvre un de vos fichier que vous mettez en pièces joint et qu’il s’affiche avec toutes ses erreurs ???

J’avais espéré que vous auriez eu la Modestie de m’expliquer comment l’ouvrir sans ces erreurs, comment les corriger, ou quel est l’option que je n’est pas activé

Un infoutu qui vous salut.

Modeste geedee · 16 Avril 2021

Chasse à dit:
Monsieur Modeste

Je suis certainement ignorant et c’est pour ça que je fais appel à ce Forum

Mais quand j’ouvre un de vos fichier que vous mettez en pièces joint et qu’il s’affiche avec toutes ses erreurs ??? Regarde la pièce jointe 1102452

J’avais espéré que vous auriez eu la Modestie de m’expliquer comment l’ouvrir sans ces erreurs, comment les corriger, ou quel est l’option que je n’est pas activé

Un infoutu qui vous salut.

Job75 à fourni l'explication !

votre séparateur décimal est le point !!!!!
mais vous ne l'avez pas précisé
A vous d'adapter ...
="0:0:01"*SUBSTITUE(GAUCHE(L2;6);"''";".")

job75 · 16 Avril 2021

Oui Modeste geedee mais il y a probablement autre chose puisque mes formules ne vont pas chez lui alors qu'elles sont sensées fonctionner quel que soit le séparateur décimal.

Ceci dit c'est à Chasse de voir quel est le problème puisque chez nous il n'y en a pas.

Bernard_XLD · 18 Avril 2021

Bonjour Chasse, Job75 Modeste Geedee, le forum

@Chasse , désolé de ne te répondre que maintenant, j'ai été très occupé ces derniers jours. Puisqu'il te convenait, j'ai adapté le code du poste 7 pour gérer ton problème.

Bonne journée.
Bien cordialement, @+

VB:

Sub Test_cal6_3()
    Dim Tableau_en_Cours, Range_en_Cours As Range, Compteur& 'définition des variables
    Set Range_en_Cours = Range("B2:C" & Cells(Rows.Count, 2).End(xlUp).Row) 'référencement du tableau final des cellules sur deux colonnes
    Tableau_en_Cours = Range_en_Cours.Value 'création du tableau Vb en mémoire
    For Compteur = LBound(Tableau_en_Cours, 1) To UBound(Tableau_en_Cours, 1) 'boucle sur toutes les lignes du tableau
        Tableau_en_Cours(Compteur, 1) = Trim(Tableau_en_Cours(Compteur, 1)) 'suppression des espaces avant après en colonne 1
        If InStr(1, Tableau_en_Cours(Compteur, 1), "(") > 0 Then
            Tableau_en_Cours(Compteur, 2) = Right(Tableau_en_Cours(Compteur, 1), Len(Tableau_en_Cours(Compteur, 1)) - (InStr(1, Tableau_en_Cours(Compteur, 1), "(") + 1))
            Tableau_en_Cours(Compteur, 2) = Left(Tableau_en_Cours(Compteur, 2), Len(Tableau_en_Cours(Compteur, 2)) - 1)
            Tableau_en_Cours(Compteur, 2) = (Left(Tableau_en_Cours(Compteur, 2), InStr(1, Tableau_en_Cours(Compteur, 2), "''") - 1) * 100) + Right(Tableau_en_Cours(Compteur, 2), 2) 'convertit en centièmes de secondes
        End If
        Tableau_en_Cours(Compteur, 1) = Replace(Left(Tableau_en_Cours(Compteur, 1), InStr(1, Tableau_en_Cours(Compteur, 1), "''") - 1), "''", ":") ' extrait les minutes secondes et remplaces '' par :
        If InStr(1, Tableau_en_Cours(Compteur, 1), "'") = 0 Then 'teste la présence du séparateur ' et adapte le traitement
            Tableau_en_Cours(Compteur, 1) = "00:00:" & Tableau_en_Cours(Compteur, 1)
        Else
            Tableau_en_Cours(Compteur, 1) = "00:" & Replace(Tableau_en_Cours(Compteur, 1), "'", ":")
        End If
    Next Compteur
    Range_en_Cours.Value = Tableau_en_Cours    'on écrase les valeurs des cellules avec les valeurs du tableau
    Columns(2).NumberFormat = "MM:SS"
    Columns(3).NumberFormat = "00"
End Sub

Microsoft 365 supprimer espace

Chasse

XLDnaute Occasionnel

Pièces jointes

job75

Chasse

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Chasse

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

Pièces jointes

Chasse

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

Chasse

XLDnaute Occasionnel

Modeste geedee

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

Pièces jointes

Discussions similaires