Discussion :

[Serge621]

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 ...

[Menhir]

En supposant que tu veuilles le faire sur 10 lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Patrice740]

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 VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[Patrice740]

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 ...

[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