Problème incrémentation chiffre et lettre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

vassili

XLDnaute Occasionnel
Bonjour le forum,

Voila j'ai un soucis d'incrémentation de chiffre et de lettre en fonction de plusieurs combobox lors de l'insertion de n ligne.

C'est surement pas compliqué mais la je sèche un peu...

Les explications sont dans le fichier:

Regarde la pièce jointe TestVassili_v2.xls

En vous remerciant beaucoup par avance,

Vassili
 

Pièces jointes

Re : Problème incrémentation chiffre et lettre

Re,

En faite la fonction que tu as faite prend en compte le nombre de total de S en fonction des identifiants du matériel et incrémente par la suite.
Or ce qu'il faudrait c'est plutôt prendre en compte le dernier numéro du S inscrit dans le paquet de matériel et incrémenter par la suite.

Je te joint un fichier,

Regarde la pièce jointe TestVassili_v3.xls

Merci et a bientot
 

Pièces jointes

Re : Problème incrémentation chiffre et lettre

Bonjour vassili,

Après 16 messages on commence à comprendre la problématique, chouette

encore un essai, je ne sais pas si j'en ferais beaucoup d'autres

Code:
        For lgLig = 1 To Dline
            If .Range("A" & lgLig).Value = UserForm1.ComboBox1.Text And _
                .Range("B" & lgLig).Value = UserForm1.ComboBox2.Text And _
                .Range("C" & lgLig).Value = UserForm1.ComboBox3.Text And _
                .Range("E" & lgLig).Value = UserForm1.ComboBox4.Text And _
                .Range("F" & lgLig).Value Like strlettre & "*" Then
                num = CLng(Replace(.Range("F" & lgLig).Value, strlettre, ""))
                If num > nummax Then nummax = num
            End If
        Next lgLig
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
670
Retour