Bonjour,
je cherche vainement à faire fonctionner ma macro me permettant de changer le nom de certains onglets d'un classeur excel suivant une liste établie dans une feuille "saisie" mais en cherchant les doublons.
Ma méthode doit fonctionner mais je ne sais pas où ca bug.
Pouvez-vous m'aider?
Merci!
Ci-dessous, le code et en pièce jointe mon fichier:
Sub NomFeuille()
Dim j, k As Integer
On Error Resume Next
For j = 1 To 32
If Not IsEmpty(Sheets("Saisie").Range("B" & j + 2)) Then
For k = j To 31
If Sheets("Saisie").Range("B" & j + 2) = Sheets("Saisie").Range("B" & k + 3) Then
Worksheets(j + 14).Name = Worksheets(j + 14).Range("A2") & Worksheets(j + 14).Range("C2") And Worksheets(k + 15).Name = Worksheets(k + 15).Range("A2") & Worksheets(k + 15).Range("C2")
End If
Next k
Worksheets(j + 14).Name = Worksheets(j + 14).Range("A2")
Else: Worksheets(j + 14).Name = Worksheets("Saisie").Range("B2") & j
End If
Next j
On Error GoTo 0
End Sub
je cherche vainement à faire fonctionner ma macro me permettant de changer le nom de certains onglets d'un classeur excel suivant une liste établie dans une feuille "saisie" mais en cherchant les doublons.
Ma méthode doit fonctionner mais je ne sais pas où ca bug.
Pouvez-vous m'aider?
Merci!
Ci-dessous, le code et en pièce jointe mon fichier:
Sub NomFeuille()
Dim j, k As Integer
On Error Resume Next
For j = 1 To 32
If Not IsEmpty(Sheets("Saisie").Range("B" & j + 2)) Then
For k = j To 31
If Sheets("Saisie").Range("B" & j + 2) = Sheets("Saisie").Range("B" & k + 3) Then
Worksheets(j + 14).Name = Worksheets(j + 14).Range("A2") & Worksheets(j + 14).Range("C2") And Worksheets(k + 15).Name = Worksheets(k + 15).Range("A2") & Worksheets(k + 15).Range("C2")
End If
Next k
Worksheets(j + 14).Name = Worksheets(j + 14).Range("A2")
Else: Worksheets(j + 14).Name = Worksheets("Saisie").Range("B2") & j
End If
Next j
On Error GoTo 0
End Sub