TRIER ENLEVER VENTILER

Danielle Odette

XLDnaute Occasionnel
Bonjour à tous ,

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

merci d'avance cordialement

Danielle
 

Pièces jointes

  • TRIER ENLEVER VENTILER.xlsx
    11 KB · Affichages: 10

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+
 

Pièces jointes

  • TRIER ENLEVER VENTILER(1).xlsm
    25.5 KB · Affichages: 8

Danielle Odette

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
 

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof