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. 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. 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....
    3. 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
      2. 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
      3. Kafiristanica
        Je sais pas si c'est ce que tu veux mais faire un modulo 100 ne marcherait pas ?