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

 

[Chasse]

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]

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]

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]

Libre à vous mais c'est dommage.

 

[Modeste geedee]

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]

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

 

[job75]

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]

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]

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]

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]

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]

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, @+

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