Ensemble des entiers

Question

Bonjour,

j'ai un tableau Excel et avec vb6 je voudrais tester si le contenu d'une cellule est un entier. J'ai essayé avec IsNumeric mais il lui arrive de convertir les String en Integer.
N'est-il pas possible de tester si le contenu de la cellule appartient à un intervalle d'entiers ?
Par exemple :
Dim intervelle As Range
intervalle = [0..50]
If contenuCellule "appartient" intervalle Then
...
Else
End If

Merci.

Renfield · Answer

"avec IsNumeric mais il lui arrive de convertir les String en Integer"
c'est justement l'interet de la chose ^^

If IsNumeric ( MaValue ) Then
    If MaValue >=0 And MaValue <=50 Then
          ...
    End If
End If 

Renfield
Admin CodeS-SourceS- MVP Visual Basic

RS8 · Answer

Ok mais je ne veux pas justement !

Je t'explique un peu mieux : je teste si le contenu de la cellule A1 est un entier et si c'est le cas je stocke les valeurs de la ligne 1.
Si elle est vide ou contient une chaîne de caractère je passe à la ligne suivante et ainsi de suite jusqu'à parcourir complétement mon tableau Excel.
Je ne souhaite donc garder que les cellules contenant des entiers et IsNumeric convertit les String en Int et donc ça fausse mes données!

Merci.

drikce06 · Answer

Salut, il faut que ce soit vraiment un entier compris entre 0 et 50 et non un réel?

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

Si la réponse vous convient: Réponse acceptée < body>

RS8 · Answer

Non c'était un exemple! En fait ma colonne et numérotée de 1 à 30 000 mais je dois convertir les données d'un appareil de mesure et lorsqu'il y a une erreur ce n'est plus un entier mais une string et la je ne veux pas qu'il me mette cette ligne dans mon tableau car elle est inutile et comme je dois tracer un graphe par la suite il ne me faut que des réels dans mon tableau !

Mais oui il faut que ce soit un entier naturel (>= 0)

Merci

drikce06 · Answer

Il ne faut pas confondre entier et réel d'où ma question:

Entier: 1,2,3 ... 10 etc
Réel: 1.23545 , 45/78, etc

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

Si la réponse vous convient: Réponse acceptée < body>

drikce06 · Answer

En cas des erreurs ce sera un nombre sous forme de string?

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

Si la réponse vous convient: Réponse acceptée < body>

RS8 · Answer

Non pas un nombre, il me met le nom de l'erreur avec un charabia incompréhensible!
Je voudrais juste que mon programme, tant que les lignes de la colonne A sont des entiers (ex : 1, 2, 3, ...) récupère la ligne correspondante et la stocke dans un tableau d'entier et dès qu'il s'aperçoit que c'est une string passe à la ligne suivante et ce autant de fois que le fichier excel contient d'erreurs. Car si j'utilise IsNumeric, il va convertir la string mais ca ne va pas correspondre et mon graphique va etre faussé!

Merci.

drikce06 · Answer

Mais si tu fais, isnumeric alors que tu as une chaine du style "258toto25588" ça converti pas en Integer il vois bien que c'est une chaîne et pas un nombre, là je vois pas ton problème.  

If IsNumeric(Range("N1").Value) Then

Donne le bout de code que tu as fait qu'on voye ce qui va pas.

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

Si la réponse vous convient: Réponse acceptée < body>

RS8 · Answer

C'est exactement ce que tu as mis :

Dim i As Long
Dim tableau(30 000) As Long
For i = 1 To 30 000
   If IsNumeric(Range("A" & i).Value) Then
      tableau(i-1) = Range("A" & i).Value
   Else
   End If
Next

Merci.

drikce06 · Answer

Le problème c'est que tu ne gères pas le cas où ce n'est pas numéric.

Dim i As Long
Dim tableau(30 000) As Long
For i = 1 To 30 000
   If IsNumeric(Range("A" & i).Value) Then
      tableau(i-1) = Range("A" & i).Value
   Else
     tableau(i-1) = 0 ou autre chose
   End If
Next

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

Si la réponse vous convient: Réponse acceptée < body>

RS8 · Answer

