incrémentation en vba

[billyboy]

bonjour le forum,
afin d'incrémenter des n° d'article, je chercher à réaliser l'opération suivante:

j'ai des numéros d'article dont le suffixe change en fonction de leur classe

ex: MPCOL0001 > Matières Première Colle n°0001
dans un userform
1 exécuter un tri dans tous les N° d'articles existants (combobox1)
2 extraire le dernier N° crée (maxi)
3 attribuer un nouveau n° > maxi + 1 (a mettre dans un textbox)

merci de votre aide

 

[kjin]

Re : incrémentation en vba

Bonjour,
Sans doute la plus grande valeur d'une plage filtrée, mais sans ton formulaire c'est compliqué
A+
kjin

 

[billyboy]

Re : incrémentation en vba

bonjour kjin,

Je te joins une ébauche du fichier, il est en cours d'élaboration mais cela te permettra de visualiser la problématique.

Merci par avance

 

[billyboy]

Re : incrémentation en vba

je suis toujours bloqué sur ce sujet,
y-a-t-il quelqu'un pour me venir en aide?

 

[kjin]

Re : incrémentation en vba

Bonsoir,

Private Sub ComboBox1_Change()
Dim C As String, Txt As String, Num As String, x As Byte, L As Long
[COLOR="Green"]'sans commentaire[/COLOR]
With Sheets("Source")
[COLOR="Green"]'on désactive le filtre au cas où[/COLOR]
.AutoFilterMode = False
[COLOR="Green"]'on trie par ordre croissant la colonne A, très important pour la suite[/COLOR]
.Range("A5:K" & .UsedRange.Rows.Count).Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlGuess
[COLOR="Green"]'on applique un filtre sur la colonne A avec combo1 comme critère[/COLOR]
.Range("A6").AutoFilter Field:=3, Criteria1:=ComboBox1
[COLOR="Green"]'on détecte la dernière ligne L de la plage filtrée et on obtient la cellule à incrémenter[/COLOR]
L = .Cells.SpecialCells(xlCellTypeVisible).End(xlDown).Row
[COLOR="Green"]'on boucle sur tous caractères de la cellule(ligne L, colonne 1)[/COLOR]
For x = 1 To Len(.Cells(L, 1))
    '[COLOR="Green"]on extrait la valeur de chaque caractère C[/COLOR]
    C = Mid(.Cells(L, 1), x, 1)
    '[COLOR="Green"]s'il n'est pas numérique ou s'il est égal à "0"[/COLOR]
    If Not IsNumeric(C) Or C = "0" Then
       [COLOR="Green"] 'alors on l'ajoute à la suite de la variable Txt[/COLOR]
        Txt = Txt & C
    Else
[COLOR="Green"]        'sinon on extrait les derniers caractères qui constitueront le chiffre Num à incrémenter[/COLOR]
        Num = Mid(.Cells(L, 1), x, Len(.Cells(L, 1)))
        [COLOR="Green"]'et de fait on quitte la boucle[/COLOR]
        Exit For
    End If
Next
[COLOR="Green"]'on désactive le filtre[/COLOR]
.AutoFilterMode = False
[COLOR="Green"]'sans commentaire[/COLOR]
End With
[COLOR="Green"]'on ajoute à la Textbox1 la variable Txt et la variable Num incrémentée de 1[/COLOR]
TextBox1 = Txt & Num + 1

End Sub

A+
kjin

 

[billyboy]

Re : incrémentation en vba

merci bcp kjin, ça marche à merveille,

vu mon niveau débutant et si jamais tu as un peu de temps, pourrais-tu m'expliquer ton code, car je t'avoue que je n'ai pas tout suivi.

encore une fois merci.

 

[kjin]

Re : incrémentation en vba

Bonsoir,
En fait c'est très simple.
J'ai rajouté les commentaires dans le code du post précédent
A+
kjin

 

[billyboy]

Re : incrémentation en vba

Bonjour kjin,
Je te remercie pour ces explications, elles me permettrons de pouvoir réutiliser ce code pour d'autre applications.

A+