Microsoft 365 Macro mais je ne comprends pas mon erreur

Daniel200666 · Hier à 12:31

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 · Hier à 12:46

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 · Hier à 12:56

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

Jeannette · Hier à 13:00

Bonjour,
Il ne manquerait pas le nom de la colonne juste avant le 40?

VB:

Sheets("feuil1").Range("D37;40").Value = 1
=>
Feuil1.Range("D37:D40").Value = 1

D, ou E, ou toute autre colonne...
Et un : à la place d'un ;
et remplacer Sheets("feuil1") par le codename Feuil1

patricktoulon · Hier à 13:03

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 · Hier à 13:09

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 · Hier à 20:14

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 · Hier à 20:26

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 · Hier à 21:36

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 · Hier à 22:12

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 · Hier à 22:30

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 Junior

Pièces jointes

Phil69970

XLDnaute Barbatruc

Daniel200666

XLDnaute Junior

Jeannette

XLDnaute Junior

patricktoulon

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Discussions similaires