Problème incrémentation chiffre et lettre

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

  • TestVassili_v2.xls
    64.5 KB · Affichages: 64
  • TestVassili_v2.xls
    64.5 KB · Affichages: 61

vassili

XLDnaute Occasionnel
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

  • TestVassili_v3.xls
    71.5 KB · Affichages: 33
  • TestVassili_v3.xls
    71.5 KB · Affichages: 36

tototiti2008

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
18
Affichages
633

Statistiques des forums

Discussions
312 215
Messages
2 086 322
Membres
103 178
dernier inscrit
BERSEB50