Re,
Dans ce cas, il faut modifier :
isearch = Worksheets("FRS").Range("A" & Rows.Count).End(xlUp).Row
dans Private Sub CommandButton1_Click()
et
isrch = Worksheets("FRS").Range("A" & Rows.Count).End(xlUp).Row
dans Private Sub CommandButton2_Click()
le
Worksheets("FRS").Range("A1").CurrentRegion.Rows.Count
, s'arrête à la première ligne vide
merci beaucoup, ca marche mieux maintenant, mais est ce qu'il y a une solution pour l'insertion des données au tableau "tabfrs" car quand j'insère les données dans userform1 Ils s'ajoutent directement depuis 3ème ligne en sautant la deuxiemme ligne même si elle est vide
voici le code "add to base"
Private Sub CommandButton1_Click()
Sheets("FRS").Activate
Range("A1").Select
Selection.End(xlDown).Select 'se positionner sur la derniere ligne non vide '
Selection.Offset(1, 0).Select 'on se decale d'une ligne vers le bas'
ActiveCell = TextBox1.Value
ActiveCell.Offset(0, 1).Value = txtemail
ActiveCell.Offset(0, 2).Value = cbostatut
ActiveCell.Offset(0, 3).Value = ComboBox1
ActiveCell.Offset(0, 4).Value = txtville
ActiveCell.Offset(0, 5).Value = txttelfixe
ActiveCell.Offset(0, 6).Value = txttelmobile
If Me.cbospe = "AUTRE" Then
ActiveCell.Offset(0, 7).Value = otherspe
Else
ActiveCell.Offset(0, 7).Value = cbospe
End If
ActiveCell.Offset(0, 8).Value = cboserv
MsgBox "Votre fournisseur a été bien ajouté dans la base"
MsgBox "voulez vous saisir les indicateurs de votre fournisseur", vbYesNo, "confirmation"
If vbYes Then
UserForm2.Show
End If
End Sub