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