incrémentation automatique de deux numéros de série en vba

Version imprimable

12/04/2020, 16h10
Serge621

incrémentation automatique de deux numéros de série en vba

J'ai un problème

Je n'arrive pas à incrémenter deux séries de numéro alphanumérique dans une colonne de ma base de données

si dans la colonne B il y a une valeur B donc le code a incrémenter sera B xxx

Si dans la colonne B il y a une valeur L donc le code a incrémenter sera L xxx

exemple deuxième ligne L001 la suivante L002 , L003 , B001 , L004 , B002 , B003 , L005 ...

En supposant que tu veuilles le faire sur 10 lignes :

Code:

1
2
3
4
Dim Lig As Long
For Lig = 1 To 10
    Cells(Lig + 1, "B") = Cells(1, "B") & Format(Lig, "000")
Next Lig

Bonjour,

Si tu veux faire ça automatiquement en tapant L ou B (ou l ou b) dans la colonne B, code à mettre dans le module de feuille :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, c As Range, s As String, n As Integer, m As Integer
  If Not Intersect(Target, Columns("B")) Is Nothing And Target.Count = 1 Then
    s = Left(UCase(Target.Value), 1)
    If s = "L" Or s = "B" Then
      Set r = Range("B1", Cells(Rows.Count, "B").End(xlUp))
      For Each c In r.Cells
        n = Val(Replace(c.Value, s, "0"))
        If n > m Then m = n
      Next c
      Application.EnableEvents = False
      Target.Value = s & Format(m + 1, "000")
      Application.EnableEvents = True
    End If
  End If
End Sub

Si tu ne veux que L ou B (et pas l ou b), supprimes tous les UCase

12/04/2020, 20h17
Serge621

Patrice merci beaucoup
il faut que je regarde plus précisément puisque la lettre L ou B arrive dans la colonne B suite a un copier coller
J’espère trouver suite à ta réponse
12/04/2020, 21h32
Patrice740

Citation:

Envoyé par Serge621

Patrice merci beaucoup
il faut que je regarde plus précisément puisque la lettre L ou B arrive dans la colonne B suite a un copier coller
J’espère trouver suite à ta réponse

Si le copier / coller ne concerne que cette cellule il n'y a pas de problème
Si tu copies/colles une ligne entière, on peut adapter le code facilement.
Pour un copier/coller de plusieurs lignes il faut voir ...
12/04/2020, 23h23
Serge621

Bonsoir Patrice
je copie une ligne pour alimenter une base de donnée
une ligne fait 103 cellules de données
j'ai modifier ma macro pour alimenter ma base de donnée je colle en premier la valeur de la colonne B puis après les autres ça fonction très bien
je fais un essai demain en ajoutent 100 lignes pour voir si cela fonctionne
j'ai déjà fait un essai en modifiant des données d'un ligne cela n’impacte pas le numéro d’origine
encore merci