Ensemble de nombre
Résolu
etudiantdebutant
Messages postés
5
Date d'inscription
jeudi 4 octobre 2007
Statut
Membre
Dernière intervention
4 octobre 2007
-
4 oct. 2007 à 17:56
Utilisateur anonyme - 4 oct. 2007 à 22:13
Utilisateur anonyme - 4 oct. 2007 à 22:13
6 réponses
Utilisateur anonyme
4 oct. 2007 à 18:47
4 oct. 2007 à 18:47
É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
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
Utilisateur anonyme
4 oct. 2007 à 18:48
4 oct. 2007 à 18:48
Erf, c'est ";" a la place de "," :
nb = Split(TextBox, ";")
__________
Kenji
(
Nouveau forum VBA/Office
nb = Split(TextBox, ";")
__________
Kenji
(
Nouveau forum VBA/Office
Utilisateur anonyme
4 oct. 2007 à 18:08
4 oct. 2007 à 18:08
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
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
etudiantdebutant
Messages postés
5
Date d'inscription
jeudi 4 octobre 2007
Statut
Membre
Dernière intervention
4 octobre 2007
4 oct. 2007 à 18:39
4 oct. 2007 à 18:39
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
etudiantdebutant
Messages postés
5
Date d'inscription
jeudi 4 octobre 2007
Statut
Membre
Dernière intervention
4 octobre 2007
4 oct. 2007 à 21:46
4 oct. 2007 à 21:46
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
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
Utilisateur anonyme
4 oct. 2007 à 22:13
4 oct. 2007 à 22:13
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
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
