Bonjour
j'ai fait un petit code permettant d'extraire des données tous les XXX pas en définissant la ligne de début et le nb de colonne
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
Sub reno1()
'
 
z = InputBox("Veuillez rentrer la valeur du pas")
y = InputBox("Veuillez rentrer la première ligne à prendre en compte pour l'extraction", , 1)
 
nbcol = InputBox("Veuillez indiquer le nombre de colonnes que contient le fichier", , 3)
x = 10
col = 1
 
While Cells(x, 1).Value <> ""
 
        For col = 1 To nbcol
 
        Cells(y, col + nbcol).Value = Cells(x, col).Value
        Next col
 
        x = x + z
        y = y + 1
 
 
Wend
 
End Sub

Ce code fonctionne or j'aimerais paramétrer également la valeur x qui doit être égale à y et ca fonctionne plus
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
Sub reno1()
'
 
z = InputBox("Veuillez rentrer la valeur du pas")
y = InputBox("Veuillez rentrer la première ligne à prendre en compte pour l'extraction", , 1)
 
nbcol = InputBox("Veuillez indiquer le nombre de colonnes que contient le fichier", , 3)
x = y
col = 1
 
While Cells(x, 1).Value <> ""
 
        For col = 1 To nbcol
 
        Cells(y, col + nbcol).Value = Cells(x, col).Value
        Next col
 
        x = x + z
        y = y + 1
 
 
Wend
 
End Sub
seule la première ligne est recopiée alors que la valeur rentrer pour y est de 10 donc x = y = 10 ca devrait fonctionnait pareil et ben non !!!
merci de m'aider