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+