problème avec les boucles vba

Version imprimable

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:

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

10/04/2009, 09h31
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 ?

Bonjour,
Réponse à tes deux questions..

Code:

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+

10/04/2009, 13h35
Mon_ami

probleme avec une boucle vba

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
11/04/2009, 06h15
LeForestier

Citation:

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+