Discussion :

[fmris]

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

[mordrhim]

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 :

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

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

[fmris]

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