IsNumeric renvoie un booléen si c'est un nombre ou si la string est convertible en nombre c'est bien ça ?

Mais avec un IN ou quelque chose dans le même genre je ne peut pas tester si le contenu de la cellule appartient à cet intervalle ?
Car si je mets :

If 0 <= (Range("A1").Value) <= 30 000

et que ma cellule contient un string que va t-il se passer ? Il va la convertir ou me renvoter une erreur ?

Je pensais plutôt à : 

Dim intervalle As Range
intervalle = [0..30000]
If (Range("A1").Value) IN intervalle Then
...
Else
...
End If

Est-ce possible ?

Merci.

cs_MPi · Answer

J'ai fait le test avec différentes valeurs numériques, avec virgule ou point, avec apostrophe comme premier caractère, avec espace, avec des lettres,... et ça devrait bien fonctionner de cette manière.

        If IsNumeric(Range("A" & I)) _
                And Range("A" & I) >= 0 _
                And Range("A" & I) <= 30000 Then
                
            MsgBox "Ligne " & I & " OK" & vbCrLf & _
                    Range("A" & I) * 2  ' pour vérifier si la valeur se calcule
        End If

MPi

RS8 · Answer

Ok je vais essayer merci.

Renfield · Answer

c'est le code que je t'ai filé ce matin....
m'enfin....

Renfield
Admin CodeS-SourceS- MVP Visual Basic

RS8 · Answer

Oui et ça doit être pour cela qu'il ne marche pas 

Mais c'est bon j'ai trouvé! Plutôt que de tester si c'est un entier je fais plusieurs tests car j'ai remarqué que les erreurs commencent par des string qui sont tout le temps les mêmes (il y en a 20 différentes!!!) ! Certes ce n'est pas très esthétique un If avec 19 ElseIf mais c'est le seul code que j'ai trouvé et qui marche ! Et donc si le test ne rentre dans aucun des elseIf c'est que ma cellule contient un entier !

Sinon j'ai lu sur un autre forum que la commande IsNumeric ralentissait le programme ! Est-ce vrai?

En tout cas merci à vous trois pour votre aide

jmfmarques · Answer

Une méthode rigolote :

Une chaîne de caractères représente sans aucun doute un entier lorsque la retransformation en chaîne de l'entier de la division par 1 de la chaîne concernée est la chaine de départ.

Ainsi :

Private Sub Command1_Click()
  toto = "11.1"
  MsgBox IIf(CStr(Val(toto) \ 1) = toto, toto & " est un entier", toto & " n'est pas un entier")
  toto = "11"
  MsgBox IIf(CStr(Val(toto) \ 1) = toto, toto & " est un entier", toto & " n'est pas un entier")
  toto = "n'importe quoi"
  MsgBox IIf(CStr(Val(toto) \ 1) = toto, toto & " est un entier", toto & " n'est pas un entier")
  toto = "-10"
  MsgBox IIf(CStr(Val(toto) \ 1) = toto, toto & " est un entier", toto & " n'est pas un entier")
End Sub

Renfield · Answer

dit, j'ai toujours pas compris ton : "IsNumeric convertit les String en Int et donc ça fausse mes données"

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Renfield · Answer

Je crois que j'ai saisi, une cellule qui contient "16" (un texte) ne doit pas être confondu avec une cellule qui contiendrait 16 (numérique)...

voilà du tout cuit... 

Public Function IsCellValueInRange(ByRef voCell As Range, ByVal vnMin As Integer, ByVal vnMax As Integer) As Boolean
  '# Si notre cellule contient un numérique
  If IsNumeric(voCell.Text) Then
      '# Et qu'il ne comporte pas de partie décimale...
      If voCell.Value = voCell.Value \ 1 Then
          '# Alors, on testes, tentant de savoir si le contenu de notre
          '# cellule est situé entre les bornes reçues en paramètre.
          IsCellValueInRange = voCell.Value >= vnMin And voCell.Value <= vnMax
      End If
  End If
End Function , ----
By Renfield

s'utilise ainsi :

If IsInValueRange(ActiveCell, 0, 50) Then
  ...
End If , ----
By Renfield

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Ensemble des entiers

18 réponses

Votre réponse

Discussions similaires