TRIER ENLEVER VENTILER

job75

XLDnaute Barbatruc
Bonjour Guillouche Danielle,

Voyez le fichier .xlsm joint et les formules en K5 et M5 avec cette fonction VBA :
VB:
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+
 

Fichiers joints

Guillouche Danielle

XLDnaute Occasionnel
Bonjour Guillouche Danielle,

Voyez le fichier .xlsm joint et les formules en K5 et M5 avec cette fonction VBA :
VB:
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
 

Guillouche Danielle

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

Discussions similaires


Haut Bas