XL 2019 Pb chargement formulaire

[Did25]

Bonjour le forum ,j'ai effectué des modification sur un ancien fichier pour une autre utilisation et en modifiant plusieurs paramètres je n'arrive plus a trouver la solution pour le chargement du formulaire validation ,les informations de validations et de noms ne se chargent pas .J'ai tellement fait d'essais que je suis un peu perdu ,merci de votre aide

 

[Bebere]

Bonjour
Voilà un exemple

 

[Did25]

Bonjour Bebere ,j'ai modifier un peu le formulaire par rapport a mes besoins ,mais la validation ne fonctionne pas ,merci de ton intervention

 

[Bebere]

Bonjour
Les 2 tableaux étaient mal initialisés

 

[Did25]

Bonjour le forum bonjour Bebere ,je viens de faire un essai qui est pas mal du tout mais le problème viens du fait que je me sert d'une feuille masquée contenant un tableau "X"pour en créer une nouvelle feuille ,mais avec un nom différent .Cette nouvelle feuille se retrouve avec un nom de tableau différent et donc mon formulaire ne fonctionne pas .Voici mon fichier modifié

 

[Did25]

Bonjour le forum ,bonjour bebere ,j'ai repris mon fichier et j'ai trouver une solution a mon pb ,malheureusement mon Usf de création d'onglets ne fonctionne plus ,je ne trouve pas pourquoi .Merci de bien vouloir regarder

 

[Bebere]

Bonjour
Un essai, fait une liste ds feuille liste

 

[Did25]

Bonjour ,je cherche plutôt une solution ou l'utilisateur de ce fichier soit libre au niveau des dates de création d'onglet ,c'est à dire qu'il puisse saisir dans la TextBoxdate n'importe qu'elle date pour sa création d'onglet .Est-ce possible ? Bien entendu je dois obliger l'utilisateur a respecter des règles de mise en forme (format).

 

[Bebere]

Bonjour
remarque dans userform et code

 

[Did25]

Bonjour bebere bonjour le forum ,désolé de mon retard mais je travaille en horaire décalé ,je ne trouve plus le temps de répondre ,merci de votre intervention pour ma ma part c'est nickel .Bonne journée

 

[Did25]

Rebonjour ,je viens de faire un dernier essai sur le fichier joint et je m'aperçois que lorsque j'essaie de faire une validation paiement par USF sur un tableau vide ça plante alors que sur un tableau avec la première ligne remplie ça fonctionne ,comment puis-je corriger cela

 

[Bebere]

Bonjour
Tu crées mal le tableau
onglet: accueil , menu:mettre sous forme de tableau
sélection de la ligne avec les en-têtes de colonne plus une ligne vide
ne pas oublier de cocher la case mon tableau comporte des en-têtes
ensuite donner un nom

 

[Did25]

Bonjour Bebere je viens d'essayer avec ce que tu me dis mais cela ne fonctionne toujours pas et pourtant je renomme bien le tableau après "TblValidation" , je sèche

 

[Bebere]

Bonjour
"TblValidation" ,manque quelque chose
pourquoi chambouler un code qui fonctionne,c'est tout de même plus lisible "TblValidationMars" que "TblValidation3"

 

[Did25]

Bonjour Bebere en effet vous avez raison je n'avait pas fait attention a ma formule qui stipule en objet le tableau +le nom de la feuille
Set Ws = Worksheets(CboNomFeuille.Value)
Nom = "TblValidation" & Me.CboNomFeuille
Set ListObj = Ws.ListObjects(Nom)
Mais sur un autre fichier avec le même formulaire et tableau ,j'utilise ceci :
Private Sub cmdbajouter_click()
Dim LI As Integer
Dim OD As Worksheet
If Me.CboNomFeuille.Value = "" Then
MsgBox "Veuillez sélectionner un cycle de semaines ", vbOKOnly + vbInformation, "Validation"
CboNomFeuille.SetFocus
Exit Sub
End If
Set OD = Worksheets(CboNomFeuille.Value)
If OD.Range("C2").Value = "" Then
LI = 2
Else
OD.ListObjects(1).ListRows.Add
LI = OD.Range("C1").End(xlDown).Row + 1
End If
For x = 1 To 6
OD.Cells(LI, x + 2).Value = Me.Controls("Cont" & x).Value
Next x
End sub
Et ça fonctionne aussi merci pour votre patience et vos réponse ,grâce a vous et le forum XLD ,je continue d'apprendre et progresser .Bonne journée