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

CheckBox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion maval
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

maval

XLDnaute Barbatruc
Bonjour,

Je recherche un code que si je coche mon CheckBox en cliquant sur une ville "Charpe" j'ouvre l'onglet qui correspond

Je vous remercie d'avance de votre aide

Cordialement

Maval
 

Pièces jointes

Trier par date Trier par votes
Re : CheckBox

Bonsoir maval,

Si j'ai bien cerné le problème, voici ma solution :

Code: 
Sub Selection()
  ActiveSheet.Shapes("Groupe_Num_Dept").Left = 75
  ActiveSheet.Shapes("Groupe_Num_Dept").Top = 90

 Dim n As Integer, Pref As String, Teste As String
 [AD23] = Mid(Application.Caller, InStr(Application.Caller, "-") + 1)
' ôter toutes les couleurs
For n = 1 To ActiveSheet.Shapes.Count - 3
ActiveSheet.Shapes(n).Fill.ForeColor.SchemeColor = 9
Next n
'  ci-dessous on colorie tous les dépt concernés en bleu
Select Case [AD23]


Case 22, 29, 35, 56     '(Bretagne)
ActiveSheet.Shapes("FR-22").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-29").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-35").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-56").Fill.ForeColor.SchemeColor = 4



End Select

On Error Resume Next
' et on colorie le dépt cliqué en vert


choix = Format(CStr([AD23]), "00")
ActiveSheet.Shapes("FR-" & choix).Fill.ForeColor.SchemeColor = 3

If ActiveSheet.CheckBox1.Value = True Then
  Pref = LTrim(Replace(ActiveSheet.Shapes("FR-" & choix).TextFrame2.TextRange.Characters.Text, vbLf, ""))
  Pref = LTrim(Mid(Pref, 3))
  Sheets(Pref).Activate
End If

End Sub
J'ai simplement ajouté les 5 dernières lignes sans autre modification du code.

Cordialement.

Edit : j'ai oublié de préciser qu'il est impératif que le texte des noms de préfectures dans les images soit absolument identique aux noms des onglets, ou vice et versa.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : CheckBox

Bonjour Papou-net

Simple et Nickel je te remercie beaucoup Papou.

J'aurai besoin d'un conseil. J'ai environ une trentaine de feuille sur mon classeur j’aimerai masquer toute les feuilles sauf la première et pouvoir les ouvrir lorsque je click dessus les villes correspondant.

Aurai tu une solution a mon problème?

Bonne journée

Maval
 
Vote positif 0 Vote négatif
Re : CheckBox

Bonjour,

pour masquer toutes les feuilles sauf la première :
Code: 
Option Explicit
Sub test()
Dim i As Integer
For i = 2 To Sheets.Count
    Sheets(i).Visible = xlSheetHidden
Next i
End Sub

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : CheckBox

Re,

eh bien, comme dit plus haut, avant l'activation tu rends visible la feuille.....
Code: 
If ActiveSheet.CheckBox1.Value = True Then
  Pref = LTrim(Replace(ActiveSheet.Shapes("FR-" & choix).TextFrame2.TextRange.Characters.Text, vbLf, ""))
  Pref = LTrim(Mid(Pref, 3))
'ici tu rends visible la feuille.....   
Sheets(Pref).Activate
End If
 
Vote positif 0 Vote négatif
Re : CheckBox

Re,

Si je met le code comme ceci.

Code: 
If ActiveSheet.CheckBox1.Value = True Then
  Pref = LTrim(Replace(ActiveSheet.Shapes("FR-" & choix).TextFrame2.TextRange.Characters.Text, vbLf, ""))
  Pref = LTrim(Mid(Pref, 3))
'ici tu rends visible la feuille.....


With Sheets("Vannes")
    .Visible = xlSheetVisible
    .Activate
End With

Sheets(Pref).Activate
End If

Sa fonctionne que sur la feuille Vannes ?

@+
 
Vote positif 0 Vote négatif
Re : CheckBox

Re,

bah oui forcement.... modifie ainsi :

Code: 
If ActiveSheet.CheckBox1.Value = True Then
  Pref = LTrim(Replace(ActiveSheet.Shapes("FR-" & choix).TextFrame2.TextRange.Characters.Text, vbLf, ""))
  Pref = LTrim(Mid(Pref, 3))
'ici tu rends visible la feuille.....

With Sheets(Pref)
    .Visible = xlSheetVisible
    .Activate
End With

End If
 
Vote positif 0 Vote négatif
Re : CheckBox

Bonjour

J'ai un petit souci avec mon code auquel Papou-Net et Pierrot mon aider a finaliser et que je remercie au passage.
Lorsque je masque les feuilles de mon classeur avec ce code:

