Besoin d'aide pour MAJ code

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)

Code:

---

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

---

Merci pour aide à tous
:D

Salut,
D'après ce que tu dis, la seule différence est le " " qui devient "10-" donc

Code:

---

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) & "10-" & num + 1

---

A+

Merci mais j'ai déjà testé cela et cela ne fonctionne que pour la seconde réclamation mais dès que j'en crée une autre, ça plante (déboggage)

Voici mon fichier pour tester : http://cjoint.com/?bmsGKPbMyI

Merci

Salut,
J'ai regardé ton fichier, j'ai pas bien compris pourquoi la colonne A...

Je suis parti du principe que le numéro s'incrémente quelque soit les initiales, je veux dire si MG10-1, alors JD10-2 et MG10-3 (si ce n'est pas ça il faut m'expliquer ce que tu as essayé de faire avec ton code)

Sur base de ce principe j'ai changer la manière de récupérer le numéro (via le numéro de ligne)

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Initialize() num = Range("B65536").End(xlUp).Row - 1 NdeReclam = Left(Trim(EnregPar), 1) & Mid(Trim(EnregPar), InStr(Trim(EnregPar), " ") + 1, 1) & "10-" & num + 1 DateReclam = Now DateReclam = Format(DateReclam, "dd/mm/yyyy") HeureReclam = Now HeureReclam = Format(HeureReclam, "hh:mm") End Sub

---

A+

Génial, ça fonctionne :ccool:

Merci