XL 2013 Macros et onglet caché

Pacomichel · 6 Octobre 2017

Bonjour. J'utilise et actualise chaque année un fichier servant à déclarer des heures de travail (joint). cete anée, j'ai du toucher qqch car il "bug" sur les postes de mes petits camarades et, lorsqu'ils me le renvoient, il bug aussi sur mon poste, mais pas au départ !
Bref : je suis à la recherche de l'onglet DONNEES et je ne sais pas comment réparer la fenêtre" Remplissez d'abord..." qui apparait même quand les cases prévues sont remplies !
Merci.

thebenoit59 · 6 Octobre 2017

Bonjour Pacomichel.

Le soucis est dans le code de ThisWorkbook.
Il vérifie les cellules B30 à B32 au lieu de B21 à B23

Pour récupérer ton onglet DONNEES, il faut que tu ailles dans le ruban Révision puis tu désactives Protéger le classeur.
Tu cliques droit sur un onglet et tu fais Afficher.

Pacomichel · 6 Octobre 2017

thebenoit59 à dit:
Bonjour Pacomichel.

Le soucis est dans le code de ThisWorkbook.
Il vérifie les cellules B30 à B32 au lieu de B21 à B23

Pour récupérer ton onglet DONNEES, il faut que tu ailles dans le ruban Révision puis tu désactives Protéger le classeur.
Tu cliques droit sur un onglet et tu fais Afficher.

Super ! merci !
Il ne me reste qu'un soucis : c'est quoi et surtout où ThisWorkbook afin que je puisse y modifier les cellules ? Mais encore : dans l'onglet DONNES, j'ai une "touche" pour protéger le classeur sans faire du feuille par feuille. Merci de me dire pourquoi ça ne fonctionne plus alors que les macros sont bien activées ?

thebenoit59 · 6 Octobre 2017

Dans Développeur / Visual Basic pour modifier le code.
Pour l'onglet DONNEES, les procédures n'existent pas dans VBA elles ont dû être supprimées.
Je te laisse les replacer dans le code.

Pacomichel · 6 Octobre 2017

Pacomichel à dit:
Super ! merci !
Il ne me reste qu'un soucis : c'est quoi et surtout où ThisWorkbook afin que je puisse y modifier les cellules ? Mais encore : dans l'onglet DONNES, j'ai une "touche" pour protéger le classeur sans faire du feuille par feuille. Merci de me dire pourquoi ça ne fonctionne plus alors que les macros sont bien activées ?

thebenoit59 à dit:
Dans Développeur / Visual Basic pour modifier le code.
J'ai retrouvé le code dans une version antérieure mais je ne sais pas le mettre ! Merci
Option Explicit

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name <> "A LIRE" Then
Dim nb
nb = Application.CountA(Sheets("A LIRE").Range("B29:B31"))
If nb < 3 Then
MsgBox "Remplissez d'abord les cellules NOM,SERVICE et BASE SEMAINE de la feuille 'A LIRE", vbExclamation, "Saisie"

Sheets("A LIRE").Activate
End If

End If
End Sub

Pour l'onglet DONNEES, les procédures n'existent pas dans VBA elles ont dû être supprimées.
Je te laisse les replacer dans le code.

Itou : je ne sais pas quoi en faire. Elles sont au bon endroit mais pourquoi est-ce qu'elles ne fonctionnent pas ?
Sub protege()
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Select
ActiveSheet.Protect Password:=""
Next i
Sheets(1).Activate
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Sub deprotege()
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Select
ActiveSheet.Unprotect Password:=""
Next i
Sheets(1).Activate
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Merci

thebenoit59 · 9 Octobre 2017

Elles ne sont pas au bon endroit.
Je te laisse chercher pour les remettre dans le code VBA.

Pacomichel · 10 Octobre 2017

thebenoit59 à dit:
Elles ne sont pas au bon endroit.
Je te laisse chercher pour les remettre dans le code VBA.

J'ai retrouvé une version qui fonctionne ...
Dans tous les cas : merci ! cependant, quand tu as un béotien comme moi en vis-à-vis, pense qu'on n'y connait vraiment rien. Exemple : ta dernière recommandation, c'est du chinois pour moi. mais merci encore.

thebenoit59 · 10 Octobre 2017

Super pour la version fonctionnelle.
Désolé si je me suis mal exprimé.
Tu aurais du signaler que tu ne connais pas du tout le VBA, car il n'y avait pas grand chose à effectuer comme démarche.

XL 2013 Macros et onglet caché

Pacomichel

XLDnaute Nouveau

Pièces jointes

thebenoit59

XLDnaute Accro

Pacomichel

XLDnaute Nouveau

thebenoit59

XLDnaute Accro

Pacomichel

XLDnaute Nouveau

thebenoit59

XLDnaute Accro

Pacomichel

XLDnaute Nouveau

thebenoit59

XLDnaute Accro