Microsoft 365 supprimer espace

Chasse

XLDnaute Occasionnel
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
 

Pièces jointes

  • Supp espace.xlsm
    20.1 KB · Affichages: 45
Solution
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...

job75

XLDnaute Barbatruc
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

XLDnaute Occasionnel
Bonsoir- Bonjour
il doit me manque un complément Excel mais lequel
Capture.PNG
 

Chasse

XLDnaute Occasionnel
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 ???
Capture.PNG


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

XLDnaute Barbatruc
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 ... :mad:
="0:0:01"*SUBSTITUE(GAUCHE(L2;6);"''";".")
 

job75

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

Pièces jointes

  • Supp espace - Copie.xlsm
    20.2 KB · Affichages: 1
Dernière édition:

Discussions similaires

Réponses
12
Affichages
537
Réponses
3
Affichages
274

Statistiques des forums

Discussions
311 725
Messages
2 081 944
Membres
101 849
dernier inscrit
florentMIG