mathioustone
XLDnaute Nouveau
Bonjour, je suis actuellement sur une astuce pour gérer deux feuilles pour une base de données. Je m'explique, la première feuille est une feuille de saisie qui permet dobtenir la fiche client si besoin, et la deuxième feuille répertorie les différents clients.
J'ai créé un bouton: valider qui permettrait de rentrer le client directement dans la deuxième feuille mais ma synthaxe doit être deffectueuse ...
J'ai créé un bouton: valider qui permettrait de rentrer le client directement dans la deuxième feuille mais ma synthaxe doit être deffectueuse ...
Code:
Private Sub valider_Click()
Dim ch As String
ch = Trim(SAISIE.[G6])
If Len(ch) < 2 Then End
With BASE
If WorksheetFunction.CountIf(.[F:F], ch) Then
MsgBox "CE CLIENT EXISTE DÉJÀ !!!"
Else
.[A2:AX2].Insert xlDown, xlBelow
.[A2] = .[A3] + 1
.[F2] = ch
.[C2] = Date
.[H2] = Trim(SAISIE.G17)
.[I2] = ........
MsgBox ch & " à été ajouté dans la base"
End If
End With
End Sub