Gestion clients userform

Bonsoir tous le monde

Je désire automatiser la gestion de mes Clients/prospect et de mes lieux.

j'ai donc créé 1 tableau sur une feuille GESTION CLIENT PROSPECT et 1 tableau sur une feuil GESTION DES LIEUX. (tableau identique)

J'ai créé 1 userform pour chaque tableau, que j'ouvre depuis les onglets situés sur la page d'accueil. J'ai tenté un code VBA pour l'ajout d'un client ou prospect, mais mon code ne me recopie pas du tout ce que j'insert dans l'userform.

SVP J'ai besoin de votre aide pour que les deux userform soit fonctionnelle.

Les deux onglets rechercher ou modifier ne sont pas encore fonctionnels.

Classeur en pièce jointe.

Merci d'avance pour votre aide.

Coucou tous le monde,

Me revoilà, bon c'est en persistant que nous y arrivons, j'ai donc essayer.

Alors pour l'ajout client, ca recopie bien dans mon tableau sur la feuille GESTION CLIENT PROSPECT.

Mais par contre mon Row + 1 ne fonctionne pas, ca me recopie toujours sur la ligne 4

Voici le classeur avec le code qui enfin recopie mes saisies

Enfin je n'ai réussi à coder les case à cocher.

Bonjour pouns94, bonjour le forum,

Quelques corrections mineures :

Option Explicit

Dim ws As Worksheet, a()

Private Sub CheckBox3_Click()
    If Me.CheckBox3 = True Then Me.CheckBox4 = False   'changement fait ici
End Sub

Private Sub CheckBox4_Click()
    If Me.CheckBox4 = True Then Me.CheckBox3 = False   'changement fait ici
End Sub

Private Sub CommandButton1_Click()
'Ajouter
Dim Ligne As Long

    If ws.Range("A5") <> "" Then
      Ligne = ws.Range("A" & Rows.Count).End(xlUp).Row + 1  'changement fait ici
    Else
      Ligne = 5
    End If
    If Me.CheckBox3 = True Then     ' choix entre client ou prospect
        ws.Range("A" & Ligne) = "Client"     ' Client ou prospect
    Else
        ws.Range("A" & Ligne) = "Prospect"
    End If
    ws.Range("B" & Ligne) = Me.TextBox1.Value         ' Nom
    ws.Range("C" & Ligne) = Me.TextBox2.Value         ' Adresse
    ws.Range("D" & Ligne) = Me.TextBox3.Value         ' Code postal
    ws.Range("E" & Ligne) = Me.TextBox4.Value         ' Ville
    ws.Range("F" & Ligne) = Me.TextBox5.Value         ' telephone fixe
    ws.Range("G" & Ligne) = Me.TextBox6.Value         ' Fax
    ws.Range("H" & Ligne) = Me.TextBox7.Value         ' email sté
    ws.Range("I" & Ligne) = Me.TextBox8.Value         ' le contact
    ws.Range("J" & Ligne) = Me.TextBox9.Value         ' numero mobile
    ws.Range("K" & Ligne) = Me.TextBox10.Value        ' email

Unload Me

End Sub

Private Sub CommandButton2_Click()
' Quitter
  Unload Me
End Sub

Private Sub UserForm_Initialize()
  Set ws = Sheets("GESTION CLIENT PROSPECT")
End Sub

Joseph

Ouahhh parfait. merci beaucoup !!