erreur Method 'Range' of object 'Worksheet' failed
Bonjour,
Voici le code suivant :
Code:
1
2
3
4
5
6
7
8
9
10
| Dim nb_ligne as Long
For Each wk In Worksheets
nb_ligne = wk.Range("G5").CurrentRegion.Rows.Count + 4
wk.Range(Cells(6, 1), Cells(nb_ligne, 1)) = wk.Cells(2, 3)
wk.Range(Cells(6, 2), Cells(nb_ligne, 2)) = wk.Cells(2, 4)
Next |
Avec ce code j'obtient une erreur de type "erreur Method 'Range' of object 'Worksheet' failed".
Lorsque j'active la feuille par wk.Activate, le code fonctionne, mais je ne souhaite pas activer les feuilles.
Merci !!
Cordialement,
