[RESOLU] Selectionner feuille avec une variable
Bonjour à tous
J'ai dans un classeur 32 feuilles
La premiere se nomme MOIS
Les autres correspondent à chaque jour du mois et leur nom est 1; 2 ; 3 ...
Chaque feuille est identique exepté une cellule qui correspond à la date (cellule D1) qui est calculé par rapport au mois qui est renseigné dans la feuil MOIS
Quand je créé le classeur, je crée une feuille jour1 puis je fais 30 copie (il y a une grosse macro sur selection change dans la feuille)
j'aimerais pouvoir renseigner la formule de cette cellule (D1) sans avoir à le faire feuille par feuille
J'ai fait une macro :
>Sub dateplanning()
>
>Dim NumeroOnglet
>
>For NumeroOnglet = 1 To 31
> Worksheets(NumeroOnglet).Select
> Worksheets(NumeroOnglet).Unprotect
> Range("D1") = "=MOIS!B1+" & NumeroOnglet - 1
> Worksheets(NumeroOnglet).Protect
>
>Next NumeroOnglet
>
>End Sub
Sur Worksheets(NumeroOnglet).Select
il me met erreur d'execution 40036 : erreur definie par l'application ou par l'objet
je pense qu'il ne comprends le fait que 'numeroonglet' soit une variable de la boucle (numerique) et qu'il soit aussi le nom de la feuille (chaine)
je ne sais pas comment resoudre cela
Pouvez vous m'aider ?
Merci d'avance
Bonjour à tous
J'ai dans un classeur 32 feuilles
La premiere se nomme MOIS
Les autres correspondent à chaque jour du mois et leur nom est 1; 2 ; 3 ...
Chaque feuille est identique exepté une cellule qui correspond à la date (cellule D1) qui est calculé par rapport au mois qui est renseigné dans la feuil MOIS
Quand je créé le classeur, je crée une feuille jour1 puis je fais 30 copie (il y a une grosse macro sur selection change dans la feuille)
j'aimerais pouvoir renseigner la formule de cette cellule (D1) sans avoir à le faire feuille par feuille
J'ai fait une macro :
>Sub dateplanning()
>
>Dim NumeroOnglet
>
>For NumeroOnglet = 1 To 31
> Worksheets(NumeroOnglet).Select
> Worksheets(NumeroOnglet).Unprotect
> Range("D1") = "=MOIS!B1+" & NumeroOnglet - 1
> Worksheets(NumeroOnglet).Protect
>
>Next NumeroOnglet
>
>End Sub
Sur Worksheets(NumeroOnglet).Select
il me met erreur d'execution 40036 : erreur definie par l'application ou par l'objet
je pense qu'il ne comprends le fait que 'numeroonglet' soit une variable de la boucle (numerique) et qu'il soit aussi le nom de la feuille (chaine)
je ne sais pas comment resoudre cela
Pouvez vous m'aider ?
Merci d'avance
Dernière édition: