Discussion :

[SaLuTgg]

Bonjour, j'aimerais faire en sorte qu'a chaque fois que j'encode un client, le numéro du client augmente de 1.

Si possible j'aimerais aussi qu'il y ait des numéros bis (1.1 ; 1.2 ;...) dans le cas où je mets plusieurs personnes sous une même assurance (par exemple une famille)

Tout ça automatiquement et en vba s'il vous plait



P.S.: je ne suis pas très bon en vba.

[Theze]

Bonjour,

Pour l'incrémentation automatique, tu peux utiliser Max()+1. Ici, en colonne 1 :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub Test()
 
    Dim Num As Long
 
    Num = Application.Max(Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))) + 1
 
    MsgBox Num
 
End Sub

Si possible j'aimerais aussi qu'il y ait des numéros bis (1.1 ; 1.2 ;...) dans le cas où je mets plusieurs personnes sous une même assurance (par exemple une famille)

Pour ça, il va falloir un peu plus d'explications ! Surtout, comment sont rangées tes données quand les personnes sont sous le même numéro de contrat

[patricktoulon]

re
et surtout pour les ajout eventuel d'un membre de la famille dans le contrat il faut non seulement determiner le dernier numero mais aussi dans ce cas la le dernier numero de la famille ainsi que sa ligne pour y inserer le nouveau

conception a revoir

[SaLuTgg]

Bonjour,

Pour l'incrémentation automatique, tu peux utiliser Max()+1. Ici, en colonne 1 :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub Test()
 
    Dim Num As Long
 
    Num = Application.Max(Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))) + 1
 
    MsgBox Num
 
End Sub

Bonjour, comme je l'ai dit, je suis débutant donc peux-tu me dire où je dois le mettre pour que ça fonctionne?

[SaLuTgg]

Pour ça, il va falloir un peu plus d'explications ! Surtout, comment sont rangées tes données quand les personnes sont sous le même numéro de contrat

Imaginons qu'un père souscris une assurance pour lui et toute sa famille. Pour le père (vu que c'est lui qui souscris et qui paie) son numéro sera un nombre entier (1, 2, 3) et pour les membres de sa famille, ça reprendrait le même nombre mais en rajoutant des décimales dérrierres (1.1, 1.2, 1.3,...)

[Transitoire]

Bonsoir,
Attention, sauf erreur ou omission de ma part, 1;2;3 etc sont des chiffres. Alors que 1.1; 1.2 etc c'est du texte, a traiter avec prudence!
Quand a utiliser 1; 2 ; 3 ; 3,1 ; 3,2 la fonction max donnerait Max()+1 =4,2. Il faudra donc adjoindre à la fonction "Max" la fonction "Tronque"

Code :

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

Trunc(Max("A2:A350"))+1

Quand à savoir ou mettre ce code, on connais pas le tien de code, c'est impossible à dire

Cordialement

[SaLuTgg]

Quand à savoir ou mettre ce code, on connais pas le tien de code, c'est impossible à dire

Cordialement

Voici mon projet

[Transitoire]

Bonjour, vous avez déja sur votre projet un compteur de ligne, je l'ai fait fonctionner en mettant la colonne A en nombre sans virgule. en effet, vous verrez sur le code en dessous, que le If(IsNumeric...) renvoi au else s'il ne s'agit pas d'un nombre.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
    Dim tempnum As String
        tempnum = Range("a65000").End(xlUp).Rows
    If (IsNumeric(tempnum)) Then
        lblNum.Caption = tempnum + 1
    Else
        lblNum.Caption = 1
    End If
    code.....

Par ailleurs, en ce qui concerne Les comptages en 3,1 ou 3.1, cela demande à mon sens une modification importantes de structures. Cela oblique à une fiche par personne soit 6 fiches, si 1 abonné et 5 supplémentaires. Le seul avantage réside dans deux choses, une recherche plus simple par nom, et la non limitation à 6 supplémentaires. La balle est dans votre camp.
Cordialement