raccourci macro fonctionne une fois sur deux

[aredo]

bonjour,

J'ai un code protégé avec une vingtaine de feuilles. Dès que le fichier s'ouvre, quand je lance la macro "affiche" via un raccourci, elle ne s'exécute qu'une fois sur deux. Elle fonctionne parfaitement en la déclenchant manuellement. Peut-être que mon code n'est pas assez précis. Je vous serez gré d'y jeter un oeil.
merci à vous

 

[cp4]

Bonjour,

Sans ouvrir ton fichier, il n'est pas enregistré dans un format prenant en charge les macros.
Autrement dit: il n'y a aucune macro dans ton fichier.

Bonne journée.

 

[aredo]

bonjour,

Effectivement, j'ai volontairement copié basiquement le code incriminé.
Si besoin, je transmettrai le fichier
merci

 

[cp4]

Tu veux faire quoi exactement? Qu'appelles-tu raccourci?
Tu aurais pu éditer ton code ici

'ici ton code

 

[cp4]

N'ayant pas eu de retour, à tester

 

[aredo]

re,
voici un extrait
merci à vous

 

[cp4]

Sub afficher()
Worksheets("Affichage").Activate 'elle est non visible donc ne s'active pas
Dim i As Integer
i = 1
While Range("B" & i).Value <> "" 'quelle feuille?
Sheets(Range("B" & i).Text).Visible = True
i = i + 1
Wend
Sheets("toto").Activate 'elle est déjà active
End Sub

Je n'ai pas compris ta démarche. à l'ouverture du fichier il n'y a que la feuille toto qui est visible. Dans la macro ci-dessous, la 1ère ligne tu actives la feuille Affichage alors qu'elle est non visible, et surtout pourquoi faire?

Ensuite tu fais une boucle pour parcourir quelle feuille? ce n'est pas précisé dans le code. Il va donc parcourir les cellules de la feuille active qui est toto. Ce qui va rendre visible les feuilles dont le nom est en colonne B.

Sur la feuille Affichage, tu as mis des noms de feuilles aussi en colonne B (note2 à note6 et affichage), ces dernières ne seront pas visibles avec ton code.

Maintenant, dis-nous d'où tu pars et quel résultat tu veux obtenir?

@+

 

[aredo]

En fait, c'est un fichier en réseau. La feuille "toto" est toujours active, ensuite je sélectionne en "A" une référence qui m'ouvre la feuille correspondante afin d'y rentrer des données. Hormis ces sélections de feuilles, je ne veux pas que les opérateurs puissent avoir accès aux autres feuilles (inscrites dans "affichage"). je suis donc le seul à connaître le déclenchement de cette macro "affichage" . Il y a peut-être des doublons ou des caractères inutiles.

 

[cp4]

Ta macro ouvrait toutes les feuilles répertoriées sur la feuille "toto", la 1ère ligne et la dernière sont inutiles.

Sub afficher()
Dim i As Integer 'si nombre feuille <256 mettre byte au lieu de integer
i = 1
While Sheets("toto").Range("A" & i).Value <> ""
Sheets(Range("A" & i).Text).Visible = True
i = i + 1
Wend
End Sub

 

[cp4]

Attention ,'ai corrigé le code plus que le nom des feuilles est en colonne A et non B

 

[aredo]

En fait, en colonne A dans "toto", correspond à des feuilles de saisies(ok pour l'opérateur) et dans "affichage", en B le nom des feuilles que j'ouvre avec la macro "affiche" et dont l'opérateur ne doit pas avoir l 'accès.
merci

 

[cp4]

En fait, en colonne A dans "toto", correspond à des feuilles de saisies(ok pour l'opérateur) et dans "affichage", en B le nom des feuilles que j'ouvre avec la macro "affiche" et dont l'opérateur ne doit pas avoir l 'accès.
merci

Conclusion, il te faut 2 macros. Une pour la feuille toto et une pour Affichage.

Bonne journée.

 

[aredo]

En fait, je viens de trouver où ça bloque. J'ai rajouté un code dans les feuilles 8 à 18 et depuis, la macro "affiche" déconne une fois sur deux avec le raccourci. Qu'y a t'il ds ce code qui entraîne cet état ?
merci

 

[cp4]

Bonsoir Aredo,

Il me semble que tu ne sais pas vraiment où tu vas. Si tu avais bien exposé ton problème, il aurait été déjà résolu.
Tu as dit que tu déclenchais ta macro via un raccourci sans nous le donner. Tu l'as très mal choisi. En effet, tu fais Ctrl+a qui est un raccourci réservé pour office (sélection d'une plage par exemple).
Tu nous as dit que les autres feuilles (note1, note2......, affichage) sont réservés pour toi (l'administrateur).
Et, là tu as mis sur pratiquement toutes les feuilles une macro qui se déclenche sur un évènement de la feuille.
Depuis le début, tu n'es pas clair.
Rédige ton message à tête reposée en utilisant le blocnote, relis-toi et ensuite édite-le sur le forum.

Bonne soirée.

edit: tu utilises Ctrl+z encore un raccourci réservé.

une récap des raccourcis réservés

 

[job75]

Bonsoir aredo, cp4,

Le problème est très clair, simplement la macro Afficher ne tenait pas bien la route.

Voyez le fichier joint et la macro corrigée :

Sub Afficher()
'se lance par Ctrl+a
Dim i As Integer
i = 1
While Sheets("Affichage").Range("B" & i) <> ""
    Sheets(Sheets("Affichage").Range("B" & i).Text).Visible = xlSheetVisible
    i = i + 1
Wend
End Sub

A+