Vba verifier doublons dans textbox

Résolu/Fermé
eideal Messages postés 20 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 20 février 2017 - 11 févr. 2012 à 18:02
eideal Messages postés 20 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 20 février 2017 - 13 févr. 2012 à 07:54
Bonjour,

J'aimerais savoir si il est possible de verifier si dans tous les textbox les intitulés sont différents.

Les combobox sont situés dans un frame et voilà ce que j'ai écrit :

'******************************************
'verifier si il n'y a pas 2 intitulés identiques

For i = 9 To 14
If Controls("Textbox" & i).Value <> "" Then
If Controls("Textbox" & i).Value = Controls("Textbox" & i + 1).Value Or Controls("Textbox" & i).Value = Controls("Textbox" & i + 2).Value Or Controls("Textbox" & i).Value = Controls("Textbox" & i + 3).Value Or Controls("Textbox" & i).Value = Controls("Textbox" & i + 4).Value Or Controls("Textbox" & i).Value = Controls("Textbox" & i + 5).Value Then
MsgBox "Vous avez 2 INTITULÉS identiques !", vbExclamation, "ATTENTION"
Exit Sub
End If
End If
Next i

sauf que ça ne vérifie pas tous les textbox mais uniquement le 1er de la boucle et que je vois pas comment étendre le code à tous les autres.

pouvez vous comment le vérifier dans mon code s'il vous plait.

merci pour vos retours.
A voir également:

2 réponses

bonjour,

et en faisant 2 boucles :

For i=9 to 14
  For j= 9 to 14
      If j <> i then
         If Controls("Textbox" & i).Value = Controls("Textbox" & j).Value then
             MsgBox "Vous avez ..........."
             Exit Sub
          End If
      End If
   Next
Next


A+
0
eideal Messages postés 20 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 20 février 2017
13 févr. 2012 à 07:54
Merci ça fonctionne parfaitement
0