Re James,
Alors j'ai testé le code que tu m'as donné et je t'en remercie.
Cependant en tapant la suite de mes codes pour mes autres feuilles et exécutant: je me trouve confronter au message d'erreur suivant:
1004
Impossible de définir la propriété Visible de la classe Worksheet
Private Sub DC_Click()
If DC = True Then
For Each sh In ActiveWorkbook.Sheets
If sh.Name = "DEVIS CONSTRUCTION" Then
Sheets("DEVIS CONSTRUCTION").Visible = True
Else
sh.Visible = False
End If
Next sh
End If
Unload Me
End Sub
Private Sub TCE_Click()
If TCE = True Then
For Each sh In ActiveWorkbook.Sheets
If sh.Name = "TC Export" Then
Sheets("TC Export").Visible = True
Else
sh.Visible = False
End If
Next sh
End If
Unload Me
End Sub
Private Sub GTCI_Click()
If GTCI = True Then
For Each sh In ActiveWorkbook.Sheets
If sh.Name = "Groupage TC Import" Then
Sheets("Groupage TC Import").Visible = True
Else
sh.Visible = False
End If
Next sh
End If
Unload Me
End Sub
Private Sub GTCE_Click()
If GTCE = True Then
For Each sh In ActiveWorkbook.Sheets
If sh.Name = "Groupage TC Export" Then
Sheets("Groupage TC Export").Visible = True
Else
sh.Visible = False
End If
Next sh
End If
Unload Me
End Sub
Private Sub AI_Click()
If AI = True Then
For Each sh In ActiveWorkbook.Sheets
If sh.Name = "Aerien Import" Then
Sheets("Aerien Import").Visible = True
Else
sh.Visible = False
End If
Next sh
End If
Unload Me
End Sub
Private Sub AE_Click()
If AE = True Then
For Each sh In ActiveWorkbook.Sheets
If sh.Name = "Aerien Export" Then
Sheets("Aerien Export").Visible = True
Else
sh.Visible = False
End If
Next sh
End If
Unload Me
End Sub
Private Sub VIM_Click()
If VIM = True Then
For Each sh In ActiveWorkbook.Sheets
If sh.Name = "Vehicule Import M" Then
Sheets("Vehicule Import M").Visible = True
Else
sh.Visible = False
End If
Next sh
End If
Unload Me
End Sub
Private Sub VIA_Click()
If VIA = True Then
For Each sh In ActiveWorkbook.Sheets
If sh.Name = "Vehicule Import A" Then
Sheets("Vehicule Import A").Visible = True
Else
sh.Visible = False
End If
Next sh
End If
Unload Me
End Sub
Private Sub VEM_Click()
If VEM = True Then
For Each sh In ActiveWorkbook.Sheets
If sh.Name = "Vehicule Export M" Then
Sheets("Vehicule Export M").Visible = True
Else
sh.Visible = False
End If
Next sh
End If
Unload Me
End Sub
Private Sub VEA_Click()
If VEA = True Then
For Each sh In ActiveWorkbook.Sheets
If sh.Name = "Vehicule Export A" Then
Sheets("Vehicule Export A").Visible = True
Else
sh.Visible = False
End If
Next sh
End If
Unload Me
End Sub
En faite cela se produit lorsque je souhaite changer de feuilles. Je ne px les afficher.
LE principe c'est que quand je coche par ex devis construction mon numéro auto s'affiche automatiquement. A la fermeture ce numéro est enregistré mais quand j'ouvre mon fichier de nouveau je dois pouvoir changer de feuille par ex Aerien Import.