Discussion :

[chelmi95]

Bonjour,
Je voudrais transférer tous les résultats d'une boucle for next vers une feuille de calcul. Voici le code que j'ai fait.

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
Sub essai()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
 
For i = 1 To 15
    For j = 1 To 15
        For k = 1 To 15
            For l = 1 To 15
                For m = 1 To 15
                    Debug.Print i; "-"; j; "-"; k; "-"; l; "-"; m
                Next m
            Next l
        Next k
    Next j
Next i
 
End Sub

Merci d'avance pour celui qui pourra m'aider.

[LeForestier]

Bonjour,
Je voudrais transférer tous les résultats d'une boucle for next vers une feuille de calcul. Voici le code que j'ai fait.

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
Sub essai()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
dim P as integer
P=1
sheets("Feuil1").select
For i = 1 To 15
    For j = 1 To 15
        For k = 1 To 15
            For l = 1 To 15
                For m = 1 To 15
                    Debug.Print i; "-"; j; "-"; k; "-"; l; "-"; m
                    cells(P,1).value = i; "-"; j; "-"; k; "-"; l; "-"; m
                    P=P+1
                Next m
            Next l
        Next k
    Next j
Next i
End Sub

Merci d'avance pour celui qui pourra m'aider.

En mettant les balises "CODE" le # au dessus c'est plus clair
Voir l'ajout de 2 lignes dans ton code
A+

[chelmi95]

il me met un message d'erreur au niveau de

Code :

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

cells(P,1).value = i; "-"; j; "-"; k; "-"; l; "-"; m

[K2O2$]

Salut,

Code :

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

cells(P,1).value = i & "-" & j & "-" & k & "-" & l & "-" & m

++

[chelmi95]

Ca marche !!! Merci beaucoup.