Discussion :

[studying]

Bonjour,

Voici le code suivant :

Code :

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

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,

[SfJ5Rpw8]

bonjour,

tu as des objets Cells pour lesquels tu ne précise pas le parent .. ( manque wk. peu-être)

[studying]

Merci bbil,

30 minutes de perdu dessus à chercher sur internet le pourquoi ^^.