VBA excel

Feng -  
Bonjour,

Est ce qu'il y a quelqu'un sais si on peut limiter un integer?

C'est à dire, je voudrais définir
Dim u as integer
u =1 ' pour le début
u = 100 'pour le max de u

Et je veux pas faire de boucle, je veux juste limiter à 100.

Merci beaucoup

6 réponses

  1. ccm81
    bonjour

    peux tu expliquer ce que tu veux faire avec cet entier u ?

    bonne suite
    1. Feng
      u = 1
      For m = 1 To NombreLigne
      If u > 1 Then
      If Tableau02(u - 1) <> Cells(m, 15).Value Then
      If Tableau02(u - 1) <> Tableau02(h) Then
      Tableau02(u) = Cells(m, 15).Value
      NumberType = NumberType + 1
      u = u + 1
      For h = 1 To u
      If Tableau02(u - 1) = Tableau02(h) Then
      Tableau02(u) = "0"
      End If
      Next h
      End If
      ElseIf u = 1 Then
      Tableau02(u) = Cells(m, 15).Value
      u = u + 1
      End If
      If u > 100 Then
      GoTo suivant02
      End If
      Next m

      Ma boucle
      ce que je veux c'est de copier les infos de Cells(m,15) dans le Tableau02(u). mais je voudrais en meme temps de le trier pour que il ne me marque pas plusieurs fois la meme chose dans le tableau..... je dois l'utiliser par la suite le tableau..
      je sais pas trop comment faire.
      Et pour l'instant l'erreur vient de u, car j'ai défini le Tableau02 de 1 à 100, donc u ne dois pas dépasser 100 non plus. je veux donc limiter u à 100
  2. ccm81
    ce que j'ai compris

    tu veux copier les 100 premières cellules différentes de la plage Cells(1,15):Cells(Nbligne,15) dans tableau02, puis trier tableau02

    est ce c'est ça?
    1. Feng
      Oui,
      Parce que au départ je voulais les recopier en triant en meme temps, mais j'ai vu que c'était pas possible..
      car dans les cellules de la feuille, Cells(m,15), il y a plusieurs lignes qui ont de la meme valeur, je voudrais les copier dans le Tableau02, puis trier le Tableau02 pour que dans le tableau, il n'y a pas de doublons, et il n'y a pas de case vide non dans le Tableau02. Car je dois le réutiliser dans une boucle plus loin.....
      C'est assez compliquer....
  4. Christof422 
    
'Déclaration des variables 
Dim m As Integer
Dim u As Integer
Dim casevide As Integer
Dim tableau02(100) As String



For m = 1 To 100
For u = 1 To 100

If Cells(m, 15).Value = tableau02(u) Then
Exit For
End If
    If tableau02(u) = "" Then
    casevide = u
    End If
  If u = 100 Then
  tableau02(casevide) = Cells(m, 15).Value
  End If
     
Next u
Next m


    Avec ce code on tri et enregistre le contenu des cellule Ox dans le tableau.

    Est-ce que cela peut marcher?

    Le premier pas vers la solution est la recherche. Notre ami Google connaît sûrement la solution...
    2. Kafiristanica
      Je sais pas si c'est ce que tu veux mais faire un modulo 100 ne marcherait pas ?
      1. antipolis a
        Bonjour.

        Voici une fonction VBA qui permet de générer un nombre aléatoire entre 2 bornes

        Public Function RandomNumber(Lowest As Long, Highest As Long)
        ' Generates a random whole number within a given range
        Randomize
        RandomNumber = Int(Rnd * (Highest + 1 - Lowest)) + Lowest
        End Function