VBA Erreur 1004

Résolu
CHARLYJACK Messages postés 345 Date d'inscription   Statut Membre Dernière intervention   -  
CHARLYJACK Messages postés 345 Date d'inscription   Statut Membre Dernière intervention   -
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

1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

La cellule ne doit pas etre vide
-1
CHARLYJACK Messages postés 345 Date d'inscription   Statut Membre Dernière intervention   1
 
Et oui ça va mieux
j'avais oublié un onglet
merci beaucoup
0