Pb code vba paramétrage de variable

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:

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:

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

c'est normal ^^

tu ne définis pas tes variable or inputbox renvoie une chaine de caractere, ce qui fait que x, y, z, et nbcol sont des String (non pas ceux la !)

donc au tout debut de ta sub rajoute
Code:

1 2 3 4 5 Dim z As Integer Dim y As Integer Dim x As Integer Dim NbCol as integer Dim Col as Integer
ca reglera tes problèmes

effectivement ca marche !!!
merci et bonne journée