Mise à jour des contacts (Bug si aucun résultats dans ma base de données)

Bonjour à vous,

J'ai un petit soucis avec ma formule lorsque j'éffectue des recherches. Si la recherche est positive et que j'ai un résultat dans la base de données, aucun problème ne surviens. Néanmoins, lorsque je tente une recherche qui n'a pas de résultat dans la base de donnée, un message d'erreur s'affiche et mon excel doit être soit déboger au redémaré. Est-ce que l'un d'entre vous saurait comment m'aider ?

Merci énormément à l'avance.

Private Sub ModifierCon_Click()

'ont s'assure d'ouvrir le menu CA

Dim lig As Integer

With Sheets("CA") ' feuille où sont mes infos de contacts

answer = MsgBox("Êtes-vous certains de vouloir mettre à jour ce contact?", vbYesNo + vbQuestion, "Modification de contact")

If answer = vbYes Then ' Boite message pour confirmer si ont veux bien modifier le contact.

lig = .Columns("A").Find(What:=TextBox1, after:=Range("A2"), Lookat:=xlWhole).Row ' chercher dans la colonne a , mon élément de référence ' Recherche le contact pour mettre à jour la bonne ligne

.Cells(lig, "B") = TextBox2 ' va porter les infos sur la bonne ligne

.Cells(lig, "C") = TextBox3

.Cells(lig, "D") = TextBox4

.Cells(lig, "E") = TextBox5

.Cells(lig, "F") = TextBox6

.Cells(lig, "G") = TextBox14

.Cells(lig, "H") = TextBox13

.Cells(lig, "I") = TextBox12

.Cells(lig, "J") = TextBox7

.Cells(lig, "k") = TextBox8

.Cells(lig, "l") = TextBox9

.Cells(lig, "m") = TextBox10

.Cells(lig, "N") = TextBox11

.Cells(lig, "o") = TextBox15

MsgBox "Modification complété.", vbInformation, "Mondification Contact" 'confirmation que la modification à réussis

End If

ActiveWorkbook.Save

End With

'ont réouvre la base de données principal.

Sheets("Bd").Select

End Sub

Bonjour,

Un essai ...

Private Sub ModifierCon_Click()
   'on s'assure d'ouvrir le menu CA
Dim lig As Integer

With Sheets("CA")   ' feuille où sont mes infos de contacts

      answer = MsgBox("Êtes-vous certain de vouloir mettre à jour ce contact?", vbYesNo + vbQuestion, "Modification de contact")
      If answer = vbYes Then   ' Boite message pour confirmer si l'on veut bien modifier le contact.

         On Error Resume Next
         lig = .Columns("A").Find(What:=TextBox1, after:=Range("A2"), Lookat:=xlWhole).Row   ' chercher dans la colonne a , mon élément de référence ' Recherche le contact pour mettre à jour la bonne ligne

         If lig > 1 Then
            .Cells(lig, "B") = TextBox2   ' va porter les infos sur la bonne ligne
            .Cells(lig, "C") = TextBox3
            .Cells(lig, "D") = TextBox4
            .Cells(lig, "E") = TextBox5
            .Cells(lig, "F") = TextBox6
            .Cells(lig, "G") = TextBox14
            .Cells(lig, "H") = TextBox13
            .Cells(lig, "I") = TextBox12
            .Cells(lig, "J") = TextBox7
            .Cells(lig, "k") = TextBox8
            .Cells(lig, "l") = TextBox9
            .Cells(lig, "m") = TextBox10
            .Cells(lig, "N") = TextBox11
            .Cells(lig, "o") = TextBox15
            MsgBox "Modification complétée.", vbInformation, "Mondification Contact"   'confirmation que la modification a réussie.
         Else
            MsgBox "Aucun enregistrement correspondant ... "
            Me.TextBox1 = ""
            Me.TextBox1.SetFocus
            Exit Sub
         End If
      End If
      ActiveWorkbook.Save
   End With

   'on rouvre la base de données principale.
   Sheets("Bd").Select
End Sub

ric

Super ça fonctionne

Merci