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...
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
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
Merci de l' aide que vous voudrez bien m'apporter.
Gabriel