report données USF

[vinceda]

Bonjour à tous,

je viens vers vous car mes compétences sont très faible et j'ai un travail (qui vous paraitra surement simple à effectuer):

Je vais devoir créer un formulaire pour renseigner 4 cases :
date
nom
prénom
nom employeur

Dans le fichier joint, j'ai créer la trame du fichier avec le bouton pour appeler le USF...c'est là que ca bloque !!!!
comment recopier les données de l'USF dans mon fichier en sachant que je ne veux pas de doublon quand la combinaison des 3 dernieres case est la meme !!!

merci pour votre aide et vos explications (le fichier sera ensuite complété avec d'autres cases à remplir).

merci

 

[jp14]

Re : report données USF

Bonjour

Ci joint un code qui répond au problème

Private Sub CommandButton1_Click()
Dim Dl1 As Long ' dernière ligne
Dim Nomfeuille1 As String
Dim cells As Range
Nomfeuille1 = ActiveSheet.Name
With Sheets(Nomfeuille1)
Dl1 = .cells(Columns(1).cells.Count, 1).End(xlUp).Row + 1

For Each cells In .Range("b2:b" & Dl1)
    If cells.Value & cells.Offset(0, 1).Value & cells.Offset(0, 2).Value = TextBox2 & TextBox3 & TextBox4 Then
        Call MsgBox("Le nom existe déja à la ligne : " & cells.Row, vbInformation, Application.Name)
        Exit Sub
    End If
Next cells

For i = 1 To 4
    .Range("a" & Dl1).Offset(0, i - 1) = Me.Controls("TextBox" & i).Value
    Me.Controls("TextBox" & i).Value = ""
Next i

End With

End Sub

A tester

JP

 

[vinceda]

Re : report données USF

Bonjour JP14 et le forum,

un grand merci pour ce code qui marche très bien.

Autre question,est-il possible de mettre la date du jour dans le USF automatiquement à l'ouverture puis comment dois -je ecrire la ligne qui referme mon usf dès que la ligne est validée??

merci encore

 

[jp14]

Re : report données USF

Bonsoir

Ci dessous une macro pour afficher la date

Private Sub UserForm_Initialize()
Me.Caption = Format(Now, "dd/mm/yyyy")
End Sub

Pour quitter il faut écrire

Unload me

JP

 

[vinceda]

Re : report données USF

Bonjour JP14 et merci beaucoup,

je ne sais pas par contre où placer le code de la date... peux tu m'éclairer??

merci encore

 

[jp14]

Re : report données USF

Bonsoir

Il suffit de recopier le code dans la page de code de l'userform.

JP

 

[vinceda]

Re : report données USF

Bonjour JP 14,

je me rends compte que je me suis mal exprimé !!!!
je ne veux pas que l'USF ait la date du jour mais que la textbox 1 prenne automatiquement cette date à l'ouverture.

En résumé, je souhaite que lors de l'ouverture de mon USF la case date de signature prenne automatiquement la date du jour.

désolé pour le travail accompli pour rien

 

[vinceda]

Re : report données USF

Re bonjour,

ne cherchez plus, j'ai trouvé !!!!!!

merci à tous

 

[jp14]

Re : report données USF

Bonjour

Il suffit de modifier la macro, en remplaçant Me.caption par le "name" du Textbox

Private Sub UserForm_Initialize()
[COLOR="Red"]Nom du textbox[/COLOR]  = Format(Now, "dd/mm/yyyy")
End Sub

JP