Bonjour,
J'ai besoin de votre aide pour mettre à jour le code ci-dessous pour l'incrémentation de mes numéros de réclamations. Pour 2009, ils étaient sous la forme (initiale prénom + initiale nom + espace + 1) mais pour 2010, j'aimerai qu'il soit (initiale prénom + initiale nom + 10- + 1)
Merci pour aide à tous
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Private Sub UserForm_Initialize() num = Split(Range("A65536").End(xlUp).Offset(0, 1).Value, " ")(1) NdeReclam = Left(Trim(EnregPar), 1) & Mid(Trim(EnregPar, 1), InStr(Trim(EnregPar), " ") + 1, 1) & " " & num + 1
Partager