Renommer les doublons

[Tickaff]

Bonjour, je souhaiterai une aide sur mon script.
J'ai besoin de créer des copies d'une feuilleen les nommants dans mon classeur grâce une plage de données.
Mais dans cette plage, j'ai des doublons et je souhaite les garder et les renommer en ajoutant un numéro après la valeur des cellules.
Merci de votre aide en avance


Private Sub CommandButton1_Click()

Dim ws2 As Worksheet
Dim ws1 As Worksheet

Set ws1 = Sheets("Base SDdP")
Set ws2 = Sheets("Bordereau")




For Each cell In ws1.Range("B18", ws1.Range("B18").End(xlDown))


ws2.Copy After:=Worksheets(Sheets.Count)
On Error Resume Next
ActiveSheet.Name = cell


For i = 1 To 1

Next

If ActiveSheet.Name = cell = 0 Then ActiveSheet.Name = cell & "-" & i
If ActiveSheet.Name = cell & "-" & i Then ActiveSheet.Name = cell & "-" & i + 1

ActiveSheet.Range("C10") = cell.Value
ActiveSheet.Range("C8") = cell.Offset(0, 1).Value
ActiveSheet.Range("G3") = UserForm2.TextBox1.Value
ActiveSheet.Range("G4") = UserForm2.TextBox2.Value
ActiveSheet.Range("G5") = UserForm2.TextBox3.Value
ActiveSheet.Range("J8") = UserForm2.TextBox4.Value
ActiveSheet.Range("G10") = UserForm2.TextBox5.Value

On Error GoTo 0


Next cell



End Sub

 

[mapomme]

Bonjour @Tickaff

Il manque un bidule essentiel qui n'est pas joint à votre question: le classeur excel

A+

 

[mapomme]

Re,

Il faudrait aussi indiquer votre version d'Excel dans votre profil (c'est prévu)

Les solutions sont susceptibles de varier selon les versions.

 

[Tickaff]

Re,



Les solutions sont susceptibles de varier selon les versions.

Bonjour mapomme,

j'envoie le fichier.

Le script sera dans le dossier feuilles dans le devellopeur et c'est le userform2 et c'est la commansButton1.

merci