Discussion :

[biche1]

bonjour,

voila mon problème, j'ai le code ci -dessous et je voudrais un renvoi de toutes les valeurs le soucis c'est su'il ne renvoie qu'une valeur.
Si quelqu'un peut m'aider svp
'affecter la surperficie d'une salle

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
Sub surface()
Dim salle As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
 
j = 1
i = 9
k = 8
 
Do While Cells(i, 2) <> ""
 
    salle = Cells(i, 1).Value 'récupère la valeur à chercher
 
        While Sheets("Salle").Cells(j, 1) <> "" ' parcours le tableau de la feuille salle
            If Sheets("Salle").Cells(j, 1) = salle Then
                Cells(i, 8) = Sheets("Salle").Cells(j, 5) 'renvoie la valeur dans la cellule de la feuille active
 
            End If
        j = j + 1
        Wend
i = i + 1
Loop
 
End Sub

merci d'avance

[Invité]

Bonjour,

A mon avis, vous oubliez de réinitialiser la variable "j" :

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 surface()
Dim salle As String
Dim i As Integer
Dim j As Integer
Dim k As Integer

j = 1
i = 9
k = 8

Do While Cells(i, 2) <> ""

salle = Cells(i, 1).Value 'récupère la valeur à chercher

While Sheets("Salle").Cells(j, 1) <> "" ' parcours le tableau de la feuille salle
If Sheets("Salle").Cells(j, 1) = salle Then
Cells(i, 8) = Sheets("Salle").Cells(j, 5) 'renvoie la valeur dans la cellule de la feuille active

End If
j = j + 1
Wend
j = 1
i = i + 1
Loop

End Sub

[biche1]

Merci c'est ca le problème