Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Essaie le code suivant (il fonctionne à condition que le nom des textboxes commence par "textbox". A modifier.
Private Sub CommandButton1_Click() Dim Tabl(11) As Integer, tb As Control Dim Ctr As Integer For Each tb In Me.Controls If Left(tb.Name, 7) = "TextBox" Then Var = tb.Value If tb.Value > 0 And tb.Value < 13 Then For i = 0 To 11 If tb.Value = Tabl(i) Then MsgBox tb.Name & " " & tb.Value & " : Saisie en double" Else Tabl(Ctr) = tb.Value Ctr = Ctr + 1 Exit For End If Next i End If End If Next tb End Sub
Cordialement. Daniel "gg" a écrit dans le message de news: 43e32921$0$29215$
Salut à tous,
mon pb, un formulaire avec 12 textbox pouvant contenir des nombres de 1 à 12.
c'est pour déterminer un ordre de priorité de .... (j'aime beaucoup =1, ....j'aime pas ) Chaque valeur ne peut apparaître qu'une fois.
Comment, je peux mettre en place un contrôle lors de la validation du form ???
Merci pour votre aide.
GG
Bonjour.
Essaie le code suivant (il fonctionne à condition que le nom des textboxes
commence par "textbox". A modifier.
Private Sub CommandButton1_Click()
Dim Tabl(11) As Integer, tb As Control
Dim Ctr As Integer
For Each tb In Me.Controls
If Left(tb.Name, 7) = "TextBox" Then
Var = tb.Value
If tb.Value > 0 And tb.Value < 13 Then
For i = 0 To 11
If tb.Value = Tabl(i) Then
MsgBox tb.Name & " " & tb.Value & " : Saisie en
double"
Else
Tabl(Ctr) = tb.Value
Ctr = Ctr + 1
Exit For
End If
Next i
End If
End If
Next tb
End Sub
Cordialement.
Daniel
"gg" <stage.f@nospam-wanadoo.fr> a écrit dans le message de news:
43e32921$0$29215$8fcfb975@news.wanadoo.fr...
Salut à tous,
mon pb, un formulaire avec 12 textbox pouvant contenir des nombres de 1 à
12.
c'est pour déterminer un ordre de priorité de ....
(j'aime beaucoup =1, ....j'aime pas )
Chaque valeur ne peut apparaître qu'une fois.
Comment, je peux mettre en place un contrôle lors de la validation du form
???
Bonjour. Essaie le code suivant (il fonctionne à condition que le nom des textboxes commence par "textbox". A modifier.
Private Sub CommandButton1_Click() Dim Tabl(11) As Integer, tb As Control Dim Ctr As Integer For Each tb In Me.Controls If Left(tb.Name, 7) = "TextBox" Then Var = tb.Value If tb.Value > 0 And tb.Value < 13 Then For i = 0 To 11 If tb.Value = Tabl(i) Then MsgBox tb.Name & " " & tb.Value & " : Saisie en double" Else Tabl(Ctr) = tb.Value Ctr = Ctr + 1 Exit For End If Next i End If End If Next tb End Sub
Cordialement. Daniel "gg" a écrit dans le message de news: 43e32921$0$29215$
Salut à tous,
mon pb, un formulaire avec 12 textbox pouvant contenir des nombres de 1 à 12.
c'est pour déterminer un ordre de priorité de .... (j'aime beaucoup =1, ....j'aime pas ) Chaque valeur ne peut apparaître qu'une fois.
Comment, je peux mettre en place un contrôle lors de la validation du form ???