Renommer les doublons

Tickaff

XLDnaute Nouveau
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
 

Discussions similaires

Réponses
11
Affichages
236
Réponses
1
Affichages
119
Réponses
0
Affichages
83