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