1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

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

Discussion dans 'Forum Excel' démarrée par madgicbobbyboon, 12 Octobre 2017 à 16:16.

  1. madgicbobbyboon

    madgicbobbyboon XLDnaute Nouveau

    Inscrit depuis le :
    25 Novembre 2015
    Messages :
    39
    "J'aime" reçus :
    0
    Sexe :
    Masculin
    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:

  2. Jacky67

    Jacky67 XLDnaute Impliqué

    Inscrit depuis le :
    12 Juin 2016
    Messages :
    750
    "J'aime" reçus :
    111
    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: 13 Octobre 2017 à 01:49

Partager cette page