Problème avec un enchainement de boucles

**viguievt** · 07/02/2013, 11h41

Bonjour,

J'ai de nouveau une question, qui doit surement être simple à résoudre pour beaucoup de personne malheureusement je bloque depuis 1 jours dessus.

J'ai une succession de 2 boucles qui ne fonctionnent pas.

Voici le code que j'ai écris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
h = 0
t = 1
        Do While h <>  10                        'Tant que h est différent de 10, la boucle recommence'
            Do While Cells(t, 1) = ""             'J'imbrique une nouvelle boucle. Tant que la cellule T,1 est nulle j'incrémente t'
            t = t + 1
 
            Loop
            h = h + 1 'lorsque la cellule (t,1) n'est plus nulle j'incrémente h'
        Loop
        Label3.Caption = Cells(t, 1).Value 'je copie la dixième valeur non nulle de la colonne 1'

L'objectif de cet enchainement de boucle est de trouver la 10ème (ou variable) valeur souhaité dans une colonne et de l'écrire dans le label3.

Le problème, c'est que ce ne fonctionne pas. Il me trouve seulement la première valeur non nulle dans la colonne 1.

Merci de votre aide. Je ne suis pas un crack en vba, mais si il y a plus pratique je suis preneur.

J'espère avoir été assez clair.

D'avance merci

**Kimy_Ire** · 07/02/2013, 12h00

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Do While h < 10

Mais je pense qu'il y a plus simple.
Que souhaites-tu faire vraiment au final ? Uniquement trouver cette 10ème valeur non nulle ?

**COCONUT2** · 07/02/2013, 12h15

On peut aussi utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Do until h=10

Mais je pense que ton probleme vient de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Do While Cells(t, 1) = ""

si tu cherche une valeur nulle, il faut mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Do While Cells(t, 1) = 0

le "" signifie qu'il n'y a rien dans la cellule, pas qu'elle est à 0.

**viguievt** · 07/02/2013, 13h45

Je souhaite trouver la nième valeur (j'avais pris 10 pour exemple, mais à terme ce sera une variable) non nulle d'une colonne et l'afficher dans un label.

Le seul moyen que j'ai trouvé, c'est de faire un enchainement de boucle. C'est à dire la première boucle défini jusqu'à qu'elle valeur il faut s'arrêter (ex = 10 dans l'exemple ci-dessus) et la seconde boucle recherche les valeurs non nulle.

Si vous avez plus simple je suis preneur.

**Kimy_Ire** · 07/02/2013, 14h09

Je te propose ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub find()
Dim res As Range
Dim nb As Integer
Dim val As Integer
 
nb = InputBox("Combien de valeurs non nulles ?", "Recherche", 0)
 
val = 0
With Worksheets("Feuil3")
    Set res = .Range("A1")
    For i = 0 To .Columns(1).find("*", , , , xlByColumns, xlPrevious).Row - 1
        If res.Offset(i, 0) <> 0 Then
            val = val + 1
            If val = nb Then
                'place ce que tu veux faire lors de la n-ème valeur non nulle trouvée ici
                MsgBox "Valeur = " & res.Offset(i, 0).Value & vbCrLf & "Adresse = " & res.Offset(i, 0).Address
 
                Exit Sub
            End If
        End If
    Next i
End With
 
MsgBox "Il n'y a pas " & nb & " valeurs non nulles."
 
End Sub