vba verifier doublons dans textbox Résolu

Question

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.

Paf · Answer

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+

eideal · Answer

Merci ça fonctionne parfaitement

Vba verifier doublons dans textbox

2 réponses

Discussions similaires

Newsletters