Microsoft 365 Macro mais je ne comprends pas mon erreur

Daniel200666 · 1 Octobre 2024

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 · 1 Octobre 2024

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 · 1 Octobre 2024

Phil69970 à dit:
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 · 1 Octobre 2024

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

VB:

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

ou

Code:

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

Phil69970 · 1 Octobre 2024

Re

Je maintiens ce que j'ai dit

Phil69970 à 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 · 1 Octobre 2024

Bonsoir le fil

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

Code:

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 · 1 Octobre 2024

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 · 1 Octobre 2024

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)

Staple1600 · 1 Octobre 2024

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

TooFatBoy · 1 Octobre 2024

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

Toutafé !

Microsoft 365 Macro mais je ne comprends pas mon erreur

Daniel200666

XLDnaute Occasionnel

Pièces jointes

Phil69970

XLDnaute Barbatruc

Daniel200666

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Discussions similaires