XL 2016 vba excel rechercher la plus grande valeur d'une colonne qui contient résultat listbox

[andrekn13]

Bonjour encore une fois !
J'ai un userform11_1 qui sert à ajouter un nouveau produit. la première listeBox demande sur l'une des 3 catégories laquelle on choisie.
j'essaye dans la Textbox suivante de faire apparaître la référence qui devrait s'incrémenter. Sino il faudrait parcourir toute la feuille pour connître la dernière.
Par exemple :
dans la catégorie des "PA" la dernière est PA04, il faudrait donc qu'elle affiche "PA05"
Dans mon fichier j'ai essayé plusieurs macros d'essais mais, décidément, je bug
Merci pour celui qui aurait une idée
mon fichier joint
Merciiiiiii encore

 

[job75]

Bonjour andrekn13,

Pour obtenir les valeurs incrémentées des 3 catégories inspirez-vous de cette macro :

Sub Test()
Dim NewPA$, NewVI$, NewBI$
[Table3[REF]].Name = "P" 'plage nommée
NewPA = "PA" & Format([MAX(IF(ISNUMBER(-SUBSTITUTE(P,"PA",)),--SUBSTITUTE(P,"PA",)))] + 1, "00")
NewVI = "VI" & Format([MAX(IF(ISNUMBER(-SUBSTITUTE(P,"VI",)),--SUBSTITUTE(P,"VI",)))] + 1, "00")
NewBI = "BI" & Format([MAX(IF(ISNUMBER(-SUBSTITUTE(P,"BI",)),--SUBSTITUTE(P,"BI",)))] + 1, "00")
MsgBox NewPA & vbLf & NewVI & vbLf & NewBI 'pour tester
End Sub

A+

 

[Hasco]

bonjour,

Vous verrez dans votre tableau de la feuille "CATEGORIE CODE" (il y avait une espace à la fin) une nouvelle colonne intitulée 'NEXT' et qui contient la formule suivante qui renvoie la prochaine Référence pour le code en question :

=[@CODE] &TEXTE( AGREGAT(14;6;SUBSTITUE(Table3[REF];[@CODE];"")/(GAUCHE(Table3[REF];2)=[@CODE]);1)+1;"00")

il suffit ensuite de le récupérer sur le click de la listBox par ces lignes :

'
' Si l'utilisateur a choisit un item
    If ListBox1.ListIndex > -1 Then
        '
        ' Retourner la prochaine référence pour l'item sélectionne
        Me.TextBox1.Text = ThisWorkbook.Sheets("CATEGORY CODE").Range("Table4[NEXT]")(ListBox1.ListIndex + 1).Value
    End If

Cette Référence n'a rien à voir dans un textbox. Elle ne devrait pas pouvoir être changée par l'utilisateur.
Un Label lui irait mieux.

Avec ces 25 userform et leurs codes respectifs, votre classeur se dirige tout droit vers la belle usine à gaz, d'autant que vous ne nommer pas vos objets, n'indentez pas votre code, commencez tout et ne finissez rien.

Un seul devrait suffire pour la gestion des clients, pas 5.

Déjà vos tableaux de feuilles de calcul, renommez les plutôt que de vous contenter noms donnés par excel et qui ne disent rien du tout. Dans 6 mois ou plus vous ne saurez peut-être plus ce qu'est 'Table4' mais s'il s'appelait 'T_Categories' vous sauriez qu'il s'agit d'un tableau "T_" et qu'il contient les catégories.
Idem pour vos contrôles de userform

"TextBox1" pour celui qui lira votre code (ou vous-même) ne signifie pas grand chose. "TbReference" un peu plus. (Tb pour TextBox )

Excusez-moi pour ces reflexions, mais voyant votre classeur, je me suis dis, que soit vous faisiez quelque chose d'à peu près en espérant que ça ne plante pas, soit que vous alliez vous décourager de ne pas arriver à vos fins.

cordialement

 

[andrekn13]

Bonjour Hasco
tout d'abord, quand j'ai regardé mes mails sur mon tel, et vu ta réponse, je suis resté perplexe ; c'est la première fois que j'ai un aussi long message. Je t'ai relus plusieurs fois avec attention, d'abord pour comprendre le fond. C'est d'une valeur dont tu n'as pas idée, on apprend "sur le tas" mais toujours avec le sentiment qu'on fait les pompiers mais qu'en réalité je n'ai jamais commencé par le "bon bout" , en commençant par le début. Merci pour tes précieux conseils.
et évidemment, même en y passant des nuits entières depuis 2 semaines sur ce fichier, tes réponses comme : "=[@CODE] &TEXTE( AGREGAT(14; ........" reste un véritable mystère , tout comme ce "Dim NewPA$"
c'est fou comme tout est relatif !! et j'ai pas fini d'en bavé
merci je suis très touché
( sur cette recherche de ce résultat j'ai dû passé au moins 8h sans aucun avancement )

 

[Hasco]

Dim NewPA$

Bonjour,

Ce code, qui n'est pas de moi est l'équivalent de

Dim NewPa As String

Les % $ et autre signes en fin de déclaration de variables ont été inventés lorsque les pc avaient très peu de mémoire et une des priorités était son économie.
Aujourd'hui nous disposons de beaucoup de mémoire et pouvons nous permettre des déclaration longues.

Je sais bien que certains ici les utilisent pour leur caractère 'cabalistique' en espérant que leur code fasse plus pro et ce sans explication, mais croyez-moi c'est pas ça qui fait la qualité d'un code. Alors utilisez les déclarations explicites longues, vous vous en serez reconnaissant plus tard.

Cordialement

 

[andrekn13]

merci pour ces super explications !

 

[job75]

Je sais bien que certains ici les utilisent pour leur caractère 'cabalistique' en espérant que leur code fasse plus pro et ce sans explication, mais croyez-moi c'est pas ça qui fait la qualité d'un code. Alors utilisez les déclarations explicites longues, vous vous en serez reconnaissant plus tard.

C'est un question de goût, les adeptes du "plus c'est long plus c'est bon" utilisent :

Dim a As String
Dim b As String
Dim c As String
Dim d As String
Dim e As String
Dim f As String
Dim g As String
Dim h As String
Dim i As String
Dim j As String

Les autres :

Dim a$, b$, c$, d$, e$, f$, g$, h$, i$, j$