VBA Erreur 1004
Résolu
Bonjour,
j'ai un problème qui vient de se déclarer alors que cela fonctionnait
jusque là. Il s'agit de renommer toutes les feuilles d'un classeur en fonction du contenu d'une cellule
Voici le code:
Public Sub nomfeuil()
Dim cpt As Integer
Dim Limite As Integer
Limite = Sheets.Count
cpt = 1
Do While cpt <= Limite
Sheets(cpt).Name = Sheets(cpt).Range("A1")
cpt = cpt + 1
Loop
End Sub
C'est la ligne en gras qui apparait en jaune.
Qu'est ce qui a pu déclencher le problème ?
Par avance merci
j'ai un problème qui vient de se déclarer alors que cela fonctionnait
jusque là. Il s'agit de renommer toutes les feuilles d'un classeur en fonction du contenu d'une cellule
Voici le code:
Public Sub nomfeuil()
Dim cpt As Integer
Dim Limite As Integer
Limite = Sheets.Count
cpt = 1
Do While cpt <= Limite
Sheets(cpt).Name = Sheets(cpt).Range("A1")
cpt = cpt + 1
Loop
End Sub
C'est la ligne en gras qui apparait en jaune.
Qu'est ce qui a pu déclencher le problème ?
Par avance merci
