Contenu récent par ngexcel

bonsoir Merci cela fonctionne je regarde tes motifs pour comprendre je vais regarder les différences bonne soirée

Bonjour j ai bien mis en remplacement tes codes en supprimant les miens (le code associé à Fiche vierge, B_suivant_Click(),b_précédent_Click(),CléCherchée_Click(),UserForm_Initialize()) cela bloque les textbox cest bon mais quand je fais nouvel fiche ca reste bloqué merci de ta patience

bonsoir j ai mis tes code comme tu l 'as dit j arrive a bloquer les textbox j arriver a faire nouvelle fiche mais les textbox restent bloquées je vérifie si j ai bien copier tes codes et je reviens vers toi bonne soiree

Bonjour dans le fichier création j ai un userform je veux l'ors de la consultation bloquer les textbox et quand je fais un nouvelle fiche je retrouve l'accès aux textbox merci

re bonjour ce n'est pas le bon fichier que je vous avez envoyé pardon voici le bon quand j appui sur fiche vierge je veux avoir accès

bonjour Roblochon j ai copié ton code dans le userfom comment l 'appeler quand j ouvre mon userform je suis novice en vba merci d'avance

Bonjour j ai pris comme exemple un model existant ma question j ai des textbox je voudrais le locked quand je les consultes et les déprotéger quand je suis en saisie dans l'exemple quand je clic sur fiche vierge je peux saisir mais quand je consulte par la listbox je veux que toutes les...

Merci pour ton aide Ne crois pas mais je teste sur une feuille excel vierge tes codes ca fonctionne mais tu restes sur ta position de pas ouvrir mon fichier car le problème il est bien la tu peux m'expliqué comme tu veux ca fonctionne pas sur mon projet je ne veux pas recommencer a zero donc...

MERCI pour ton aide je vais chercher une autre solution je n'arrive pas à l adapter a mon fichier mon userfom reste vide sans être actualisé j ai réussi à voir les textbox quand ca me demande le mot de passe 1234 si tu mets n'importe quoi comme mot de passe ca cache les textbox donc cest bon...

j ai mis ton code dans mon bouton feuil1 Dim usf As Object Private Sub CommandButton1_Click() MotPasse = CStr(InputBox("Mot de passe?", "Identification")) If Len(MotPasse) = 0 Then Exit Sub SeeMe = MotPasse = "1234" Set usf = uForm(ActiveSheet.Cells(1)) usf.Controls("TextBox1").Visible = SeeMe...

merci pour les explications mais cela ne règle pas mon problème de mon post n° 1 merci

j ai bien mis userform1 en A1 je clic ca ouvre userfom1 j ai bien mis userfourm2 en a1 je clic ca ouvre userfom2

Merci pour ta pédagogie j ai fait comme indiqué j ai des erreurs

Merci comme même j ai testé ton code dans une feuille vierge cela fonctionne mais c'est dans mon code que je n arrive pas Je ne comprend pas pourquoi tu ne peux pas me l adapter et me l'envoyer tu n'envoi pas de fichier c'est étonnant ! merci comme même

regarde j ai remis ton code dans dans feuil1 ca marche pas ca n' ouvre pas mon userform avec mes données et les textbox reste visible c'est dommage que tu ne joint pas mon fichier