Bonjour
Je voudrais créer une fonction qui prend deux paramètres en entrée une case et une colonne.
Car je veut remplir un tableau dans la feuille 1 à partir de différentes cases des feuilles suivantes et il me parait un peu lourd de recopier à chaque fois le code en changeant la colonne d'arrivée et la case de départ.
Le problème c'est qu'à la compilation la ligne
Sheets(1).Range("colonne" & derligne).Value = Range("case1").Value
ne passe pas.
Alors qu'avant en mettant
Sheets(1).Range("B" & derligne).Value = Range("B2").Value
tout allez bien.
Si quelq'un peut m'aider ce serai génial.
Sub tableau(case1, colonne)
'
' tableau Macro
' Macro enregistrée le 04/02/2010 par T0115286
'
derligne = 2
For i = 2 To Sheets.Count
Sheets(i).Select
Sheets(1).Range("colonne" & derligne).Value = Range("case1").Value
derligne = derligne + 1
Next
End Sub
Sub main()
tableau B2, B
'
End Sub
Je voudrais créer une fonction qui prend deux paramètres en entrée une case et une colonne.
Car je veut remplir un tableau dans la feuille 1 à partir de différentes cases des feuilles suivantes et il me parait un peu lourd de recopier à chaque fois le code en changeant la colonne d'arrivée et la case de départ.
Le problème c'est qu'à la compilation la ligne
Sheets(1).Range("colonne" & derligne).Value = Range("case1").Value
ne passe pas.
Alors qu'avant en mettant
Sheets(1).Range("B" & derligne).Value = Range("B2").Value
tout allez bien.
Si quelq'un peut m'aider ce serai génial.
Sub tableau(case1, colonne)
'
' tableau Macro
' Macro enregistrée le 04/02/2010 par T0115286
'
derligne = 2
For i = 2 To Sheets.Count
Sheets(i).Select
Sheets(1).Range("colonne" & derligne).Value = Range("case1").Value
derligne = derligne + 1
Next
End Sub
Sub main()
tableau B2, B
'
End Sub