Formulaire VBA insertion tableau

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

Je suis complètement débutante dans ce domaine, j'ai surtout regardé beaucoup de vidéos pour faire ce que j'ai fais jusqu'à présent. Néanmoins, me voilà bloquée sur un point et impossible de trouver où se situe le problème :

J'ai réalisé un formulaire personnalisé userform, j'aimerais que en cliquant sur enregistrer, les données qui sont inscrites dans le formulaire se positionnent sur une nouvelle ligne dans mon tableau. Or, comme c'est un tableau encore entièrement vide, la première ligne colorée est considéré par mon code comme étant remplie, et du coup, mon code crée une nouvelle ligne en dessous et laisse vide la première du dessus.

Pour illustrer mon propos, voici une capture d'écran :Pièce jointe 503350

Et voilà un bout de mon code, là où je suppose qu'il manque une petite information permettant de résoudre mon problème.
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub GO_Click() Feuil1.Range("a1048576").End(xlUp).Offset(1, 0).Select ActiveCell = ActiveCell.Offset(-1, 0) + 1 ActiveCell.Offset(0, 1) = Me.A ActiveCell.Offset(0, 2) = Me.B End Sub
En résumé : Mon code ne me permet pas de remplir mon tableau dès sa première ligne. Et en plus il ne "prolonge" pas mon tableau quand des nouvelles données s'ajoutent. Peut-être faut-il que j'ajoute le nom de mon tableau ?

Par avance merci et bon après-midi.

16/09/2019, 13h47
Trystan441

Bonjour,

J'ai eu la même réflexion dans le passé !

J'ai corrigé cela en réduisant d'une ligne mon tableau. Ce qui fait que ta procédure dès la réelle première ligne vide et agrandira ton tableau en même temps.
16/09/2019, 13h54
Invité

Citation:

Envoyé par Trystan441

Bonjour,

J'ai eu la même réflexion dans le passé !

J'ai corrigé cela en réduisant d'une ligne mon tableau. Ce qui fait que ta procédure dès la réelle première ligne vide et agrandira ton tableau en même temps.

C'est ce que je pensais, "malheureusement" quand on crée un tableau ("Mettre sous forme de tableau"), une première ligne vide colorée (ou non cela dépend du modèle choisi) se met automatiquement après les en-têtes et n'est visiblement pas retirable ...
16/09/2019, 14h06
Menhir

Je ne sais pas si ta méthode fonctionne mais, personnellement, lorsque j'ajoute une ligne à un tableau structuré, je passe toujours par la méthode Resize.
A lire : https://docs.microsoft.com/fr-fr/off...tobject.resize
16/09/2019, 15h47
Invité

Citation:

Envoyé par Menhir

Je ne sais pas si ta méthode fonctionne mais, personnellement, lorsque j'ajoute une ligne à un tableau structuré, je passe toujours par la méthode Resize.
A lire : https://docs.microsoft.com/fr-fr/off...tobject.resize

Je n'arrive pas à appliquer cette méthode.
16/09/2019, 15h55
Menhir

Citation:

Envoyé par Qwerty00

Je n'arrive pas à appliquer cette méthode.

Si tu ne montres pas ce que tu as fait, difficile de savoir où tu as commis une erreur.
16/09/2019, 18h08
galopin01

Bonjour,
C'est le principal inconvénient avec ces tableaux structurés : Il faut s'approprier un nouveau vocabulaire, oublier les plages déclarées en DECALER, les End(XlUp)...
Sous ce lien un petit classeur qui te décortique la méthode pour ajouter un enregistrement.
A+
16/09/2019, 19h08
laurent_ott

Bonjour.
J'ai écrit une documentation sur les manipulations des tableaux structurés, avec des fonctions prêtes à l'emploi et qui répondent à vos besoins je pense (et je vous le souhaite).
Voir dans ma signature le tome 5.
17/09/2019, 08h21
Invité

Bonjour,

Citation:

Envoyé par Menhir

Si tu ne montres pas ce que tu as fait, difficile de savoir où tu as commis une erreur.

Je ne peux rien vous montrer car je n'ai pas vraiment compris où je devais l'appliquer, comment bien l'appliquer.

Citation:

Bonjour,
C'est le principal inconvénient avec ces tableaux structurés : Il faut s'approprier un nouveau vocabulaire, oublier les plages déclarées en DECALER, les End(XlUp)...
Sous ce lien un petit classeur qui te décortique la méthode pour ajouter un enregistrement.
A+

