@ Patrick - Bah... si... Excel, il sait faire de la magie Mais pas encore le café
Pour le fun : il faut tenter de cliquer sur "Non" au début.
Bonjour Eric C,
Désolé en effet, voici ci dessous le code du formulaire "recherche" :
'Procédure permettant d'afficher les champs renseignés dans la base de données
Private Sub cbnAller_Click()
Dim No_Lign As Integer
No_Lign = cboObjet.ListIndex + 2
txtType.Value = Sheets("source").Cells(No_Lign, 3).Value
txtReference.Value = Sheets("source").Cells(No_Lign, 4).Value
txtTitulaire.Value = Sheets("source").Cells(No_Lign, 5).Value
txtCoordonnees.Value = Sheets("source").Cells(No_Lign, 6).Value
txtInterlocuteur.Value = Sheets("source").Cells(No_Lign, 7).Value
txtTelephone.Value = Sheets("source").Cells(No_Lign, 8).Value
txtDatepassation.Value = Sheets("source").Cells(No_Lign, 9).Value
txtConsultation.Value = Sheets("source").Cells(No_Lign, 10).Value
txtMontant.Value = Sheets("source").Cells(No_Lign, 11).Value
txtPeriodicite.Value = Sheets("source").Cells(No_Lign, 12).Value
txtDuree.Value = Sheets("source").Cells(No_Lign, 13).Value
txtRenouvellement.Value = Sheets("source").Cells(No_Lign, 14).Value
txtObservations.Value = Sheets("source").Cells(No_Lign, 15).Value
txtEtat.Value = Sheets("source").Cells(No_Lign, 16).Value
End Sub
'Fermeture du formulaire
Private Sub cbnFermer_Click()
Unload Me
End Sub
Private Sub cboObjet_Initialize()
Sheets("source").Activate
Range(A1).Select
End Sub
'***************************************************
'Procédure permettant de modifier un contrat
'*****************************************************
Private Sub cbnModifier_Click()
Dim No_Ligne As Integer
Sheets("source").Select
No_Lign = cboObjet.ListIndex + 2
If cboObjet.Value = "" Then
MsgBox ("Veuillez choisir le contrat ou la convention")
Else
Cells(No_Lign, 3) = txtType.Value
Cells(No_Lign, 4) = txtReference.Value
Cells(No_Lign, 5) = txtTitulaire.Value
Cells(No_Lign, 6) = txtCoordonnees.Value
Cells(No_Lign, 7) = txtInterlocuteur.Value
Cells(No_Lign, 8) = txtTelephone.Value
Cells(No_Lign, 9) = txtDatepassation.Value
Cells(No_Lign, 10) = txtConsultation.Value
Cells(No_Lign, 11) = txtMontant.Value
Cells(No_Lign, 12) = txtPeriodicite.Value
Cells(No_Lign, 13) = txtDuree.Value
Cells(No_Lign, 14) = txtRenouvellement.Value
Cells(No_Lign, 15) = txtObservations.Value
Cells(No_Lign, 16) = txtEtat.Value
End If
End Sub
'************************************************
'Procédue permettant de supprimer un contrat
'************************************************
Private Sub cbnSupprimer_Click()
Dim DR As Integer
DR = MsgBox(("Etes vous sûr de vouloir supprimer le contrat ?"), vbYesNo + vbCritical + vbDefaultButton1, "Quitter")
Select Case DR
Case vbYes
Sheets("source").Activate
Rows([B2:B100].Find(cboObjet.Value).Row).EntireRow.Delete
Case vbNo
Exit Sub
End Select
End Sub
'****************************************************************
'Procédure de mettre l'interlocuteur en majuscules
'******************************************************************
Private Sub txtInterlocuteur_Change()
txtInterlocuteur.Text = UCase(txtInterlocuteur.Text)
End Sub
'*********************************************************************
'Procédure permettant de mettre le numéro téléphone avec espaces
'**********************************************************************
Private Sub txtTelephone_Change()
txtTelephone.Value = Format(txtTelephone, "00 00 00 00 00")
End Sub
'****************************************************************
'Procédure de mettre le nom en majuscules
'******************************************************************
Private Sub txtTitulaire_Change()
txtTitulaire.Text = UCase(txtTitulaire.Text)
End Sub
Private Sub UserForm_Click()
End Sub
Lorsque je place la feuille "source" (bdd) invisible (2-xlsSheetveryhidden) un message d'erreur indique "erreur d'exécution 1004" "La méthode select de la classe worksheet a échoué"
J'espère que cela completera ma demande.
Bonne journée, à bientôt.
