Microsoft 365 Macro mais je ne comprends pas mon erreur

[Daniel200666]

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

 

[Phil69970]

Bonjour @Daniel200666

ActiveSheet.Unprotect ("cbipro")

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

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

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

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

Merci de ton retour

 

[Daniel200666]

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

 

[patricktoulon]

re
Bonjour
soit tu utilise le codename pour désigner ta feuille soit son nom

Feuil1.Range("D37:40").Value = 1

ou

Sheets("Fiche d'orientation PRO").Range("D37:40").Value = 1

 

[Phil69970]

Re

Je maintiens ce que j'ai dit

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

Et je l'ai écrit en très gros pourtant il te suffisait de vérifier et tu aurais trouvé ET modifié ton erreur !!!!

 

[Staple1600]

Bonsoir le fil

C'est @Jeannette qui avait le lynx dans son oeil, non ?
(message#4)

Sub Errare_humanum_est()
ActiveSheet.Range("D37;40").Value = 1
End Sub
Sub Syntaxe_OK()
ActiveSheet.Range("D37,D40").Value = 1
'ou
ActiveSheet.Range("C37:C40").Value = 2
End Sub

 

[Phil69970]

Bonjour Staple

Tu as raison pour le lynx mais c'est juste que le demandeur n'a pas su recopier correctement son code car dans son fichier le "D" est bien présent mais pas la "feuil1"

 

[TooFatBoy]

Hello

Prop :

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)

 

[Staple1600]

ReBonsoir

Et en retirant les 4 parenthèses surnuméraires, on aurait aussi 4 caractères de moins

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 ?

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

 

[TooFatBoy]

Il n'y aurait pas un EntireRow en trop dans ta ligne de code, par hasard ?

Toutafé !