XL 2019 Problème d'ajout automatique de lignes à un tableau : la première s'ajoute au tableau mais pas les suivantes !

[Clemee61]

Bonjour à tous,
J'ai un fichier Excel avec un tableau qui se rempli grâce à un formulaire. Lorsque le formulaire (qui représente une fiche d'inscription) est validé, un tableau se rempli avec une ligne par personne inscrite sur le formulaire (intitulé "fiche client").
Mon problème est que la première ligne vient bien compléter le tableau existant mais pas les suivantes.
Je ne suis pas sûr que ce soit un problème de VBA car tout fonctionnait grâce aux très larges contribution de @vgendron et @ChTi160.
Ma question est la suivante : sur le fichier joint, comment insérer plusieurs lignes à partir de la "fiche client" dans le tableau de l'onglet "inscription" ?
Merci à ceux qui se pencheront sur la question.

 

[ChTi160]

Bonsoir Clemee61
J'espère que tu vas bien
Ce que j'ai modifié dans la Procédure "Private Sub BtnNouveau_Click()"
j'ai supprimé une boucle et Changé les "j" en "i" pour ne faire qu'une Boucle de 4

Private Sub BtnNouveau_Click() ' Bouton nouveau client = AUCUN séjour n'a déjà été effectué
    Dim derligne As Integer
    
    ' Controle de la saisie des dates de naissance
    For i = 1 To 4 'pour les 4 enfants
        If Me.Controls("Txt_Nom" & i) <> "" And Len(Me.Controls("Txt_Age" & i)) = 0 Then 'si il y a un nom, mais pas de date de naissance
            MsgBox ("Saisie de la date de naissance obligatoire !")
            Me.Controls("Txt_Age" & i).SetFocus
            Exit Sub
        End If
'    Next i ''''''''''''''''''Supprimer
    
     ' Controle de la saisie des dates de début de séjour
 
'  For j = 1 To 4 'pour les 4 enfants ''''''''''''''''''Supprimer
        If Me.Controls("Txt_Nom" & i) <> "" And Len(Me.Controls("Txt_DatFin" & i)) = 0 Then 's'il y a un nom, mais pas de date de début de séjour
            If MsgBox("Êtes vous sur de ne pas mettre de date de séjour ?", vbYesNo, "Dates de séjour") = vbNo Then
                 Me.Controls("Txt_DatFin" & i).SetFocus
                Exit Sub
        End If
      End If
    Next i '''''''''''''''''j'ai modifié les J en i

Je ne sais pas si ça réponds a ta demande , à voir donc ,tiens nous au courant !
Jean marie

 

[Clemee61]

Bonjour Jean-Marie,

Merci pour la simplification du code et oui tout va très bien pour moi. J'espère que pour toi aussi.

Cependant cela ne change rien au problème. Les lignes créées correspondent bien à ce qui doit être fait mais seule la première ligne est comprise automatique dans le tableau, les autres sont en dessous (du tableau). Résultat si j'ajoute les données d'une nouvelle fiche, cela écrase les données en dehors du tableau.

Cela est d'autant plus incompréhensible que tout fonctionnait bien sur une ancienne version et ne fonctionne plus maintenant. D'où j'imagine que ce n'est pas une histoire de code...Mais de quoi ???
Si quelqu'un à la réponse, peut-être que c'est tout bête ! (j'espère ).

Cédric

 

[Clemee61]

J'ai une idée mais je n'arrive pas à la mettre en œuvre (en code devrais je dire !) :

Puisque les lignes sont en dehors du tableau, il suffirait d'étirer le tableau jusqu'à la dernière ligne.

Je vais à la dernière ligne :

Range("A" & Rows.Count).End(xlUp).Select


Là il faudrait nommé cette cellule par exemple "DerCel", DerLigne étant un numéro


Ensuite j'agrandi le tableau :

ActiveSheet.ListObjects("t_Inscriptions").Resize Range("$A$2:BBDerCel")
Range("t_Inscriptions").Select

Bon alors c'est de la bidouille qui ne va pas plaire aux spécialistes évidemment mais si ça marchait je m'en contenterais bien moi. Pour l'instant je n'ai pas réussi. Si quelqu'un peut m'aider...

Cédric

 

[ChTi160]

Bonsoir Clemee61
Je ne comprends pas ()
tu dis :

Cependant cela ne change rien au problème. Les lignes créées correspondent bien à ce qui doit être fait mais seule la première ligne est comprise automatique dans le tableau, les autres sont en dessous (du tableau). Résultat si j'ajoute les données d'une nouvelle fiche, cela écrase les données en dehors du tableau

Chez moi si j'ajoute de Fois Trois enfants cela me met bien les données dans le tableau structuré nommé "t_Inscriptions" ou alors je n'ai pas compris Lol
voir la vidéo juste pour montrer chez mois ce que cela donne §
Jean marie

 

[Clemee61]

Tu as

Bonsoir Clemee61
Je ne comprends pas ()
tu dis :

Chez moi si j'ajoute de Fois Trois enfants cela me met bien les données dans le tableau structuré nommé "t_Inscriptions" ou alors je n'ai pas compris Lol
voir la vidéo juste pour montrer chez mois ce que cela donne §
Jean marie

bien compris,
Quand je mets un nom ça marche aussi. Mais quand j'en mets 2 ou plus, seul le premier entre dans le tableau.
C'est très énervant si ça marche ailleurs !

 

[ChTi160]

Re
Chez moi c'est ok ! j'ai du réduire car ensuite le fichier est trop gros
J'essaie une autre vidéo avec 2 puis 1 lol !
Jean marie
j'utilise le Fichier du Post #3

 

[Clemee61]

Bon ben la bonne nouvelle c'est que c'est pas un problème de code

La mauvaise c'est que je ne sais pas d'où il vient ... Demain j'essaie sur un autre ordi

 

[Clemee61]

Les mystères de l'informatique me sont impénétrables.

J'ai essayé sur mon ordinateur portable qui possède aussi Excel 2019 et tout fonctionne !

Si quelqu'un à une idée d'explication je suis preneur !

 

[Clemee61]

Puisque toute fonctionne sur d'autre ordi je vais mettre résolument, j'essaierai peut-être de réinstaller Excel sur mon ordi principal pour voir si cela résout l'affaire !