Cherche Macro VB pour ouvrir une feuille existante

Re : Cherche Macro VB pour ouvrir une feuille existante

Bonjour Janot,

avec ce code:

à+
Philippe

Re : Cherche Macro VB pour ouvrir une feuille existante

Bonjour,

Pour l'affichage de la feuille sélectionnée, dans le module de code de la feuille MENU:


Pour revenir à la feuille MENU lors de la sauvegarde du classeur, Dans le module de code Thisworkbook:

A+

Re : Cherche Macro VB pour ouvrir une feuille existante

😱
Merci à Laurent & à "Paf" pour vos réponses rapides & efficaces qui répondent parfaitement à mes besoins !
Il y avait un petit moment que je n'avais pas remis les doigts dans VB, et ce n'est pas comme le vélo, on y perd vite les pédales...

Si je puis me permettre, j'aurais un autre petit besoin potentiel dans ce fichier...
Dans les 52 feuilles (représentants les semaines), j'affiche & imprime 1 logo en haut à gauche...
Hors, le fait que ce "logo" (image JPG de 80k) se trouve dans chacune des feuilles alourdi le dit fichier...

N'y aurait-il pas une fonction (Excel ou VB) que l'on pourrait placer dans ces 52 feuilles qui afficherait ce "logo", ce dernier étant placé uniquement dans la feuille "MENU" ?
Ainsi, le "poids" du fichier serait moindre...

Note: Dans mes feuilles, j'ai des touches de commandes, dont une pour l'impression avec le code suivant : "ActiveSheet.PrintOut"
Bien-entendu, il faudrait que le "logo" s'imprime pour n'importe quelles feuilles sans en modifier son format...
Si cela était trop compliqué, ce n'est pas grave, ça fonctionne bien comme ça...
Merci.
@+Janot95

Re : Cherche Macro VB pour ouvrir une feuille existante

phlaurent55 à dit:

Bonjour Janot,

avec ce code:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E12")) Is Nothing Then
Sheets("s" & Format(Target, "00")).Select
End If
End Sub

à+
Philippe

Cliquez pour agrandir...

Bonsoir Philippe...

Ta ligne VB fonctionne très bien dans la cellule à valeurs défilante...
Mais, réflexion faite, j'aimerais placer un bouton de validation juste en dessous, car le numéro sélectionné me permet de faire apparaitre la semaine (du lundi au dimanche) sur le coté et ainsi de faire un choix plus certain de la bonne semaine...

Comment puis-je faire cette commande ?... OU faire un double "clic" sur la dite cellule (E12)...?

Private Sub CommandButton1_Click()
???
End Sub

Merci,
@+Janot95

Re : Cherche Macro VB pour ouvrir une feuille existante

salut

une proposition...

Re : Cherche Macro VB pour ouvrir une feuille existante

Si... à dit:

salut

une proposition...

Cliquez pour agrandir...

Bonsoir "Si"...

Merci pour le p'tit bout de code activant par double clic la cellule gauche...
Ca semble fonctionner...
Mais je vais tenter de valider par un bouton en dessous... ce sera + causant pour l'utilisateur...


Pour le coup du logo... pas bête l'idée...
Sur le coup j'étais septique... J'ai donc supprimé les logo dans 3-4 feuilles, puis suis retourné au menu...
Sélection d'1 feuille... le logo apparait... Ok!

Mais, je constate 3 Pb à l'affichage d'1 seul feuille de 1 à 9...
1) le logo est copié dans toutes les feuilles d'1 coup... Oups !
2) ils y restent !
3) la sélection de la feuille "10" retourne l'erreur "Erreur d'exécution '9' : l'indice n'appartient pas à la sélection"😕

Hors, mon but est d'alléger mon classeur en n'ayant pas 52 logo...
Car au final, mon classeur traite les 52 semaines d'1 année...

Alors p'te reste-t-il un p'tit réglage...???

Je reste à ton écoute, MERCI...
@+Janot95

Re : Cherche Macro VB pour ouvrir une feuille existante

.... suite...

J'ai trouvé et corrigé l'erreur Pb#3...
Cela provenait du fait d'avoir pris en compte "Application.Goto Sheets("s0" & R(1, 2)).[B1]"...
En effet, il faut seulement prendre sheets("s" & Format(Target, "00")).[B1]...

Demeurent les autres Pb...

A bientôt de te lire... MCI...
@+Janot95

Re : Cherche Macro VB pour ouvrir une feuille existante

re

Janot95 à dit:

Mais, je constate 3 Pb à l'affichage d'1 seul feuille de 1 à 9...
1) le logo est copié dans toutes les feuilles d'1 coup... Oups ! NON
2) ils y restent ! NON
3) la sélection de la feuille "10" retourne l'erreur "Erreur d'exécution '9' : l'indice n'appartient pas à la sélection"😕 voir ci-dessous

Or, mon but est d'alléger mon classeur en n'ayant pas 52 logo...
Car au final, mon classeur traite les 52 semaines d'1 année...

Cliquez pour agrandir...

C’était une proposition en fonction du fichier donné.

Remarque générale
Pour éviter d’avoir à reprendre constamment le code il est recommandé de joindre un exemple reflétant exactement le contexte !

Cliquez pour agrandir...

Tu as une macro qui ne copie l’image que lorsque la feuille est activée et une autre qui supprime l’image lorsque la feuille est désactivée.

Sur toutes les feuilles dont le nom comcencent par s (réservé aux semaines) il doit y avoir 9 en D1 pour assurer le retour. On peut y mettre un lien hypertexte pour éviter la macro.

Si tous les onglets correspondants aux semaines ont la même structure il est possible de n'avoir que 2 onglets, l'un pour la semaine sélectionnée dans le second qui contient la synthèse de toutes les données.
Mais c'est une autre hitoire ...

Re : Cherche Macro VB pour ouvrir une feuille existante

Hello... Merci "Si"...

Les lignes de codes de ton dernier fichier me vont bien, T explications sont clair, on y voit le "Pro"...
Je ne suis pas complètement bébète... j'ai surtout un Pb avec les syntaxes en VB...
===
Je n'ai pas réfléchi lorsque je t'ai écrit que le logo apparaissait dans toutes les feuilles, car j'accédais au feuilles par les onglets (pour voir)... Mais bien-sûr, vu la ligne de code... CT normal...
! Je me pose juste une question concernant l'utilité de la dernière feuille...
===
Je vais appliquer cela dans mon classeur final pour voir ce que cela donne, mais il n'y a pas de raison que ça ne fonctionne pas, puisque plusieurs possibilités s'offrent à moi dès à présent.
Certes, j'aurais pu attacher mon fichier complet, mais le poids était 1 peu trop important & il aurait fallu que je le dépersonnalise, ce qui m'aurait pris pas mal de temps.
===
Dernier point, dans ton dernier paragraphe je retiens ta réflexion sur une structure à 2 feuilles...
Il est vrai que ce serait le "Top"... mais... c'est une autre affaire...
Si je ne l'ai pas déjà écrit, il s'agit d'un fichier planning, dans lequel existe bien-entendu des calculs de temps, mais aussi des zones de cellules en couleur... C'est p'te là que ça se complique... (Enfin for me...) Lol !

Conclusion, je vais faire un fichier dépersonnalisé complet & appliquer les fonctions & code VB ad-hoc et le remettrai en DL ici prochainement... Tu pourras me dire ce que tu penses du niveau de difficultés pour le passer sur 2 feuilles...

Merci encore & @+Janot95
Ma devise: "Dire & Faire sont 2 verbes qui ne vont pas de paire" (JFF)