Bjr,
J'ai un prob avec un code VBA suivant:
With Sheets('Saisie individuel').Range('C2')
If InStr(1, .Value, ' ') < 1 Then Exit Sub
Nom = Left(.Value, InStr(1, .Value, ' ') + 1)
Nom = Application.WorksheetFunction.Proper(Nom)
End With
étant débutant dans le VBA, je n'arrive pas à insérer le symbole '.'
après la 1ère lettre du prénom, car l'intitulé de mon onglet est du type 'Dupont J.'
Merci de votre aide
bye
J'ai un prob avec un code VBA suivant:
With Sheets('Saisie individuel').Range('C2')
If InStr(1, .Value, ' ') < 1 Then Exit Sub
Nom = Left(.Value, InStr(1, .Value, ' ') + 1)
Nom = Application.WorksheetFunction.Proper(Nom)
End With
étant débutant dans le VBA, je n'arrive pas à insérer le symbole '.'
après la 1ère lettre du prénom, car l'intitulé de mon onglet est du type 'Dupont J.'
Merci de votre aide
bye