Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Masquer onglet en fonction de la langue choisie

Y

YANOU

XLDnaute Junior
Bonjour à tous et meilleurs vœux pour la nouvelle année.

Je voudrai un classeur avec un onglet "Questionnaire" avec, dans la cellule "C3", soit un drapeau Français, soit un drapeau Anglais et que se drapeau change (de l'un à l'autre indéfiniment) en double-cliquant dessus et que cela me masque les onglets "Français" ou ""Anglais" en fonction.

Pour l'instant (fichier joint), j'ai essayé de faire ceci par étape :
- J'ai positionné mes photos (1 = Drapeau Français ; 2 = Drapeau Anglais)
- Par double-clic sur la cellule B2, celle-ci s'incrémente
- La cellule C2=1 si PAIR ; C2=2 si IMPAIR
mais après, pour lier mes Drapeaux avec la valeur de la cellule C2...
J'ai tenté de nommer mes photos (Formules - Gestionnaires des noms - Fait référence à...), mais je patauge complet et je ne parle pas du masquage des onglets en fonction du choix...!!
N'ayant que très peu de connaissance en MACRO, la remise à plat de ce que j'ai fait me semble indispensable.
Merci pour votre aide.
 

Pièces jointes

  • Test.xlsm
    51.6 KB · Affichages: 26
Trier par date Trier par votes

job75

XLDnaute Barbatruc
Bonjour YANOU,

Le plus simple, dans le code de la feuille "Questionnaire" :
Code: 
Sub Anglais()
Application.ScreenUpdating = False
DrawingObjects("Anglais").Visible = False
Sheets("Anglais").Visible = xlSheetHidden
DrawingObjects("Français").Visible = True
Sheets("Français").Visible = xlSheetVisible
End Sub

Sub Français()
Application.ScreenUpdating = False
DrawingObjects("Français").Visible = False
Sheets("Français").Visible = xlSheetHidden
DrawingObjects("Anglais").Visible = True
Sheets("Anglais").Visible = xlSheetVisible
End Sub
Fichier joint.

A+
 

Pièces jointes

  • Drapeaux(1).xlsm
    54.4 KB · Affichages: 25
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Re,

Un peu plus difficile à comprendre, avec une seule macro :
Code: 
Sub Drapeau()
If IsError(Application.Caller) Then Exit Sub 'sécurité
Dim dm$, da$
dm = IIf(Application.Caller = "Anglais", "Anglais", "Français")
da = IIf(Application.Caller = "Anglais", "Français", "Anglais")
Application.ScreenUpdating = False
DrawingObjects(dm).Visible = False
Sheets(dm).Visible = xlSheetHidden
DrawingObjects(da).Visible = True
Sheets(da).Visible = xlSheetVisible
End Sub
Fichier(2).

A+
 

Pièces jointes

  • Drapeaux(2).xlsm
    51.2 KB · Affichages: 17
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Re,

S'il y a plus de 2 drapeaux on peut organiser une tournante :
Code: 
Sub Drapeau()
If IsError(Application.Caller) Then Exit Sub 'sécurité
Dim a, i, j
a = Array("Français", "Anglais", "Canadien", "Brésilien")
Application.ScreenUpdating = False
For i = 0 To UBound(a)
  DrawingObjects(a(i)).Visible = False
  Sheets(a(i)).Visible = xlSheetHidden
  If a(i) = Application.Caller Then j = i
Next
i = IIf(j = UBound(a), 0, j + 1) 'tournante
DrawingObjects(a(i)).Visible = True
Sheets(a(i)).Visible = xlSheetVisible
End Sub
Fichier (3)

A+
 

Pièces jointes

  • Drapeaux(3).xlsm
    57.5 KB · Affichages: 15
Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc
Bonsour® une seule macro :
 

Pièces jointes

  • Test (4).xlsm
    59.3 KB · Affichages: 25
Vote positif 0 Vote négatif
Y

YANOU

XLDnaute Junior
WAHOU MERCI job75 & Modeste Geedee !!
Mes pauvres connaissances en VBA ne me permettront pas de décortiquer de tels codes....
Une question cependant:
Si je veux "Importer" la macro de Geedee (celle qui me semble la plus simple à comprendre avec mes connaissances...) dans d'autres classeurs déjà mis en forme (j'ai tenté vainement, naïvement...copier/coller drapeaux + créer onglets Français/Anglais + code VBA) qu'elle démarche dois-je effectuer ?
Encore MERCI à vous.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

N
  • Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
459
Nel'
N
M
  • Question
XL 2021 Ouvrir un onglet en fonction de la valeur d une cellule
Réponses
4
Affichages
107
mathieu20
M
Z
  • Question
Microsoft 365 Rendre visible un onglet en fonction du contenu d'une cellule
Réponses
2
Affichages
124
zorol
Z
T
  • Résolu(e)
XL 2010 Idem fonction STXT() mais en partant de la droite
Réponses
4
Affichages
483
tchi456
T
  • Question
Autres la fonction similaire
Réponses
11
Affichages
444
patricktoulon
F
  • Résolu(e)
Microsoft 365 Donner a une cellule le nom de la feuille
Réponses
5
Affichages
438
Faroyo
F
  • Question
Microsoft 365 VBA : copier / coller d'un onglet à l'autre en fonction d'une valeur
Réponses
8
Affichages
565
Lisette
F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
8
Affichages
651
loloboc
L
D
  • Question
Microsoft 365 [RESOLU] Problème avec la fonction RECHERCHEV
Réponses
3
Affichages
211
dilack
D
J
  • Question
XL 2010 définir un nom de cellule en fonction de la valeur d'une autre
Réponses
12
Affichages
843
jojo4738
J
  • Résolu(e)
Microsoft 365 Remplir une cellule avec la valeur d'une autre sous condition
Réponses
2
Affichages
290
Droopyougo
I
  • Résolu(e)
Microsoft 365 Exécuter une macro en fonction de la valeur d'une cellule
Réponses
12
Affichages
377
iliess
I
Z
  • Résolu(e)
Microsoft 365 Scinder une ligne en fonction de plusieurs critères
Réponses
10
Affichages
243
Zaadox
Z
B
  • Question
XL 2016 Récupérer les valeurs de chaque titre à partir de plusieurs onglets
Réponses
4
Affichages
359
bnolwalid
B
L
  • Résolu(e)
Microsoft 365 Aide : Colorer une cellule en fonction de sa valeur
Réponses
2
Affichages
341
Leo98
L
V
  • Question
XL 2021 avoir des données dans plusieurs onglets en fonction de plusieurs conditions
Réponses
5
Affichages
544
mapomme
C
  • Question
Autres Apprentissage d'une langue : adapter la couleur des cellules en fonction du pourcentage d'évaluation
Réponses
2
Affichages
451
crocrocro
C
T
  • Question
XL 2021 Additionner la couleur du fond et la police de plusieurs cellule en vba
Réponses
7
Affichages
345
Tophe2
T
B
  • Question
XL 2016 Ramener une plage de données en fonction d'une cellule
Réponses
11
Affichages
387
JHA
J
  • Question
Microsoft 365 Bug liste de validation sur fichier de menu/Repas
2
Réponses
17
Affichages
481
ChTi160
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…