Discussion :

[freddy777]

Bonjour, je sais que ma question pourra sembler assez simple pour certain. Toutefois, j'ai fait plusieurs recherche internet et je n'ai pas trouvé de solution qui répond à mon problème. Voici ce que j'aimerais faire :
J'ai une liste clients avec toutes leurs informations. La colonne A contient le # séquentiel afin de distinguer chacun des clients. Le format est C00001, C00002, etc... Le premier # client commence à la ligne 3. J'ai un bouton dans un user form pour créer un nouveau client. J'aimerais quand j'appuie sur ce bouton qu'un nouveau # de client soit ajouté à la prochaine ligne vide avec le # de client suivant.

Est-ce que quelqu'un peut m'aider svp !!!

Merci !

[SfJ5Rpw8]

Bonjour,


tu extrait la partie numérique de ton numéro , tu l'incrémente puis tu utilise la fonction Format pour la mise en forme..:

Code :

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
17
18
19
20
21
22
23
'
' Fonction d'incrémentation numéro de client
'
' Format Numéro client X00000 , Avec X une lettre et 00000 un numéro à incrémenter
'
Function IncNumClient(stNumPrecedent As String) As String
 
    Dim stPLettre As String 'Premiére lettre
    Dim iPrecNum As Long 'Numero précédent
 
    stPLettre = Left(stNumPrecedent, 1) 'Extraction 1° lettre
    iPrecNum = CLng(Mid(stNumPrecedent, 2)) 'Extraction Numéro..
 
    IncNumClient = stPLettre & Format(iPrecNum + 1, "00000")
 
 
End Function
 
 
Sub TestFonctionIncremetation()
 MsgBox "C00010 devient : " & IncNumClient("C00010")
 
End Sub

[Invité]

bonjour,

Code :

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

1
2
3
4
5
6
7
Function IncrementClient(V As String) As String
IncrementClient = "C" & Format(Val(Right(V, Len(V) - 1)) + 1, "00000")
End Function
Sub test()
Range("A1") = "C00001"
Range("A2:A10").FormulaR1C1 = "=IncrementClient(R[-1]C)"
End Sub

[Theze]

Bonjour,

Testes ce qui suit. Il faut qu'au moins deux cellules aient déjà une valeur, A3 = C00001 et A4 = C00002 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub CommandButton1_Click()
 
    Dim Cel As Range
 
    Set Cel = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1)
 
    With Cel
        Range(.Offset(-2), .Offset(-1)).AutoFill Range(.Offset(-2), Cel)
    End With
 
End Sub

[freddy777]

Theze,

Ta formule fonctionne à merveille !!

Merci !