Données

Bonjour à tous

je suis à la recherche d'un bout de code:

qui permet que si les données ne sont pas rentré dans les champs obligatoire dans mon userform c'est donné ne viennent pas s'extraire dans ma feuille

Private Sub f_b_ok_Click()
Sheets("Données").Visible = xlSheetVisible
    With Sheets("Données").Select
        Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Value = Year(Now)   'pour mettre l'année
        Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Value = "LN"   'pour mettre le site OK
        Cells(Rows.Count, "H").End(xlUp).Offset(1, 0).Value = info_nom_prénom   'pour mettre le nom et prenom sur la victime ou redacteur de la fiche OK
        Cells(Rows.Count, "J").End(xlUp).Offset(1, 0).Value = raison   'pour mettre le type de typologie OK

du genre info_nom_prénom et raison étant des champs obligatoire si il clique sur mon bouton enregistré "f_b_ok_Click()"

les données inscrite dans l'userform ne s'envoie pas dans ma feuille "Données"

merci d'avance de votre aide

Bonsoir Ploz

Tu n aurais pas un fichier à nous joindre ?

bonsoir,

le voici j'ai juste mis mon userform

ou le bouton enregistrer existe

3classeur1.xlsm (28.44 Ko)
Rechercher des sujets similaires à "donnees"