Je prends bien note de cette information, merci.

Citation:

Bonjour.
J'ai écrit une documentation sur les manipulations des tableaux structurés, avec des fonctions prêtes à l'emploi et qui répondent à vos besoins je pense (et je vous le souhaite).
Voir dans ma signature le tome 5.

Je vais feuilleter cela, merci. Si jamais je résous mon problème, je fermerai le sujet avec en edit mon code.
17/09/2019, 08h48
Menhir

Citation:

Envoyé par Qwerty00

Je ne peux rien vous montrer car je n'ai pas vraiment compris où je devais l'appliquer, comment bien l'appliquer.

Tu ne fais absolument aucun effort pour participer à la résolution de ton problème.
Désolé mais tu as dépassé les limites de ma patience. Perso, j'arrête là.
Bonne chance pour la suite.
17/09/2019, 09h08
Invité

Citation:

Envoyé par Menhir

Tu ne fais absolument aucun effort pour participer à la résolution de ton problème.
Désolé mais tu as dépassé les limites de ma patience. Perso, j'arrête là.
Bonne chance pour la suite.

Veuillez m'excuser mais comme cité au tout début de ma conversation, je suis complètement débutante dans le domaine. Votre lien possède des explications sûrement très instructives pour quelqu'un qui s'y connaît. Malheureusement pour moi, c'est un peu du chinois et ce malgré toute ma bonne volonté. Je ne veux pas que l'on me prémâche le travail, je veux que l'on prenne un peu de temps pour m'expliquer plus en détails, pas à pas peut-être même, si vous m'accordez un peu de votre temps. Sachez que nous n'avons pas tous votre niveau de compréhension.

Je vous remercie et vous souhaite une agréable journée.
17/09/2019, 13h30
Trystan441

Bonjour,

Etant donné que tu es débutante, il y a un moyen très simple de résoudre le souci !

Tu rentres les données de ta première ligne à la main.
-> La première ligne de ton tableau sera considérée comme rempli (pour le tableau structuré)

Puis tu utilises ensuite ta macro.
-> Les données se mettront à la suite et ton tableau se redimensionnera

Citation:

Envoyé par Trystan441

Bonjour,

Etant donné que tu es débutante, il y a un moyen très simple de résoudre le souci !

Tu rentres les données de ta première ligne à la main.
-> La première ligne de ton tableau sera considérée comme rempli (pour le tableau structuré)

Puis tu utilises ensuite ta macro.
-> Les données se mettront à la suite et ton tableau se redimensionnera

Bonjour,
C'est une bonne idée, mais ça ne sera pas très pratique car une fois terminé, j'aimerais bien bloquer la feuille pour que personne ne puisse faire de modification à l'intérieur et que la seule manière de remplir le tableau soit le formulaire.

Mais je suis en train de regarder une autre manière simple également de contourner mon problème :
J'ai transformé mon tableau en simple plage de données : de cette façon la première ligne après les en-têtes est considérée comme vide automatiquement.
Malheureusement je rencontre de nouveau un problème, je n'arrive pas à appliquer un code qui permettrait de "Si la ligne sélectionnée est déjà remplie, passage à la ligne en dessous pour écrire ce qu'il y a dans le formulaire" en gros. Car avec mon code actuel, ce que je veux enregistrer dans mon fichier remplace une ligne déjà remplie.

Voilà mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Private Sub Enregistrer_Click() 'Enregistrer la saisie fait dans le formulaire 'On cherche la prochaine ligne vide du tableau Feuil1.Activate Feuil1.Range("a1048576").End(xlUp).Offset(1, 0).Select ActiveCell.Offset(0, 0) = Me.txt1 ActiveCell.Offset(0, 1) = Me.txt2 ActiveCell.Offset(0, 2) = Me.txt3 ActiveCell.Offset(0, 3) = Me.txt4 ActiveCell.Offset(0, 4) = Me.txt5 ActiveCell.Offset(0, 5) = Me.txt5 ActiveCell.Offset(0, 6) = Me.txt6 ActiveCell.Offset(0, 7) = Me.txt7 ActiveCell.Offset(0, 8) = CDate(Me.txt8) ActiveCell.Offset(0, 9) = Me.txt9 If MsgBox("Voulez vous entrer une nouvelle donnée?", vbYesNo) = vbNo Then Unload Me End If End Sub