Ensemble de nombre [Résolu]

etudiantdebutant 5 Messages postés jeudi 4 octobre 2007Date d'inscription 4 octobre 2007 Dernière intervention - 4 oct. 2007 à 17:56 - Dernière réponse : Charles Racaud 3181 Messages postés dimanche 15 février 2004Date d'inscription 9 avril 2017 Dernière intervention
- 4 oct. 2007 à 22:13
Bonjour à tous je suis débutant et j'ai un problème:


Comment insérer dans une TextBox un ensemble de nombres sans rapports les uns avec les autres pour ensuite les comparer avec une valeur.
Voila ce que j'ai essayé mais sans succés
  
 If Val(TextBox)=Z Then                                    Z étant bien évidament défini
   ...

Après avoir rentré dans la TextBox la suite de nombre: [12;34;55;34]
Merci d'avance.







Method OG
Afficher la suite 

6 réponses

Répondre au sujet
Charles Racaud 3181 Messages postés dimanche 15 février 2004Date d'inscription 9 avril 2017 Dernière intervention - 4 oct. 2007 à 18:47
+3
Utile
Évidemment, en le faisant ca sans vb, on oublis des choses
Dim i As Integer
Dim nb() As String
nb = Split(TextBox, ",")
For i = 0 To UBound(nb) - 1
  If Val(nb(i)) = z Then
    ' ...
    Exit For
  End If
Next i, ----
(Coloration syntaxique automatique par Kenji)

__________
Kenji
(
Nouveau forum VBA/Office
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de Charles Racaud
Charles Racaud 3181 Messages postés dimanche 15 février 2004Date d'inscription 9 avril 2017 Dernière intervention - 4 oct. 2007 à 18:48
+3
Utile
Erf, c'est ";" a la place de "," :
nb = Split(TextBox, ";")

__________
Kenji
(
Nouveau forum VBA/Office
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de Charles Racaud
Charles Racaud 3181 Messages postés dimanche 15 février 2004Date d'inscription 9 avril 2017 Dernière intervention - 4 oct. 2007 à 18:08
0
Utile
Salut,

Il faut d'abord séparer les nombres :
DIm nb() as String
nb = Split(TextBox)
ensuite une boucle :
for i = 0 to ubound(nb) - 1
   if val(nb) = Z then
     ...
     exit for
   end if
next i

__________
Kenji
(
Nouveau forum VBA/Office
Commenter la réponse de Charles Racaud
etudiantdebutant 5 Messages postés jeudi 4 octobre 2007Date d'inscription 4 octobre 2007 Dernière intervention - 4 oct. 2007 à 18:39
0
Utile
Salut,

   J'ai essayé ce que tu a mis mais quand je le lance y me signal une erreur de compillation: "incompatibilité de type" au niveau de:

If Val(nb)=Z

en tout cas merci j'vois à peut près comment y faut procéder avec la boucle.

Method OG
Commenter la réponse de etudiantdebutant
etudiantdebutant 5 Messages postés jeudi 4 octobre 2007Date d'inscription 4 octobre 2007 Dernière intervention - 4 oct. 2007 à 21:46
0
Utile
      Merci Beaucoup ça à marché j'aurai jamais trouvé tout seul.
Par contre j'ai enlevé le -1 de l'expression
For i = 0 To UBound(nb) 
1
Par-ce-que ca ne prenné pas toutes les valeurs: j'arrive pas à l'expliquer

      Maintenant la boucle prend toute les valeurs sauf la première mais c'est pa trop grave.
Encor merci







Method OG
Commenter la réponse de etudiantdebutant
Charles Racaud 3181 Messages postés dimanche 15 février 2004Date d'inscription 9 avril 2017 Dernière intervention - 4 oct. 2007 à 22:13
0
Utile
Salut,

Oui, pour le -1, c'était l'habitude des Length de dotnet.
Par contre, elle devrai prendre la première valeur. Place un point d'arrêt sur le for, exécute et regarde ce qui va pas.

__________
Kenji
(
Nouveau forum VBA/Office
Commenter la réponse de Charles Racaud

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.