Microsoft 365 Macro mais je ne comprends pas mon erreur

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Daniel200666

XLDnaute Occasionnel
Bonjour à tous

j'ai écrit une macro qui me semble bonne mais j'ai toujours cette partie surlignée en jaune : Sheets("feuil1").Range("D37;40").Value = 1 et je ne comprends pas pourquoi

Pourriez vous procéder à une petite vérification svp ? je vous en serais gré !!!

Merci et bonne journée !

Sub Reset()

ActiveSheet.Unprotect ("cbipro")

Sheets("feuil1").Range("D37;40").Value = 1

Range("D11:E43").ClearContents

Rows("47:54").EntireRow.Select
Selection.EntireRow.Hidden = True

ActiveSheet.Protect ("cbipro")

End Sub
 

Pièces jointes

Bonjour @Daniel200666


Quel est la feuille active ??
Est ce bien la feuille 1 ???

Et la feuil1 existe t'elle à mon avis elle n'existe pas !!!!




A noter qu'avec un fichier c'est beaucoup plus facile que faire des suppositions !!!

Merci de ton retour

bonjour et merci beaucoup pour cette réponse rapide
Désolé pour cette maladresse, je vais mettre le fichier en complément de mon précédent message
 
Hello 😀

Prop :
VB:
Sub Reset()
'
    With ActiveSheet
        .Unprotect ("cbipro")
'        Sheets(Feuil1).Range("D37:D40").Value = 1
        .Range("D11:E43").ClearContents
        .Rows("47:54").EntireRow.Hidden = True
        .Protect ("cbipro")
    End With

End Sub


Remarque : pourquoi enregistrer le classeur en xls de 1997 et non en xlsm ???
(en plus il ne ferait plus que 96 ko au lieu de 152 ko)
 
Dernière édition:
ReBonsoir

Et en retirant les 4 parenthèses surnuméraires, on aurait aussi 4 caractères de moins
Code:
Const °V° As String = "cbipro"
Sub Rosette()
    With ActiveSheet
        .Unprotect °V°
        .Range("D11:E43").ClearContents
        .Rows("47:54").EntireRow.Hidden = True
        .Protect °V°
    End With
End Sub

@TooFatBoy
Il n'y aurait pas un EntireRow en trop dans ta ligne de code, par hasard ? 😉
TooFatBoy à dit:
.Rows("47:54").EntireRow.EntireRow.Hidden = True
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
999
Retour