Code VBA à modifier

Version imprimable

Code VBA à modifier

Bonjour

je suis sur un mini projet de gestion de remise de bordereau, je suis bloqué au niveau de la numérotation, avec ce code tout va bien mais je veux avoir une numérotation pour chaque société choisie ( dans mon cas c'est combobox2 ) . ex si combobox2 contient le nom la société (MOMO) la numérotation dans la feuille NUMERO est dans la collonne A avec le nom de la société en B si combobox2 contient le nom la société (LOLO) la numérotation dans la feuille NUMERO est dans la collonne C avec le nom de la société en D. et ainsi de suite...

voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Option Explicit
 
    Private Sub ComboBox1_DropButtonClick()
      Dim Rng As Range, f As Worksheet, MaxNum As Long, Numerosuivant As Long
      ' si la combo est vide, on sort
     If Me.ComboBox1.Value = "" Then Exit Sub
      ' Initialiser MaxNum
     MaxNum = 0
      ' Définir une variable objet pour la feuille source
     Set f = Sheets("NUMERO")
      ' Pour chaque cellule de la colonne
     For Each Rng In f.Range("A2:A" & f.Range("A" & Rows.Count).End(xlUp).Row)
        If Rng.Value <> "" Then
          If CInt(Left(Rng, 4)) = CInt(Me.ComboBox1) Then
            If Rng.Value > MaxNum Then MaxNum = Rng.Value
          End If
        End If
      Next Rng
      ' Incrémenter de 1 pour le numéro suivant
     Numerosuivant = MaxNum + 1
      ' Si le dernier numéro trouvé est bien un numéro de dossier
     If MaxNum > 19000000 Then
        TextBox1.Value = Numerosuivant
      Else
        ' Sinon l'inscrire avec le bon format
       TextBox1.Value = Me.ComboBox1 & Format(Numerosuivant, "0000")
      End If
    End Sub
 
    Private Sub CommandButton1_Click()
      Unload Me
    End Sub
 
    Private Sub Cbn_Enregistrer_Click()
      Dim NLig As Long, NumDossier As Long, cell As Range
      ' Avec la feuille
     With Sheets("NUMERO")
        ' Récupérer le numéro de la prochaine ligne vide
       NLig = .Range("A" & Rows.Count).End(xlUp).Row + 1
        ' Poser la question
       If MsgBox("Voulez-vous Valider cet enregistrement? " & vbTab, vbYesNo) = vbYes Then
          NumDossier = Me.TextBox1.Value
          Set cell = .Range("A2:A65655").Find(Val(TextBox1), lookat:=xlWhole)
                    If Not cell Is Nothing Then
                        MsgBox ("Ce numéro a été déja utilisé;" & Chr(10) & _
                                        " Choisissez un autre numéro !")
          .Range("A" & NLig).Value = ""
          Else
          .Range("A" & NLig).Value = NumDossier
          ' Trier les numéros
 
        End If
      End If
      End With
      With Worksheets("REMISE")
    .Range("G2") = NumDossier
    UserForm3.TextBox22.Value = Range("G2").Value
    End With
      Unload Me
    End Sub
 
 
    '---Alimente la liste déroulante année budgétaire-----
    Private Sub UserForm_Initialize()
      Dim Lig5 As Integer
      For Lig5 = 1899 To 2999
        Me.ComboBox1.AddItem Lig5
      Next Lig5
      Me.ComboBox1 = Year(Now)
      Call ComboBox1_DropButtonClick
      'Enlever le cadre de l'UF
          OteTitleBarre Me.Caption, False 'True pour le remettre
 
    End Sub

Merci à vous

11/05/2017, 09h36
Menhir

Citation:

Envoyé par maximob

je veux avoir une numérotation pour chaque société choisie ( dans mon cas c'est combobox2 ) . ex si combobox2 contient le nom la société (MOMO) la numérotation dans la feuille NUMERO est dans la collonne A avec le nom de la société en B si combobox2 contient le nom la société (LOLO) la numérotation dans la feuille NUMERO est dans la collonne C avec le nom de la société en D. et ainsi de suite...

On ne peut pas créer un code avec des exemple. Il faut une règle générale.

Quelle est la règle liant le nom d'une société à une colonne ?
11/05/2017, 11h05
maximob

1 pièce(s) jointe(s)

Merci pour votre temps.

j'ai donné seulement un exemple car le projet contient des infos confidentiels liés à mon travail, donc ....

je vais vous aider un peu pour m'aider :D

Pièce jointe 274080
11/05/2017, 12h03
Marc-L

Bonjour,

juste en indiquant le nom de la société en entête de colonne …

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
11/05/2017, 17h15
maximob

Re

je veux avoir devant chaque numéro en colonne A le nom de la société en colonne B. comme ça j'aurais une continuité de numéros en A avec plusieurs sociétés en B.
11/05/2017, 17h58
mjpmjp

1 pièce(s) jointe(s)
bonjour,

Pièce jointe 274384
Code:

1 2 3 4 5 With Worksheets("REMISE") .Range("G2").value = NumDossier UserForm3.TextBox2.Value = .Range("G2").Value End With
HORIZONTAL

Citation:

je veux avoir une numérotation pour chaque société choisie ( dans mon cas c'est combobox2 ) . ex si combobox2 contient le nom la société (MOMO) la numérotation dans la feuille NUMERO est dans la collonne A avec le nom de la société en B si combobox2 contient le nom la société (LOLO) la numérotation dans la feuille NUMERO est dans la collonne C avec le nom de la société en D. et ainsi de suite...

VERTICAL

Citation:

je veux avoir devant chaque numéro en colonne A le nom de la société en colonne B. comme ça j'aurais une continuité de numéros en A avec plusieurs sociétés en B.

@+JP
11/05/2017, 19h12
mjpmjp

bonjour,

le B.a..Ba de la gestion, même mini, c'est d'avoir une liste (DataBase) de Client, Abonné, SOCIETE, ...

cette liste est créée verticalement ...chaque colonne a son importance --> certaine plus que d'autres

par exemple :
la première (colonne)(la clef : invisible) est le n de ligne / enregistrement
la 2 : le nom
la 3 : le code nom abrégé (en majuscule)
la 4 : compte n1 ; compte n2 ; compte....

la combo se remplit de la colonne 2 --> quand ligne sélectionnée --> ligne +1 = ligne "DataBase" --> informe automatiquement les TextBox ...

@+JP
11/05/2017, 19h14
Marc-L

Citation:

Envoyé par maximob

je veux avoir devant chaque numéro en colonne A le nom de la société en colonne B.

Une feuille bien conçue utilisera exactement le contraire ‼
Afin de pouvoir utiliser une simple fonction de feuille de calculs comme RECHERCHEV …
11/05/2017, 19h52
mjpmjp

1 pièce(s) jointe(s)

bonjour,

Pièce jointe 274410

@+JP
11/05/2017, 20h29
Marc-L

Beau !

J'espère seulement que ce n'est pas de vraies données ! …
11/05/2017, 21h04
mjpmjp

bonjour,

image du net , recherche liste ;) : CRÉER... AVEC EXCEL

j'ai changé la capture, il faut que je face attention avec la taille de l'écran 32" çà déforme
@+JP
12/05/2017, 10h26
maximob

Malheureusement ça ne fonctionne pas comme je le souhaite.:(
12/05/2017, 11h13
mjpmjp

bonjour,

je t'assure qu'il n'y a rien de compliqué,
c'est juste qu'il faut que tu explique simplement ce que tu veux..

j'ai compris que tu veux une liste avec une colonne "numéro" , une colonne "société"
tu as déjà cette liste dans onglet remise ligne 281 à 289 et tes numéros sont 281 à 289 par exemple
cette liste tu la met dans un onglet "DataBase" ou le nom que tu veux
cette liste doit ressembler à la liste bleue que j'ai affiché (la couleur n'est pas obligatoire)

@+JP
12/05/2017, 11h24
Menhir

Citation:

Envoyé par maximob

j'ai donné seulement un exemple car le projet contient des infos confidentiels liés à mon travail, donc ....

je vais vous aider un peu pour m'aider :D

Pièce jointe 274080

Comme beaucoup d'autres participants de ce forum, je n'ouvre pas les pièces jointes, surtout celles pouvant contenir des macros, entre autre pour les raisons expliquées ici.
https://www.developpez.net/forums/d8...s-discussions/

Si tu ne peux pas expliquer ce que tu souhaites par une règle précise et exhaustive, il n'est pas possible de t'expliquer comment le réaliser.
12/05/2017, 17h27
maximob

ok, je vais modifier mon fichier en créant une base de données dans une feuille séparée.