TRIER ENLEVER VENTILER

[Danielle Odette]

Bonjour à tous ,

En pièce jointe expliqué trier enlever ventiler si possible enregistrer

merci d'avance cordialement

Danielle

 

[job75]

Bonjour Guillouche Danielle,

Voyez le fichier .xlsm joint et les formules en K5 et M5 avec cette fonction VBA :

Function Premiers$(t$, n As Byte)
Dim s, i%, j%
t = Application.Trim(Replace(t, Chr(160), "")) 'caractères de code 160 et SUPPRESPACE
s = Split(t)
For i = 0 To UBound(s)
    j = j + 1
    If Left(s(i), 1) = "(" Then i = i + 1
    Premiers = Premiers & " " & s(i)
    If j = n Then Exit For
Next
Premiers = LTrim(Premiers)
End Function

A+

 

[Danielle Odette]

Bonjour Guillouche Danielle,

Voyez le fichier .xlsm joint et les formules en K5 et M5 avec cette fonction VBA :

Function Premiers$(t$, n As Byte)
Dim s, i%, j%
t = Application.Trim(Replace(t, Chr(160), "")) 'caractères de code 160 et SUPPRESPACE
s = Split(t)
For i = 0 To UBound(s)
    j = j + 1
    If Left(s(i), 1) = "(" Then i = i + 1
    Premiers = Premiers & " " & s(i)
    If j = n Then Exit For
Next
Premiers = LTrim(Premiers)
End Function

A+

Bonjour job75 et le forum ,

Merci super ça fonctionne nickel

Merveilleuse journée à vous

cordialement Danielle

 

[Efgé]

Bonjour Guillouche Danielle, Salut Job75
Par formules, une pour les heures et une pour les extractions.

Cordialement

 

[Danielle Odette]

Bonjour Guillouche Danielle, Salut Job75
Par formules, une pour les heures et une pour les extractions.

Cordialement

Bonjour Efgé et le forum ,

Merci beaucoup du travail et du temps que vous consacré incroyable le temps gagné

vous êtes des As d'excel beau travail

Merci beaucoup à vous et job75

cordialement

Passer une merveilleuse journée

Danielle