complement d un code vba

[bennisay]

bonjour le forum
j ai besoin de completer mon code vba
comme suite dans le fichier ci joint

 

[camarchepas]

Re : complement d un code vba

Bonsoir ,

Comme ceci peut être :

 

[bennisay]

Re : complement d un code vba

BONJOUR LE FORUM camarchepas

Merci pour votre aide

tt fonctionne bien sauf une chose quand je saisie une reference deja existante j ai un message qui m avertie mais le probleme c est quand je click sur ok la reference et tt les autres donnees se déplacent sur mon tableau chose qu il faut pas avoir
normalement quand je click sur ok je dois avoir le formulaire vierge pour resaisir une autre reference

 

[camarchepas]

Re : complement d un code vba

Bonjour

Voici le nouveau code pour la routine commandButton1_click

Private Sub CommandButton1_Click()
Dim derligne As Integer
Dim Trouve As Range
With Sheets("BDD")
derligne = .Range("E456541").End(xlUp).Row + 1
If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Then MsgBox ("Manque une information"): Exit Sub
Set Trouve = .Range("E:E").Find(TextBox1, lookat:=xlWhole)

If Not Trouve Is Nothing Then
  MsgBox ("Référence : " & TextBox1 & " déjà existante")
 Else
  .Cells(derligne, 5) = TextBox1.Value
  .Cells(derligne, 6) = TextBox2.Value
  .Cells(derligne, 7) = TextBox3.Value
  .Cells(derligne, 8) = TextBox4.Value
End If
End With
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox1.SetFocus
End Sub

 

[bennisay]

Re : complement d un code vba

RE
MERCI énormément