Je sais pas comment faire
Bonjour j'ai fait ce code la qui permet d'afficher feuille et disparaitre une autre mais la feuille ne disparaitre pas
voila le code que j'ai utilisé , la partie rouge ou j'ai le probléme
Private Sub CommandValid_Click()
Dim nomDemandeur As String
Dim dateDemande As Date
Dim filiere As String
Dim annee As Integer
' Récupérer les données saisies dans la UserForm
nomDemandeur = TextBoxNom.Value
dateDemande = TextBoxDate.Value ' Assurez-vous que la date est au bon format
filiere = TextBoxFiliere.Value
annee = CInt(TextBoxAnnee.Value) ' Assurez-vous que l'année est un nombre entier
Dim feuilleCorrespondante As Worksheet
Dim feuilleAcceuil As Worksheet
Dim ws As Worksheet
' Parcourir toutes les feuilles du classeur
For Each ws In ThisWorkbook.Sheets
' Vérifier si le nom de la feuille correspond à la filière choisie
If ws.Name = filiere Then
Set feuilleCorrespondante = ws
Exit For ' Sortir de la boucle dès qu'une correspondance est trouvée
End If
Next ws
' Vérifier si la feuille correspondante a été trouvée
If feuilleCorrespondante Is Nothing Then
MsgBox "Feuille correspondante introuvable pour la filière " & filiere
Exit Sub
End If
' Rendre la feuille d'accueil invisible
Set feuilleAcceuil = ThisWorkbook.Sheets("Acceuil")
feuilleAcceuil.Visible = xlSheetHidden
' Copier les données dans la feuille correspondante
With feuilleCorrespondante
.Range("C7").Value = nomDemandeur
.Range("C8").Value = dateDemande
.Range("C9").Value = filiere
.Range("E7").Value = annee
End With
' Rendre la feuille sélectionnée visible et l'activer
feuilleCorrespondante.Visible = xlSheetVisible
feuilleCorrespondante.Activate
' Fermer la UserForm une fois que le traitement est terminé
Unload Me
End Sub
Merci infiniment ,
Bonjour
Set feuilleAcceuil = ThisWorkbook.Sheets("Acceuil") a remplacer par ("Accueil")
feuilleAcceuil.Visible = xlSheetHidden Idem ici feuilleAccueil
Si cela te convient passe le sujet en résolu
Crdlt
Bonjour et ...
Pour commencer veuillez lire ici :
Charte du forum et informations utiles
(en particulier les points 3 et 4)
- Pour plus de lisibilité, utilisez le bouton pour insérer vos codes VBA et vos formules Excel.
Cordialement
A+
bonjour ,
merci pour votre rectivité
mais le problème persiste tjr
il me donne un blocage sur la ligne coloré
bonjour,
A+
Bonjour
Avec un fichier simplifié fourni dès le début, cela aurait facilité les réponses.
Je n'ai rien modifié dans votre code, sauf le terme "Acceuil" qui s'écrit "Accueil", et l'erreur ne se produit pas, la feuille "Accueil" est bien masquée.
Cdt
Papy Henri
VOILA MON FICHIER
au début les feuilles sont masqué seul la veille d'accueil qui est afficher après le choix la feuille accueil se disparaître et la feuille choisi s'affiche
Bonjour,
Mon dieu que ce code est lourd !
Je n'ai aucun problème ! parce que dans dans le classeur que tu as fourni toutes les feuilles sont affichée. Il n'y a aucun système de gestion pour la visibilité des feuilles...
Il faudrait un système de gestion qui masque toutes les feuilles à la fermeture et affiche la feuille accueil. C'est ce que j'ai fait dans le classeur joint : Voir dans le code du formulaire, dans ThisWorkbook et dans le Module Main.
Inutile de faire 10 modules : Un seul suffira !
A+