VBA EXCEL tableaux structurés

Bonjour tout le monde,

Voilà, j'arrivais jusqu'à présent à me débrouiller (après avoir appris grâce à vous) à construire des applications sur la base de tableaux non structurés sur excel. J'ai lu il n'y a pas très longtemps un article sur la simplification du codage, et la sécurisation des données en utilisant des tableaux structurés. Ceci étant passer de l'un à l'autre relève d'un vrai challenge. Je m'explique :
j'ai crée deux tableaux structurés sur deux feuilles différentes :
- tableau 1 (appelé "t_disputes") sur feuille 1 ("appelée disputes")
- tableau 2 (appelé "t_intervenants") sur feuille 2 (appelée "intervenants")
Sur chaque tableau, j'ai une colonne appelée (ID)
J'ai créé 1 formulaire sur l'éditeur VBA pour la création des disputes, contenant un Label ID (ce sera la même procédure pour la création des intervenants).
Ce que je voudrais, c'est que dès l'ouverture du formulaire, il me récupère le dernier ID, qu'il incrémente +1 à cet ID et qu'il m'affiche dans le Label le nouvel ID pour créer une nouvelle "dispute". Quand j'utilisais les tableaux non structurés, je savais faire. Mais, souhaitant plus de simplicité et de sécurité, je souhaite utiliser les tableaux structurés. Mais là, je sèche. J'ai beaucoup regardé les tutos de Jacques Boisgontier et Fauconnier (sur ce forum) qui m'ont souvent été d'une grande aide. Mais là, je ne sais pas comment faire. En gros la procédure, si c'est la même, serait :
- repérer la dernière ligne non vide du tableau structuré
- mettre dans une variable la valeur de la première cellule de la ligne non vide
- ajouter +1 à cette valeur
- incrémenter cette nouvelle valeur dans le label (ce que je sais faire : me.label.value= nouvelle valeur).

Je pensais vraiment qu'il était plus simple d'utiliser les tableaux structurés (peut-être est-ce vrai) mais là, je trouve que c'est plus compliqué.

Je vous remercie de l'aide que vous m'apporterez. Je ne joins pas le fichier XLS parce que je débute et que pour le moment, à part les tableaux, ben y'a rien puisque je galère.

Bien cordialement.

Steph

Salut.

Il est effectivement plus simple, selon mes critères, de programmer VBA avec des tableaux structurés.

Tu parles d'atteindre une ligne "non vide" d'un tableau structuré... Comme je l'explique dans mon tuto, une ligne vide ne devrait jamais exister dans un tableau structuré, puisqu'Excel étend le tableau structuré aux nouvelles saisies.

Dès lors, trouver l'ID max et y ajouter un ne pose pas de problèmes, surtout en pensant Excel avant de penser VBA...

Sur base du tableau structuré t_Disputes, on peut utiliser une fonction qui renvoie le nouvel ID

Pièce jointe 589870

Pièce jointe 589871


Tu utilises cette fonction pour pousser la nouvelle valeur dans le contrôle souhaité de ton userform.


Les tableaux structurés te permettent de te détacher de la place des données dans ton classeur, de leur nombre, de la place des colonnes dans le tableau structuré. Le code que je te donne ci-dessus continue à fonctionner sans aucune modification si tu déplaces ton tableau, permutes des colonnes, en ajoute, en supprime, sans te soucier du nombre de lignes... Evidemment, ton tableau ne peut pas être renommé, et la colonne utilisée, ici ID, non plus...

Bonjour le Fil,

En pensant Excel avant de penser VBA ...
On peut aussi créer un ID sans VBA :
=LIGNE(Tableau1[#Cette ligne])-LIGNE(Tableau1[#En-têtes])

Bonjour Pierre,

Dans un premier temps, je te remercie de la réponse que tu m'as apportée. J'ai déjà jeté un (plusieurs) oeil (yeux) sur le très bon tuto que tu as mis en ligne sur ce site. Malheureusement je n'y avais pas trouvé la réponse à ma question.
Je viens de saisir le code que tu m'as transmis. Le premier lancement du formulaire se déroule normalement et j'ai bien l'ID 1 qui s'affiche dans le label. En revanche, si je rajoute plusieurs ligne (1, 2, 3, 4, 5 .......) et que je relance le formulaire, j'ai une erreur qui s'affiche 'incompatibilité de type'. J'ai beau mettre la variable newid en string, en long ou en integer, rien n'y fait.
Aurais-tu une idée d'où pourrait provenir l'erreur.
voici le code :

Code:

---

1 2 3 4 5 6 7

Dim newid As Integer If Range("t_disputes").ListObject.DataBodyRange Is Nothing Then newid = 1 Else newid = Evaluate("max(t_disputes[ID]") + 1 End If Me.ID.Caption = newid

---

Je te remercie dans tous les cas de ta réponse.

Bien cordialement.

Steph

Citation:

---

Envoyé par Patrice740

Bonjour le Fil,

En pensant Excel avant de penser VBA ...
On peut aussi créer un ID sans VBA :
=LIGNE(Tableau1[#Cette ligne])-LIGNE(Tableau1[#En-têtes])

---

Bonjour Patrice,

Je te remercie de cette précision. En revanche, je souhaite vraiment tout passer en VBA. Je n'ai aucun calcul à réaliser dans les cellules. Je préfère donc retrouver tous les codes sous vba et ne pas avoir à naviguer entre les feuiles, les cellules et les Usrform.
Merci quand même de cette précision que je garde de côté si un jour j'en ai besoin.

Cordialement.

Stéph

Citation:

---

Envoyé par Patrice740

Bonjour le Fil[...]

---

Attention toutefois que si jamais on supprime une ligne, tous les ID suivants vont se décaler. Je suis donc très dubitatif sur cette solution, dès lors que l'ID est utilisé ailleurs (ce qui est le propre d'un ID) => L'occasion de rappeler, une fois de plus, qu'Excel n'est pas un SGBD et que vouloir bétonner les ID autoincrémentés avec Excel est une chimère.