Numerotation composée

[gabriel]

Bonjour à toutes et à tous,
J'ai un petit soucis pour la mise en place d'une numérotation de dossiers dépendant d'un choix dans une ComboBox...
Je dispose d'un TextBox (N° de Dossier) et d'une combo (Type de dossier), je souhaiterais mettre en place une numérotation qui se composerait comme suit :
si le type de dossiers est : 'Taxe Professionnelle' n° de dossier = TP1
rien de mieux qu'un exemple, voilà ce que j'ai écris, mais qui ne fonctionne que partiellement, il me génèrer l'incrément à chaque clic (choix combo) , alors que j'aimerais 1 numeros par session de saisie... j'espère que c'est clair...

Private Sub ComboBox1_Change()
        If ComboBox1.Value = 'Taxe Professionnelle' Then
Sheets('Parametres').Range('K3') = Sheets('Parametres').Range('K3') + 1
CodeBox.Value = 'TP' & Sheets('Parametres').Range('K3')
        End If
If ComboBox1.Value = 'Taxe Foncière' Then
  Sheets('Parametres').Range('L3') = Sheets('Parametres').Range('L3') + 1
    CodeBox.Value = 'TF' & Sheets('Parametres').Range('L3')
        End If
If ComboBox1.Value = 'Gestion du Patrimoine' Then
  Sheets('Parametres').Range('M3') = Sheets('Parametres').Range('M3') + 1
    CodeBox.Value = 'GP' & Sheets('Parametres').Range('M3')
        End If
If ComboBox1.Value = 'Audit de la rémunération' Then
  Sheets('Parametres').Range('N3') = Sheets('Parametres').Range('N3') + 1
    CodeBox.Value = 'AR' & Sheets('Parametres').Range('N3')
        End If
If ComboBox1.Value = 'Placements' Then
  Sheets('Parametres').Range('O3') = Sheets('Parametres').Range('O3') + 1
    CodeBox.Value = 'PL' & Sheets('Parametres').Range('O3')
        End If
If ComboBox1.Value = 'Assurance Vie' Then
  Sheets('Parametres').Range('P3') = Sheets('Parametres').Range('P3') + 1
    CodeBox.Value = 'AV' & Sheets('Parametres').Range('P3')
        End If
If ComboBox1.Value = 'Audits Divers' Then
  Sheets('Parametres').Range('Q3') = Sheets('Parametres').Range('Q3') + 1
    CodeBox.Value = 'AD' & Sheets('Parametres').Range('Q3')
        End If

Si vous avez une solution, voire meme une autre façon d'ecrire le code, je suis preneur...
Merci de l' aide que vous voudrez bien m'apporter.
Gabriel

 

[pierrejean]

bonjour gabriel

peut-on avoir la definition de 'session de saisie ' vis à vis du classeur Excel ?

 

[gabriel]

Bonjour Pierrejean, rebonjour le forum,
En fait, tout se passe sur un userform de saisie 'CréationClient', après validation les infos contenues dans l'USF se 'vident' sur la feuille 'Client', je me sert des données du champ 'CodeDossier' pour effectuer mes recherches. Avec le code actuel si je me trompe de type de dossier,( plusieur clics sur la combo) j'incrémente de 1 à chaque fois, et j'aimerais, quelque soit le nombre de clic, qu'il ne me génère qu'un incrément (XX+1) par type de dossier, et ce, jusqu'a la validation des données... un peu confus, n'est-ce pas ?

encore merci de te (vous)penccher sur mon problème...

Gabriel

 

[pierrejean]

re

j'essaie de voir avec ce que tu dis

cependant un petit fichier exemple (sans données confidentielles ) serait infiniment plus explicite

 

[pierrejean]

re

une solution (qui ne resoud pas tout ,notamment en cas d'hesitation sur le type de dossier on peut encore incrementer les autres types)
j'y reflechis
pour l'heure je vais me restaurer
bon appetit [file name=gabriel.zip size=13865]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/gabriel.zip[/file]

 

[gabriel]

Pierrejean, le forum.... re re bonjour
Voila un petit fichier, pas facile d'obtenir 50 ko... l'apllication faisait 2,5 mo...
Mais ça va...
J'expère que l'exemple est assez explicite.



Je vois que tu est tré rapide, bon appétit
Merci
Gabriel
apparament le fichier n'est pas passé.. je reéssaye !!!
attach&eacute

Message édité par: gabriel, à: 29/03/2006 12:42

 

[pierrejean]

re

pour le fichier:

https://www.excel-downloads.com/external/flash/ZipperFichier.htm

fichier zippé sans accents ni caractères spéciaux ni espaces et inférieur à 50 Ko

un tantinet 'capillotracté' mais je pense que cela fonctionne

en attendant ton fichier [file name=gabriel_20060329133724.zip size=17373]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/gabriel_20060329133724.zip[/file]

 

[gabriel]

Merci PierreJean
J'avais besoin d'un peu d'inspiration... voila c'est fait !!!
J'ai ecrit le code en 2 fois :
1 fois au changement, 1 fois à la validation.
Changement :

If ComboBox1.Value = 'Taxe Professionnelle' Then
CodeBox.Value = 'TP' & Sheets('Parametres').Range('K3') + 1
End If
If ComboBox1.Value = 'Taxe Foncière' Then
CodeBox.Value = 'TF' & Sheets('Parametres').Range('L3') + 1
End If
If ComboBox1.Value = 'Gestion du Patrimoine' Then
CodeBox.Value = 'GP' & Sheets('Parametres').Range('M3') + 1
End If
If ComboBox1.Value = 'Audit de la rémunération' Then
CodeBox.Value = 'AR' & Sheets('Parametres').Range('N3') + 1
End If
If ComboBox1.Value = 'Placements' Then
CodeBox.Value = 'PL' & Sheets('Parametres').Range('O3') + 1
End If
If ComboBox1.Value = 'Assurance Vie' Then
CodeBox.Value = 'AV' & Sheets('Parametres').Range('P3') + 1
End If
If ComboBox1.Value = 'Audits Divers' Then
CodeBox.Value = 'AD' & Sheets('Parametres').Range('Q3') + 1
End If
End Sub

A la validation

If ComboBox1.Value = 'Taxe Professionnelle' Then
Sheets('Parametres').Range('K3') = Sheets('Parametres').Range('K3') + 1
End If
If ComboBox1.Value = 'Taxe Foncière' Then
Sheets('Parametres').Range('L3') = Sheets('Parametres').Range('L3') + 1
End If
If ComboBox1.Value = 'Gestion du Patrimoine' Then
Sheets('Parametres').Range('M3') = Sheets('Parametres').Range('M3') + 1
End If
If ComboBox1.Value = 'Audit de la rémunération' Then
Sheets('Parametres').Range('N3') = Sheets('Parametres').Range('N3') + 1
End If
If ComboBox1.Value = 'Placements' Then
Sheets('Parametres').Range('O3') = Sheets('Parametres').Range('O3') + 1
End If
If ComboBox1.Value = 'Assurance Vie' Then
Sheets('Parametres').Range('P3') = Sheets('Parametres').Range('P3') + 1
End If
If ComboBox1.Value = 'Audits Divers' Then
Sheets('Parametres').Range('Q3') = Sheets('Parametres').Range('Q3') + 1
End If

Encore merci de ton aide.

@+
Gabriel