Bonjour.
alors pour commencer desolé si ma question semble evidente mais je suis
novice en VBA et j'apprend seul en testant et sans livre pour m'aider.
voici mon probleme
j'ai un userform avec une dizaine de textbox et je voudrais faire deux
controle sur les valeurs entrée.
tout d'abord je souhaite que la somme des valeur entrée soit strictement
egale a 78
pour ceci je fais :
If sommetab1 <> 78 Then
MsgBox "ATTENTION, vous avez certainement classé deux metier avec la meme
valeur.", vbExclamation, _
"ERREUR ... Doublon ?"
Controls("TextBox1").SetFocus
Exit Sub
End If
cependant j'aimerais pour la premiere parti faire un truc du genre
sommetab1=0
for i = 1 to 13
Sommetab1=sommetab1 + Val(UserForm3.TextBox"i".Value)
mais je ne sais pas comment faire varier Val(UserForm3.TextBox12.Value)
j'ai essayé Val(("UserForm3.TextBox" & i".Value")) mais ca ne fonctionne pas
de plus, comment puisje faire pour que soit vérifié que deux valeurs
identique ne soit pas rentrée avec focus sur une des deux valeurs en cas
d'erreur
Merci par avance aux personnes capable de m'aider et merci aux autres pour
toutes les astuces qu'ils peuvent donner
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. Adapte le code suivant :
Private Sub CommandButton1_Click() Dim tb As Control, Ctr As Integer Dim Valeurs(11) As Integer, i As Integer, Pos As String For Each tb In UserForm1.Controls If Left(tb.Name, 7) = "TextBox" Then For j = 0 To UBound(Valeurs) If tb.Value = Valeurs(j) Then Pos = tb.Name Next j Valeurs(i) = tb.Value i = i + 1 Ctr = Ctr + tb.Value End If Next tb If Pos <> "" Then Controls(Pos).SetFocus MsgBox Ctr End Sub
Cordialement. Daniel
"francois" a écrit dans le message de news:
Bonjour. alors pour commencer desolé si ma question semble evidente mais je suis novice en VBA et j'apprend seul en testant et sans livre pour m'aider.
voici mon probleme
j'ai un userform avec une dizaine de textbox et je voudrais faire deux controle sur les valeurs entrée.
tout d'abord je souhaite que la somme des valeur entrée soit strictement egale a 78 pour ceci je fais :
If sommetab1 <> 78 Then MsgBox "ATTENTION, vous avez certainement classé deux metier avec la meme valeur.", vbExclamation, _ "ERREUR ... Doublon ?" Controls("TextBox1").SetFocus Exit Sub End If
cependant j'aimerais pour la premiere parti faire un truc du genre sommetab1=0 for i = 1 to 13 Sommetab1=sommetab1 + Val(UserForm3.TextBox"i".Value)
mais je ne sais pas comment faire varier Val(UserForm3.TextBox12.Value) j'ai essayé Val(("UserForm3.TextBox" & i".Value")) mais ca ne fonctionne pas
de plus, comment puisje faire pour que soit vérifié que deux valeurs identique ne soit pas rentrée avec focus sur une des deux valeurs en cas d'erreur
Merci par avance aux personnes capable de m'aider et merci aux autres pour toutes les astuces qu'ils peuvent donner
Francois
Bonjour.
Adapte le code suivant :
Private Sub CommandButton1_Click()
Dim tb As Control, Ctr As Integer
Dim Valeurs(11) As Integer, i As Integer, Pos As String
For Each tb In UserForm1.Controls
If Left(tb.Name, 7) = "TextBox" Then
For j = 0 To UBound(Valeurs)
If tb.Value = Valeurs(j) Then Pos = tb.Name
Next j
Valeurs(i) = tb.Value
i = i + 1
Ctr = Ctr + tb.Value
End If
Next tb
If Pos <> "" Then Controls(Pos).SetFocus
MsgBox Ctr
End Sub
Cordialement.
Daniel
"francois" <francois@discussions.microsoft.com> a écrit dans le message de
news: EE9358B9-E6DF-4293-84E0-FEC3C9746F82@microsoft.com...
Bonjour.
alors pour commencer desolé si ma question semble evidente mais je suis
novice en VBA et j'apprend seul en testant et sans livre pour m'aider.
voici mon probleme
j'ai un userform avec une dizaine de textbox et je voudrais faire deux
controle sur les valeurs entrée.
tout d'abord je souhaite que la somme des valeur entrée soit strictement
egale a 78
pour ceci je fais :
If sommetab1 <> 78 Then
MsgBox "ATTENTION, vous avez certainement classé deux metier avec la meme
valeur.", vbExclamation, _
"ERREUR ... Doublon ?"
Controls("TextBox1").SetFocus
Exit Sub
End If
cependant j'aimerais pour la premiere parti faire un truc du genre
sommetab1=0
for i = 1 to 13
Sommetab1=sommetab1 + Val(UserForm3.TextBox"i".Value)
mais je ne sais pas comment faire varier Val(UserForm3.TextBox12.Value)
j'ai essayé Val(("UserForm3.TextBox" & i".Value")) mais ca ne fonctionne
pas
de plus, comment puisje faire pour que soit vérifié que deux valeurs
identique ne soit pas rentrée avec focus sur une des deux valeurs en cas
d'erreur
Merci par avance aux personnes capable de m'aider et merci aux autres pour
toutes les astuces qu'ils peuvent donner
Private Sub CommandButton1_Click() Dim tb As Control, Ctr As Integer Dim Valeurs(11) As Integer, i As Integer, Pos As String For Each tb In UserForm1.Controls If Left(tb.Name, 7) = "TextBox" Then For j = 0 To UBound(Valeurs) If tb.Value = Valeurs(j) Then Pos = tb.Name Next j Valeurs(i) = tb.Value i = i + 1 Ctr = Ctr + tb.Value End If Next tb If Pos <> "" Then Controls(Pos).SetFocus MsgBox Ctr End Sub
Cordialement. Daniel
"francois" a écrit dans le message de news:
Bonjour. alors pour commencer desolé si ma question semble evidente mais je suis novice en VBA et j'apprend seul en testant et sans livre pour m'aider.
voici mon probleme
j'ai un userform avec une dizaine de textbox et je voudrais faire deux controle sur les valeurs entrée.
tout d'abord je souhaite que la somme des valeur entrée soit strictement egale a 78 pour ceci je fais :
If sommetab1 <> 78 Then MsgBox "ATTENTION, vous avez certainement classé deux metier avec la meme valeur.", vbExclamation, _ "ERREUR ... Doublon ?" Controls("TextBox1").SetFocus Exit Sub End If
cependant j'aimerais pour la premiere parti faire un truc du genre sommetab1=0 for i = 1 to 13 Sommetab1=sommetab1 + Val(UserForm3.TextBox"i".Value)
mais je ne sais pas comment faire varier Val(UserForm3.TextBox12.Value) j'ai essayé Val(("UserForm3.TextBox" & i".Value")) mais ca ne fonctionne pas
de plus, comment puisje faire pour que soit vérifié que deux valeurs identique ne soit pas rentrée avec focus sur une des deux valeurs en cas d'erreur
Merci par avance aux personnes capable de m'aider et merci aux autres pour toutes les astuces qu'ils peuvent donner
