boucle while jusqu'à ce que la valeur soit le videRésolu/Fermé

Question

Bonjour,

J'ai un soucis avec la macros que je suis en train de créer en fait je chercher à faire une boucle while du type :

While OF1(val1, 0).Value <> ""

       val1 = L + 1
       
       While OF1(L, 0) = OF1(val1, 0)
          
          If OF1(val1, 7) = OF1(L, 7) Then
             If OF1(val1, 4) <> OF1(L, 4) & OF1(val1, 5) <> OF1(L, 5) Then
                OF2(Nolig, 5) = OF1(val1, 5) + OF1(L, 5)
             ElseIf OF1(val1, 4) = OF1(L, 4) & OF1(val1, 5) = OF1(L, 5) Then
                OF2(Nolig, 5) = OF1(L, 5)
             End If
          
          ElseIf OF1(val1, 7) <> OF1(L, 7) Then
             OF1(L, 2) = OF1(L, 2) + OF1(val1, 2)
             OF1(L, 7) = OF1(val1, 7)
          ElseIf OF1(val1, 1) = "L20" Then
             OF2(Nolig, 4) = OF1(val1, 4)
          ElseIf OF1(val1, 1) = "L30" Then
             OF2(Nolig, 3) = OF1(L, 3)
          ElseIf OF1(L, 1) = "L20" Then
             OF2(Nolig, 4) = OF1(val1, 4)
          ElseIf OF1(L, 1) = "L30" Then
             OF2(Nolig, 3) = OF1(L, 3)
          End If
          val1 = val1 + 1
       Wend
       OF2(Nolig, 2) = OF1(L, 2)
       L = val1
       Nolig = Nolig + 1
       
     Wend

Le problème c'est que ma variable val1 atteint la limite de mon tableau alors que normalement c'est impossible je devrais rencontrer une ligne vide bien avant.

Pouvez vous m'aider ?

Pour info voici les dimensions de mes variables:

Dim val1 As Variant, Nolig As Long
Dim L As Integer
Dim OF1(100, 10) As Variant, OF2(10, 8) As Variant

Merci d'avance

Mosca · Answer

Bonjour,

D'après ce que tu dis
Dim OF1(100, 10) As Variant
on comprend que OF1 est un tableau

Or quand on lit
While OF1(val1, 0).Value <> ""
on s'attend à ce que OF1 est un objet du type WorkSheet

Alors Tableau au Worksheet?

michel_m · Answer

Bonjour

Pour boucler sur une variable-tableau tu peux utiliser les fonctions Lbound
 et Ubound 
Lbound =1° "ligne" de OF1
Ubound Fin de OF1

For xxxx=Llbound(OF1) to Ubound(OF1)ouFor xxxx=0 to Ubound(OF1).....If OF1(val1, 0)="" then exit for....next

Boucle while jusqu'à ce que la valeur soit le vide

2 réponses

Newsletters