Discussion :

[Mon_ami]

salut tt lmnde

J'ai un petit probleme que je n'arrive pas a resoudre je vous demande svp de l'aide et merci.

Comment faire une boucle qui n'autorise qu'un seul enregistrement c a dire, si le nom saisi dans la textbox1 se trouve déja dans la liste alors affiche un message exple "ce nom existe;saisissez un autre" j'ain essayé ça mais je n'ai pas réussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim x As Integer
     'Boucle de 1 à 100
    For x = 1 To 100
        'On sort de la boucle si la cellule testée contient la meme Valeur       que textbox1
 
        If  (Cells(x, 1)) .value=textbox1.value
        Then Exit For
        affiche un message
        msgbox" Ce nom existe, veuillez saisir un autre"
et vider textbox1 
        textbox1.value=""
    Next x

2/ question: Comment vider touts les textbox dans un USF sauf une (affiche la date)
Merci pour votre

[ucfoutu]

Bonjour,

Et si tu utilisais un copier/coller de ton code (afin de ne pas arriver à celui que tu nous montres et ne peut en aucun cas ne pas déclencher des erreurs) ?

Par ailleurs : te viendrait-il, par exemple, à l'idée d'éteindre ton téléviseur pour regarder une émission ? Non, n'est-ce-pas ?
Alors comment veux-tu, dans une boucle, afficher un message alors que tu as quitté (exit for) la boucle ?

[LeForestier]

Bonjour,
Réponse à tes deux questions..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub N2()
Dim Lig As Long
    For Lig = 1 To 100
        'le Ucase pour tester aussi bien les minuscules que les majuscules
        If UCase(Cells(Lig, 1)) = UCase(TextBox1.Text) Then
            MsgBox " Ce nom existe, veuillez saisir un autre"
            TextBox1 = "" : TextBox1.Setfocus
            Exit For
        End If
    Next Lig
End Sub
'Et pour vider tout les TextBox sauf 1...
Sub VideTxt()
Dim Cont As Control
    For Each Cont In Me.Controls
        If TypeOf Cont Is MSForms.TextBox Then
            If Cont.Name <> "Le nom à ne pas vider" Then
                Cont.Object.Text = ""
            End If
        End If
    Next
End Sub

A+

[Mon_ami]

Bonjour et Merci à Monsieur LeForestier

Le premier problème a été bien résolu mais le second , lorsque j'appuie sur le bouton annuler toutes les textbox se vide meme celle qui contient la date du jour.Dans le code j'ai remplacé :

If Cont.Name <> "Le nom à ne pas vider" Then par

If Cont.Name <> "Textbox28" Then, la textbox28 c'est la textbox qui contient la date mais ça ne marche pas

Merci LeForestier

[LeForestier]

lorsque j'appuie sur le bouton annuler toutes les textbox se vide meme celle qui contient la date du jour.Dans le code j'ai remplacé :

If Cont.Name <> "Le nom à ne pas vider" Then par

If Cont.Name <> "Textbox28"

C'est que tu a une erreur dans le nom que tu a mis, vérifie qu'il n'y a pas un espace quelque part dans le nom, le plus simple c'est de faire un copier coller du nom.
mais assaye aussi avec...
If Cont.Name <> "TextBox28" (B majuscule)
A+