report données USF

J

jp14

XLDnaute Barbatruc

• 9 Novembre 2010

• #2

Re : report données USF

Bonjour

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

Code:

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

 

Vote positif 0 Vote négatif

V

vinceda

XLDnaute Junior

• 15 Novembre 2010

• #3

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

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 15 Novembre 2010

• #4

Re : report données USF

Bonsoir

Ci dessous une macro pour afficher la date

Code:

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

Pour quitter il faut écrire

Code:

Unload me

JP

 

Vote positif 0 Vote négatif

V

vinceda

XLDnaute Junior

• 16 Novembre 2010

• #5

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

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 16 Novembre 2010

• #6

Re : report données USF

Bonsoir

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

JP

 

Vote positif 0 Vote négatif

V

vinceda

XLDnaute Junior

• 17 Novembre 2010

• #7

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

 

Vote positif 0 Vote négatif

V

vinceda

XLDnaute Junior

• 17 Novembre 2010

• #8

Re : report données USF

Re bonjour,

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

merci à tous

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 17 Novembre 2010

• #9

Re : report données USF

Bonjour

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

Code:

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

JP

 

Vote positif 0 Vote négatif