Incrementer un numero de dossier a la validation de l'userform

madgicbobbyboon

XLDnaute Junior
Bonjour,

Habituellement je ne rencontre pas ce type de probleme mais la GRRRRR.
pour le 1er je ne connais pas la solution..j'ai ete fouillé sur internet, j'avais mis un code dans la feuil 'ENREGISTREMENT' mais rien ...puis dans le userform mais rien!!
je cherche a mettre un numéro de dossier automatiquement dans la colonne A de la feuil 'ENREGISTREMENT a la validation du userform.

je rencontre un autre probleme également :
Si je crée un deuxieme dossier rien ne s'inscrit a la suite de la première ligne malgré le code L = .Range("A65536").End(xlUp).Row + 1

help please
 

Pièces jointes

  • PLAINTE essai pour excel dowload.xlsm
    48.2 KB · Affichages: 43

Jacky67

XLDnaute Barbatruc
Bonjour,

Habituellement je ne rencontre pas ce type de probleme mais la GRRRRR.
pour le 1er je ne connais pas la solution..j'ai ete fouillé sur internet, j'avais mis un code dans la feuil 'ENREGISTREMENT' mais rien ...puis dans le userform mais rien!!
je cherche a mettre un numéro de dossier automatiquement dans la colonne A de la feuil 'ENREGISTREMENT a la validation du userform.

je rencontre un autre probleme également :
Si je crée un deuxieme dossier rien ne s'inscrit a la suite de la première ligne malgré le code L = .Range("A65536").End(xlUp).Row + 1

help please
Bonjour,
Le n° de dossier peut se faire par exemple dans cette partie du code (En rouge)
l' année suivie d'un nombre incrémenté puis formaté ou non au choix.

Pour le n° de la ligne d'enregistrement sur la feuille, je ferais comme ci-dessous (en vert),

'***********************************************************************
With Sheets("ENREGISTREMENT")

'avec la feuille Code
If MsgBox("confirmation de la plainte ", vbYesNo, "Attention") = vbYes Then
'le message de confirmation arrive apparait "confirmez vous..." si oui alors avec la feuille enregistrement

L = Application.Max(4, .Cells(.Rows.Count, 1).End(xlUp).Row + 1)
.Range("a" & L).Value = Year(Date) & "-" & L - 3
'ou
.Range("a" & L).Value = Year(Date) & "-" & Format(L - 3, "00000")

'-----Suite du code existant
.Range("b" & L).Value = TextBox6.Value ' date du courrier ou du mail
'etc
'************************************************************************
Je n'ai fait aucune autre vérification du classeur.
Néanmoins, par exemple sur la feuille "ENREGISTREMENT"==>"Transmission cabinet"
Une seule colonne serait suffisant, C'est Oui ou Non mais en aucun cas Oui et Non
Idem ou I:J et K:L et O: P
Bon courage :)
 
Dernière édition:

Discussions similaires

Réponses
17
Affichages
694

Statistiques des forums

Discussions
311 740
Messages
2 082 047
Membres
101 880
dernier inscrit
Anton_2024