Et celui ci sur la feuille"France"
Code: 
Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Masquer les feuilles" Then
    CommandButton1.Caption = "Afficher les feuilles"
    ' ici opérations à exécuter
Else

    CommandButton1.Caption = "Masquer les feuilles"
    ' ici opérations à exécuter
End If
masquer_démasquer
End Sub
Dans un module
Code: 
Sub masquer_démasquer()
Dim oSh As Worksheet
Application.ScreenUpdating = False
   For Each oSh In ThisWorkbook.Sheets
      If oSh.Name <> "France" And oSh.Name <> "Fr_Régions" Then oSh.Visible = Not oSh.Visible
   Next oSh
Application.ScreenUpdating = True
End Sub

Aucun problème si je clic une ville de ma carte de France la feuille correspondant a la ville souvre avec ce code de Papou-Net:
Code: 
If ActiveSheet.CheckBox1.Value = True Then
  Pref = LTrim(Replace(ActiveSheet.Shapes("FR-" & choix).TextFrame2.TextRange.Characters.Text, vbLf, ""))
  Pref = LTrim(Mid(Pref, 3))
'ici tu rends visible la feuille.....
With Sheets(Pref)
    .Visible = xlSheetVisible
    .Activate
End With

Sheets(Pref).Activate

Jusqu'ici tous va bien!
Mon problème si je veut masquer les feuilles que j'ai ouverte a l'aide de mon code je ne peut plus?
Si vous avais une idée je vous remercie d'avance

Cordialement

Maval
 
Dernière édition:
Vote positif 0 Vote négatif
Re : CheckBox

Re,

Mon problème si je veut masquer les feuilles que j'ai ouverte a l'aide de mon code je ne peut plus?
Cliquez pour agrandir...

c'est du code ci-dessous dont tu parles ?

Code: 
If oSh.Name <> "Accueil" And oSh.Name <> "recap" Then oSh.Visible = Not oSh.Visible

si c'est le cas, normal, masque ou démasque toutes les feuilles différentes de "Accueil" et "recap" selon leur état. Peut être nous indiquer qu'est ce qui ne va pas exactement...
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2019 CheckBox pour afficher ou masquer le mot de passe
Réponses
4
Affichages
219
ARaul
B
  • Résolu(e)
XL 2019 modification classeur comptabiliser commande
Réponses
3
Affichages
161
brunocean
B
V
  • Question Question
XL 2019 gestion planing benevole
Réponses
3
Affichages
211
virny
V
M
  • Résolu(e)
Microsoft 365 VBA Bon de commande Combo et Textbox Problème
Réponses
1
Affichages
192
vgendron
N
  • Résolu(e)
Microsoft 365 Simplifier un code pour activer ou désactiver des CheckBox
6 7 8
Réponses
115
Affichages
5 K
ChTi160
L
  • Question Question
XL 2016 tableau sorties prêt materiel
Réponses
5
Affichages
263
lo1921
L
B
  • Question Question
Microsoft 365 calendrier personnel pour planning
Réponses
4
Affichages
241
bruno972
B
D
  • Question Question
Microsoft 365 Code VBA pour date DD/MM/YYYY
Réponses
6
Affichages
636
Staple1600
B
  • Résolu(e)
Microsoft 365 Additionner des montants par rapport a des critère.
Réponses
4
Affichages
375
blancolie
B
  • Question Question
Microsoft 365 Impression recto-verso
Réponses
2
Affichages
177
Yann71
  • Résolu(e)
XL 2021 Code vba pour filtres automatiques sans le nom de l'onglet
Réponses
4
Affichages
194
sylvanu
  • Résolu(e)
XL 2019 Variables à utiliser dans 2 fichiers séparés
Réponses
14
Affichages
708
Titof06
P
  • Résolu(e)
Microsoft 365 Grouper des données en fonction d'un mapping
Réponses
4
Affichages
151
patricko-13
P
J
  • Question Question
XL 2016 Formule de recherche de valeurs sur deux onglets en entête et en ligne
2
Réponses
22
Affichages
653
Jaykerz
J
Q
  • Question Question
XL 2019 soucis résultat dans cellules
Réponses
8
Affichages
314
chris
N
  • Résolu(e)
XL 2019 copier coller sous condition avec trois feuil
Réponses
11
Affichages
615
Nico77
N
P
  • Question Question
Microsoft 365 Exécution d'une formule en VBA
Réponses
9
Affichages
264
sylvanu
  • Question Question
Autres Problème avec le #NA
Réponses
12
Affichages
407
kdet
B
  • Question Question
XL 2016 problèmes de formules et liste déroulantes avec le planning
Réponses
1
Affichages
137
sylvanu
E
  • Question Question
Microsoft 365 couleur et ligne
Réponses
6
Affichages
291
cathodique
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…