Contenu récent par Kirikou46

Super. Merci Chris tout est pour le mieux. Bonne journée et surement à bientôt.

Bonsoir Chris, Bien reçu ton message . Est ce à dire que le code devra être : Private Sub cbnModifier_Click() Dim No_Ligne As Integer With Sheets("source") No_Lign = cboObjet.ListIndex + 2 If cboObjet.Value = "" Then MsgBox ("Veuillez choisir le contrat ou la convention") Else .Cells(No_Lign, 3)...

Bonjour Chris, l'erreur se produit sur le sheets("source").Select de : Private Sub cbnModifier_Click() Dim No_Ligne As Integer Sheets("source").Select Merci de prendre le temps de m'aider à résoudre ce problème et si tu as une solution peux tu me l'indiquer sachant que je suis néophite en la...

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 =...

Bonsoir sylvanu Suite à votre réponse, je n'ai pas de fichier test. Mon problème n'est pas résolu. Merci quand même.

Bonlour à tous, Nouveau sur le forum et pratiquant depuis peu le VBA, je souhaiterai suite à une création d'un USF avec 2 formulaires (1 pour la saisie et l'autre pour modifications et suppressions) ne pas donner accès à la bdd pour éviter toutes manipulations aux utilisateurs. Lorsque je rends...