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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas