Numerotation composée

gabriel

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

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

gabriel

XLDnaute Nouveau
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

XLDnaute Barbatruc
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]
 

Pièces jointes

  • gabriel.zip
    13.5 KB · Affichages: 29

gabriel

XLDnaute Nouveau
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

XLDnaute Barbatruc
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]
 

Pièces jointes

  • gabriel_20060329133724.zip
    17 KB · Affichages: 37
G

gabriel

Guest
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 :
Code:
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
Code:
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
 

Discussions similaires

Réponses
6
Affichages
202

Statistiques des forums

Discussions
311 729
Messages
2 081 971
Membres
101 852
dernier inscrit
dthi16088