Re : Créer un formulaire de saisie
re bonjour
ne cherchez plus j'ai trouvé, même si ce n'est pas trés orthodoxe
je ferme l'user forme et je l'ouvre à nouveau
Option Explicit
Private Sub CommandButton1_Click()
'Déclaration des objets et variables
Dim Trouve As Object
Dim ligne As Long
'Recherche de la ligne N° Travail.
Set Trouve = Worksheets("SANSLP").Range("J:J").Find(CLng(TextBox1.Text), lookat:=xlWhole)
'Si référence travail trouvée alors
If Not Trouve Is Nothing Then
'Récupére le numéro de ligne pour l'objet trouvé
ligne = Trouve.Row
'Remplissage des diverses colonnes
Worksheets("SANSLP").Range("R" & ligne) = TextBox2.Text
Worksheets("SANSLP").Range("S" & ligne) = TextBox3.Text
Worksheets("SANSLP").Range("W" & ligne) = TextBox5.Text
Worksheets("SANSLP").Range("U" & ligne) = TextBox4.Text
Else
'Si référence non trouvée alors message
MsgBox "Référence : " & TextBox1.Text & " non trouvée"
End If
Unload SAISIE
Load SAISIE
SAISIE.Show
End Sub
alors merci pour votre précieuse aide